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.
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:
Grüße und Danke.
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:
While dr.Read
fso.WriteLine(dr("Z1").ToString())
End While
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:
loRs.Fields("Z4").Value & ", " & _
loRs.Fields("Z5").Value & ", " & _
loRs.Fields("Z6").Value & ", " & _
Code:
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
Zuletzt bearbeitet: