Hallo,
ich möchte einen Eintrag mit BindingContext zur Datenbank hinzufügen.
Leider speichert er mir nur leere Einträge.
Kann mir jemand helfen das Problem zu suchen?
ich möchte einen Eintrag mit BindingContext zur Datenbank hinzufügen.
Leider speichert er mir nur leere Einträge.
Kann mir jemand helfen das Problem zu suchen?
VB.NET-Quellcode
- If tb_name.Text = "" Or tb_vor_name.Text = "" Then
- MsgBox("Bitte geben sie einen Gültigen Vor und Nachnamen ein!")
- Else
- Try
- objCon.Open()
- Catch ex As Exception
- MessageBox.Show(ex.Message.ToString)
- End Try
- objDataSet = New DataSet()
- Dim objCommandBuilder As OleDb.OleDbCommandBuilder
- 'Beim Formularladen
- objDataAdapter = New OleDb.OleDbDataAdapter("select * from Kunden", objCon)
- objCommandBuilder = New OleDb.OleDbCommandBuilder(objDataAdapter)
- 'DataSet bedeutet Tabelle "Lieferanten" im Hauptspeicher abstellen
- objDataAdapter.Fill(objDataSet, "Kunden")
- 'Befüllen der einzelen Felder
- BindingContext(objDataSet, "Kunden").AddNew()
- 'tb_kundennummer.DataBindings.Add("Text", objDataSet, "Kunden.ID")
- tb_name.DataBindings.Add("Text", objDataSet, "Kunden.Nachname")
- tb_vor_name.DataBindings.Add("Text", objDataSet, "Kunden.Vorname")
- tb_strasse.DataBindings.Add("Text", objDataSet, "Kunden.Strasse")
- tb_PLZ.DataBindings.Add("Text", objDataSet, "Kunden.PLZ")
- tb_ort.DataBindings.Add("Text", objDataSet, "Kunden.Ort")
- 'Physikalisches Schreiben
- BindingContext(objDataSet, "Kunden").EndCurrentEdit()
- objDataAdapter.Update(objDataSet, "Kunden")
- End If