Guten Tag,
und zwar habe ich folgendes Problem :
ich will die Werte aus meiner Datenbank in einer Listbox anzeigen.
Was meine Listbox anzeigt ist aber nur :
False#False#15:30:21#11.08.2011 etc.
Das stimmt ja auch alles aber ich würde es gerne so sehen wie in access, also in einer Tabelle und nicht durch Rautezeichen getrennt und dann auch noch das die Feldbezeichnungen da sind.
Dim con As New OleDbConnection
Dim cmd As New OleDbCommand
Dim reader As OleDbDataReader
con.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;" &
"Data Source=C:\Protokoll.mdb"
cmd.Connection = con
cmd.CommandText = "select * from Protokoll"
Try
con.Open()
reader = cmd.ExecuteReader()
Me.LF_Anzeige.Items.Clear()
Do While reader.Read()
Me.LF_Anzeige.Items.Add(
reader("DI0") & " # " &
reader("DI1") & " # " &
reader("DI2") & " # " &
reader("DI3") & " # " &
reader("DI4") & " # " &
reader("DI5") & " # " &
reader("DI6") & " # " &
reader("DI7") & " # " &
reader("DI8") & " # " &
reader("DI9") & " # " &
reader("DI10") & " # " &
reader("DI11") & " # " &
reader("DO1") & " # " &
reader("DO2") & " # " &
reader("C1") & " # " &
reader("C2") & " # " &
reader("Zeit") & " # " &
reader("Datum"))
Loop
reader.Close()
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Gruß Max
und zwar habe ich folgendes Problem :
ich will die Werte aus meiner Datenbank in einer Listbox anzeigen.
Was meine Listbox anzeigt ist aber nur :
False#False#15:30:21#11.08.2011 etc.
Das stimmt ja auch alles aber ich würde es gerne so sehen wie in access, also in einer Tabelle und nicht durch Rautezeichen getrennt und dann auch noch das die Feldbezeichnungen da sind.
Dim con As New OleDbConnection
Dim cmd As New OleDbCommand
Dim reader As OleDbDataReader
con.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;" &
"Data Source=C:\Protokoll.mdb"
cmd.Connection = con
cmd.CommandText = "select * from Protokoll"
Try
con.Open()
reader = cmd.ExecuteReader()
Me.LF_Anzeige.Items.Clear()
Do While reader.Read()
Me.LF_Anzeige.Items.Add(
reader("DI0") & " # " &
reader("DI1") & " # " &
reader("DI2") & " # " &
reader("DI3") & " # " &
reader("DI4") & " # " &
reader("DI5") & " # " &
reader("DI6") & " # " &
reader("DI7") & " # " &
reader("DI8") & " # " &
reader("DI9") & " # " &
reader("DI10") & " # " &
reader("DI11") & " # " &
reader("DO1") & " # " &
reader("DO2") & " # " &
reader("C1") & " # " &
reader("C2") & " # " &
reader("Zeit") & " # " &
reader("Datum"))
Loop
reader.Close()
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Gruß Max