Hallo,
Hier mal ein kompl. ablauffähiges Beispiel, mit dem Du
einen neuen Datensatz in die Tabelle "Tabelle" einer Access.mdb
schreiben kannst.
Die Tabelle muss ein Feld "ID" vom Typ Integer enthalten,
welches auch als Primärschlüssel definiert ist. Ein als
Primärschlüssel definiertes Feld ist für den CommandBuilder
erforderlich, damit er mit den von ihm gebildeten Commands
jeweils einen ganz bestimmten Datensatz eindeutig adressieren kann.
Public Class Form1
Private mDA As OleDb.OleDbDataAdapter
Private mDT As DataTable
Private mCB As OleDb.OleDbCommandBuilder
Private mCNN As OleDb.OleDbConnection
Private DGV As DataGridView
Private WithEvents BtnNew As Button
Private Sub Form1_Load _
(ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load
DGV = New DataGridView
With DGV
.SetBounds _
(10, 10, _
Me.ClientSize.Width - 20, _
Me.ClientSize.Height - 70)
.Anchor = _
AnchorStyles.Left Or _
AnchorStyles.Top Or _
AnchorStyles.Right Or _
AnchorStyles.Bottom
.AllowUserToAddRows = False
End With
Me.Controls.Add(DGV)
BtnNew = New Button
With BtnNew
.Font = New Font("Arial", 10)
.Name = "BtnNew"
.SetBounds(10, DGV.Bottom + 10, 120, 40)
.Text = "New Record"
.Anchor = _
AnchorStyles.Left Or _
AnchorStyles.Bottom
End With
Me.Controls.Add(BtnNew)
CreateData()
DGV.DataSource = mDT
End Sub
Private Sub Form1_FormClosing _
(ByVal sender As Object, _
ByVal e As System.Windows.Forms.FormClosingEventArgs _
) Handles Me.FormClosing
If mCNN IsNot Nothing Then
If mCNN.State And ConnectionState.Open = _
ConnectionState.Open Then
mCNN.Close()
End If
End If
End Sub
Private Sub BtnNew_Click _
(ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles BtnNew.Click
' Neuen Datensatz erstellen und in der DB speichern
InsertNewRecord()
End Sub
Private Sub Form1_Click _
(ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles Me.Click
' zum Testen der Function GetNextID
MsgBox(GetNextID, MsgBoxStyle.Information)
End Sub
Private Function GetNextID() As Integer
' Liefert die in der DB-Tabelle enthaltene höchste ID + 1
Dim Cmd As New OleDb.OleDbCommand _
("Select Max(ID) From Tabelle", mCNN)
Dim Ret As Object
Ret = Cmd.ExecuteScalar
If Ret = Nothing Then
Return 1
Else
Return CInt(Ret) + 1
End If
End Function
Private Sub InsertNewRecord()
Dim DR As DataRow
DR = mDT.NewRow
Dim ID As Integer = GetNextID()
With DR
.Item(0) = ID
.Item(1) = "Hallo Welt"
.Item(2) = 25.4
.Item(3) = "Admin"
.Item(4) = Now
End With
mDT.Rows.Add(DR)
MsgBox _
(mCB.GetInsertCommand.CommandText, _
MsgBoxStyle.Information)
mDA.Update(mDT)
End Sub
Private Sub CreateData()
mCNN = GetConnection("D:\DataBases\DB2002.mdb")
mCNN.Open()
mDA = _
New OleDb.OleDbDataAdapter _
("Select * From Tabelle", mCNN)
mDA.MissingSchemaAction = _
MissingSchemaAction.AddWithKey
mDT = New DataTable
mDA.FillSchema(mDT, SchemaType.Mapped)
mCB = New OleDb.OleDbCommandBuilder(mDA)
End Sub
Private Function GetConnection _
(ByVal FileName As String) As OleDb.OleDbConnection
Dim CSB As New OleDb.OleDbConnectionStringBuilder
Dim CNN As OleDb.OleDbConnection
With CSB
.DataSource = FileName
.Provider = "Microsoft.Jet.OLEDB.4.0"
' Connectionpooling ausschalten
.OleDbServices = -4
' DB im geteilten Modus öffnen
.Add("Mode", "Share Deny None")
' Pagelocking ab Access-Version 2000
.Add("Jet OLEDB:Database Locking Mode", 1)
End With
CNN = New OleDb.OleDbConnection(CSB.ConnectionString)
Return CNN
End Function
End Class
Nach dem Programmstart siehst Du eine Form mit einem
DataGridView sowie einem Button "New Record".
Das DataGridView ist nach dem Programmstart erst mal
leer, da mit DataAdapter.FillSchema nur das Tabellenschema
jedoch keine Daten in die DataTable (mDT) geladen werden.
Mit jedem Klick auf den Button "New Record" kannst Du
nun einen neuen Datensatz erzeugen, der sofort im DGV
sichtbar wird und auch gleich in der DB-Tabelle gespeichert
wird.
Gruß aus St.Georgen
Peter Götz
www.gssg.de (mit VB-Tipps u. Beispielprogrammen)
