Tabelle (inhalt) in ein Text file schreiben...VB6

[mikelrad]

Hallo ich habe das Problem das eine Tabelle bzw. deren inhalt ein ein Txt File schreiben will das nachher wie folgt aussehen muss:

txtfile.txt =

field1;field2;field3;field4;
field1:filed2;field3;filed4;
usw...

Probiert habe ich es schon mit ...
Option Explicit
Dim dateiname As String
Private Sub cmdLaden_Click()
CommonDialog1.Filter = "Access (*.mdb)|*.mdb"
CommonDialog1.ShowOpen
dateiname = CommonDialog1.filename
End Sub
Private Sub cmdExport_Click()
Dim Datenbank As Database
Dim Auswahl As Recordset
Dim Trenn As String
Dim ausgabe As String
Dim zaehler As Integer
Dim Felderzahl As Integer
Dim SQL_Ausdruck As String
If dateiname = "" Then Exit Sub
Set Datenbank = OpenDatabase(dateiname)
SQL_Ausdruck = txtAusdruck.Text
Set Auswahl = Datenbank.OpenRecordset(SQL_Ausdruck)

Open txtZieldatei.Text For Output As #1 ' Datei öffnen.
Trenn = ";"
Felderzahl = Auswahl.Fields.Count - 1
While Not Auswahl.EOF ' solange nicht Dateiende
ausgabe = ""
For zaehler = 0 To Felderzahl ' für alle Tabellenspalten
ausgabe = ausgabe & Auswahl.Fields(zaehler) & Trenn
Next zaehler
Print #1, ausgabe ' Zeichenfolge schreiben.
Auswahl.MoveNext ' nächster Datensatz
Wend
Close #1

Nur funktioniert das ganze Super wenn ich es allein laufen lasse, so bald ich es in meine
Applikation einbaue bekomme ich immer an der Stelle " Set Auswahl = xx " ein typemismatch fehler 13 ) es ist zu kotzen und ich weiss nicht warum...


Please Help me....

 

[Alex F.]

hast du unter Projekt -> verweise -> die Microsoft Dao eingebunden (wenn nicht nimm die 3.51 )

Gruß bb

 

[mikelrad]

Danke, oh man genau das war's Super...

manchmal sieht man den Wald vor lauter Bäume nicht ;-)