Hallo zusammen
Ich habe eine Access-Datenbank. Mit diesem Code lasse ich ein Textfeld in meinem Formular füllen.
Nun möchte ich aber auch die Änderungen speichern. Habs mit diesem Code probiert:
Aber da passiert gar nichts. Warum?
Ich habe eine Access-Datenbank. Mit diesem Code lasse ich ein Textfeld in meinem Formular füllen.
VB.NET-Quellcode
- Imports System.Data.OleDbPublic Class Form1
- Dim PROVIDER As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source="
- Dim DBPFAD As String = "C:\xxx\"
- Dim DBNAME As String = "Datenbank.mdb"
- Dim Conn As OleDbConnection ' Verbindungszeichenfolge
- Dim da As OleDbDataAdapter ' DatenAdapter
- Dim ds_Namen As DataSet ' DataSet
- Dim dt_Namen As DataTable ' DataTable (Datentabelle)
- Dim dv As DataView
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Conn.ConnectionString = String.Concat(PROVIDER, DBPFAD, DBNAME)
- ds_Namen = New DataSet() ' DataSet-Instanz bilden
- dt_Namen = New DataTable("Kunden") ' DataTable-Instanz bilden
- ds_Namen.Tables.Add(dt_Namen) ' DataTable dem DataSet hinzufgen
- da.SelectCommand.CommandText = "SELECT * FROM Kunden"
- da.SelectCommand.CommandType = CommandType.Textda.Fill(dt_Namen) ' DataTable fllen
- 'Textbox füllen
- With Me.TextBox1.DataBindings.Add("Text", dt_Namen, "Vorname")
- End With
- End Sub
Nun möchte ich aber auch die Änderungen speichern. Habs mit diesem Code probiert:
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickConn = New OleDbConnection
- Conn.ConnectionString = String.Concat(PROVIDER, DBPFAD, DBNAME)
- Dim cmdb As OleDbCommandBuildercmdb = New OleDbCommandBuilder(da)
- da.Update(dt_Namen)
- MsgBox("gespeichert")
- End Sub
Aber da passiert gar nichts. Warum?