du meinst das zurüchschreiben inne datenbank??
sollte kein ding sein, wenn du statt einem DataReader-Objekt ein DataAdapter-Objekt nimmst.
Moderator: Global Moderator
Dim conDB As New OleDbConnection
Dim datRead As OleDbDataReader
conDB.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
"ocking Mode=0;Jet OLEDB:Database Password=;Data Source=""G:\kleineSpielerei\" & _
"kleineSpielerei\Buch.mdb"";Password=;Jet OLEDB:Engine Type=5;Jet OLED" & _
"B:Global Bulk Transactions=1;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System" & _
" database=;Jet OLEDB:SFP=False;Extended Properties=;Mode=Read;Jet OLEDB:New Data" & _
"base Password=;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Local" & _
"e on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;User ID=Admin;" & _
"Jet OLEDB:Encrypt Database=False"
conDB.Open()
Dim commDB As New OleDbCommand
With commDB
.Connection = conDB
.CommandText = "SELECT * FROM Buch ORDER BY BuchNr"
End With
datRead = commDB.ExecuteReader
'Schreiben in die Listbox
Do Until datRead.Read = False
lstAusgabe.Items.Add(datRead("Titel").ToString)
Loop
Zurück zu allgemeine Anwendungen
Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste