Dim Datenbankpfad As String="D:\irgendwas\meinedaten.mdb"

Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
  "Source=" & Datenbankpfad)

Dim ds As New DataSet

Dim Abfrage As String="Select * FROM Tabelle WHERE Bedingung"

Dim da As New OleDb.OleDbDataAdapter(Abfrage, cn)

 da.Fill(ds, "MeineDaten")

Dim i As Integer
i=ds.Tables("MeineDaten").Rows.Count
MessageBox.Show("Es sind " & i & " Datensätze vorhanden!")

Dim dr As DataRow
For Each dr in ds.Tables("MeineDaten").Rows
MessageBox.Show("In der ersten Spalte meiner Tabelle steht drin: " & dr.Item(0))
Next

EALA FREYA FRESENA

Beitrag wurde zuletzt am 30.12.12 um 11:52:25 editiert.