Hi,
ein kleines Problem, das mir aber große Mühe macht.
Das Anlegen einer txt-Datei und das Auslesen einer Access-Tabelle mittels ExecuteReader macht keine Probleme. Da ich aber mehrere Spalten in einer Tabelle habe, aber mit dem nachfolgendem Schnipsel nur die 1. Spalte übertragen kann, wollte ich um Unterstützung ersuchen, wie ich die restlichen Spalten übertrage.

Code :

1 2 3

While dr.Read                 fso.WriteLine(dr("Z1").ToString())             End While

Das Textfile sollte so aussehen:
28, 21, 1240, 35, etc.
Es ist keine Formatierung erforderlich, weil ich dieses File in ein ExcelSheet importiere.
PS.: In VB6 ging's so:

Code :

1 2 3

loRs.Fields("Z4").Value & ", " & _                     loRs.Fields("Z5").Value & ", " & _                     loRs.Fields("Z6").Value & ", " & _

Grüße und Danke.

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Try             conn.Open()             Dim fso As IO.StreamWriter = IO.File.CreateText("C:\Programme\xxx\xxx\" + _             "xxx\xxxx\statistik.txt")               Dim com As New OleDbCommand( _             ("SELECT * FROM statistik ORDER BY Z1 ASC"), conn)             Dim dr As OleDbDataReader = com.ExecuteReader()               fso.WriteLine("statistik" & " ( " & CStr(txtRde.Text) & ". Rde ) ")               Dim str As String = String.Empty             Dim tab As String = ", "             Dim min As String = "-"               While dr.Read                 str = dr("Z1").ToString + tab + min                 str += dr("Diff").ToString + tab                 str += dr("List").ToString                 fso.WriteLine(String.Format(str))             End While               dr.Close()             fso.Close()         Catch sqlExc As SystemException             MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _             MessageBoxButtons.OK, MessageBoxIcon.Error)         Finally             conn.Close()         End Try