Hi!
Habe folgendes Problem:
Ich habe eine Funktion die ein Datatable und den Tabellennamen entgegen nimmt und die Datenbank via .Update(Datatable) aktualisiert. Funktioniert auch Prima. Nur mit dem Deletecommand will es nicht klappen. Bekomme aber keine Fehlermeldung. Es wird nur in der Datenbank nix gelöscht.
Hier der Code:
Jemand eine Idee, warum ausgerechnet der Deletecommand nicht klappt? Wie ihr seht, hab ich mir den SQL String mal via Debug.Writeline ausgeben lassen, aber der sieht eigentlich ganz gut aus.
Danke schon mal.
Habe folgendes Problem:
Ich habe eine Funktion die ein Datatable und den Tabellennamen entgegen nimmt und die Datenbank via .Update(Datatable) aktualisiert. Funktioniert auch Prima. Nur mit dem Deletecommand will es nicht klappen. Bekomme aber keine Fehlermeldung. Es wird nur in der Datenbank nix gelöscht.
Hier der Code:
Code:
Shared Sub Datenbank_UPDATE(ByVal DT As DataTable, ByVal SQLTabelle As String)
Dim ConnectionString As String = _
"Database=" & My.Settings.dbName & ";Data Source=" & My.Settings.dbHost & ";User Id=" & My.Settings.dbUser & ";Password=" & My.Settings.dbPasswort
Dim SQLConnection As New MySqlConnection(ConnectionString)
Dim SQLAdapter As New MySqlDataAdapter("SELECT * FROM " & SQLTabelle, SQLConnection)
Dim SQLStringBuilder As New MySqlCommandBuilder(SQLAdapter)
With SQLAdapter
.UpdateCommand = SQLStringBuilder.GetUpdateCommand
.InsertCommand = SQLStringBuilder.GetInsertCommand
.DeleteCommand = SQLStringBuilder.GetDeleteCommand
Debug.WriteLine(.DeleteCommand.CommandText)
End With
Try
If DT.Rows.Count > 0 Then
SQLConnection.Open()
SQLAdapter.Update(DT) 'Eigentlicher Updatevorgang
'Rückmeldung an Hauptform
frmHauptfenster.lblSTATUS.Text = "Änderungen Erfolgreich übernommen!"
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
End If
Catch ex As Exception
MsgBox("Die Datenbank konnte nicht aktualisiert werden." & vbNewLine & vbNewLine _
& "Connectiontext: " & vbNewLine & ConnectionString & vbNewLine & vbNewLine _
& "Befehlstext: " & vbNewLine & SQLStringBuilder.GetUpdateCommand.ToString, MsgBoxStyle.Critical, "Verbindungsfehler")
Finally
SQLStringBuilder.Dispose()
SQLAdapter.Dispose()
SQLConnection.Close()
End Try
End Sub
Jemand eine Idee, warum ausgerechnet der Deletecommand nicht klappt? Wie ihr seht, hab ich mir den SQL String mal via Debug.Writeline ausgeben lassen, aber der sieht eigentlich ganz gut aus.
Danke schon mal.