Visual Basic Forum

am_software · Newbie Anmeldedatum: 09.08.2011 Beiträge: 1

Hallo liebe Gemeinde,

ich habe mich mit dem folgenden Quellcode recht strikt an ein Beispiel aus dem Buch VisualBasic 2008 (Doberenz, Gewinnus) gehalten. Nur dass es dort für OLE beschrieben war.

Folgender Code:

Public Sub MySQLwrite(ByRef ds As DataSet)
Dim cb As MySqlCommandBuilder = New MySqlCommandBuilder(da)
MySQLcnn.Open()
da.Update(ds, "Produktcode")
MySQLcnn.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim ds1 As DataSet = ds.GetChanges
If ds1 IsNot Nothing Then
Try
MySQLwrite(ds1)
ds.Merge(ds1)
ds.AcceptChanges()
MessageBox.Show("Datenbank wurde aktualisiert!", "Erfolg")
Catch ex As Exception
ds.RejectChanges()
MessageBox.Show(ex.Message, "Fehler")
End Try
End If
End Sub

verursacht in der Zeile

da.Update(ds, "Tabellenname")

eine Fehlermeldung: "Objektverweis wurde nicht auf eine Objektinstanz festgelegt."

Hat jemand einen hilfreichen Tipp für mich?

Danke!

Andreas