vgConDb = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
  "Source=PfadDB_NameDB;Jet OLEDB:Database Password=Kennwort")
vgConDb.Open()

Dim vDSDataSet As New System.Data.DataSet()
Dim vDbCmdDetail As New OleDbCommand("SELECT * FROM Tabellenname", vgConDb)
Dim vDbAdpDetail As New OleDbDataAdapter(vDbCmdDetail)
vDbAdpDetail.Fill(vDSDataSet, "Tabellenname")
TKomm_Test.DataBindings.Add("Text", vDSDataSet.Tables("Tabellenname"), _
  "Datenbankfeld")

____________________________________________
Nur die Dummen wissen alles selbst am besten.

Beitrag wurde zuletzt am 26.08.15 um 19:06:13 editiert.