Dim ProdukteString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data" & _
      "Source=W:\dat_BDE22210\000_SQL\DB\Produkte.accdb;"
 
    Dim VerbindungProdukte As New OleDbConnection(ProdukteString)
 
 
        ' Produkte anzeigen
        Me.DataGridView1.DataSource = Nothing
        Me.DataGridView1.DataMember = Nothing
        Me.DataGridView1.Columns.Clear()
        Dim ds As New DataSet()
        Dim daText As String
        daText = "Select ID,Nummer, Bezeichnung,Arbeitsplatz,Gruppe FROM ROB" & _
          "order by Nummer ASC"
        Dim da As New OleDbDataAdapter(daText, VerbindungProdukte)
        VerbindungProdukte.Open()
        da.Fill(ds, "Daten1")
        VerbindungProdukte.Close()
        Me.DataGridView1.DataSource = ds
        Me.DataGridView1.DataMember = "Daten1"
        Me.DataGridView1.Enabled = True
        Me.DataGridView1.AutoResizeColumns()

Ganz am Anfang einer Programmierung in Visual Studio Basic.
Steige gerade von VB6 um.

Beitrag wurde zuletzt am 14.02.21 um 12:40:13 editiert.