title image


Smiley Re: Wo (Zeile/Statement) kommt der Fehler vor?
Hier noch einmal die vollständige Deklaration.

Die Fehlermeldung, die nun auftaucht, ist die Folgende:



"Aktualisieren: TableMapping['Table'] oder DataTable 'Table' kann nicht gefunden werden."



Quelltext:



objDBconn.ConnectionString() = Datenbank

Dim sSQL As String

Dim DA As New OleDbDataAdapter

sSQL_Insert = "INSERT INTO [Tabelle] (Name,Strasse,PLZ,Ort) VALUES (" & txt_shop_name.Text & "," & txt_shop_str.Text & "," & txt_shop_plz.Text & "," & txt_shop_ort.Text & ")"

Try

objDBconn.Open()

DA.SelectCommand = New OleDbCommand(sSQL, objDBconn)



_DS = New DataSet

DA.Fill(_DS, [Tabelle])

objDBconn.Close()



'DataTable Objekt ermöglicht Zugriff auf Zeilen

Dim objTabelle As New DataTable

objTabelle = _DS.Tables([Tabelle])

Dim drRows As DataRowCollection

Dim objNewRow As DataRow

drRows = objTabelle.Rows

objNewRow = objTabelle.NewRow

'objNewRow.BeginEdit()

objNewRow("Name") = txt_shop_name.Text

objNewRow("Strasse") = txt_shop_str.Text

objNewRow("PLZ") = txt_shop_plz.Text

objNewRow("Ort") = txt_shop_ort.Text

objNewRow.EndEdit()

drRows.Add(objNewRow)

objInsertCommand.Connection = objDBconn

objInsertCommand.CommandText = sSQL_Insert

DA.InsertCommand = objInsertCommand

DA.Update(_DS)

Catch myException As Exception 'allgemeine Fehler z.B. out of memory

MessageBox.Show(myException.Message, "Fehler", MessageBoxButtons.OK, _

MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, _

MessageBoxOptions.DefaultDesktopOnly)

Finally

objDBconn.Close()

End Try



Vielen Dank !!!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: