Code:
Imports System.Data.OleDb
Public Class Artikeldatenbank
Dim cmd As OleDbCommand
Dim conn As OleDbConnection
Dim adapter As OleDbDataAdapter
Dim builder As OleDbCommandBuilder
Dim ds As DataSet
Dim table As DataTable
Private Sub Artikeldatenbank_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sqlquery As String = "SELECT * FROM Artikeldatenbank"
Dim ServerString As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\db.mdb"
Dim connection As New OleDbConnection(ServerString)
connection.Open()
cmd = New OleDbCommand(sqlquery, connection)
adapter = New OleDbDataAdapter(cmd)
builder = New OleDbCommandBuilder(adapter)
ds = New DataSet
adapter.Fill(ds)
table = ds.Tables(0)
connection.Close()
ArtikeldatenbankDataGridView.DataSource = ds.Tables(0)
End Sub
Private Sub cmdlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlogin.Click
adapter.Update(ds)
End Sub
End Class
