Imports System.Data.OleDb
 
Public Class frmMemos
    Private connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
      "Source=AlloDB.mdb"
    Private sqlStr As String = "select Memo from Memos where User_ID=" & _
    libDaten.GetBenutzerID()
 
    Private da As OleDbDataAdapter
    Private ds As DataSet
 
 
 
    Private Sub frmMemos_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim conn As New OleDbConnection(connStr)
        Dim SelCmd As New OleDbCommand(sqlStr, conn)
 
        da = New OleDbDataAdapter(SelCmd)
        Dim cb As New OleDbCommandBuilder(da)
 
        ds = New DataSet()
 
        ' DataSet mit Daten füllen
        da.Fill(ds, "Memos")
 
        ' Textfeld an Feld in der Tabelle binden
        tb1.DataBindings.Add("Text", ds.Tables("Memos"), "Memo")
 
 
 
    End Sub
 
    Private Sub btSpeichern_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btSpeichern.Click
 
        ' Update durchführen
        da.Update(ds, "Memos")
 
    End Sub
End Class
 
-------------------------------------
 
Die Änderungen werden in DataSet geschrieben. Nur in der DB kommt nichts an.
Ich habe das Gefühl, dass der CommandBuilde mir keine Update Routine erstellt.
 
mfg & Danke
Geraldo