Hallo zusammen,
ich hoffe, mir kann jemand helfen:
ich habe ein DataGridView. Nun will ich wenn sich in diesem etwas eingeben wird, das die Datenbank aktualisiert wird. Mit dem Button funktioniert dies auch wunderbar, aber mit der Funktion "...CellValueChanged" geht es nicht. Es wird die Funktion aufgerufen, die neuen Werte stehen im DataTable, aber die Datenbank wird nicht aktualisiert
Woran liegt das?
PrivateSub DataGridView_Mitarbeiter_CellValueChanged(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView_Mitarbeiter.CellValueChanged
Dim DataTable AsNew System.Data.DataTable
DataTable = Me.DataGridView_Mitarbeiter.DataSource
SQLUpdateDataTable(DataTable, "Select * From Mitarbeiter")
PublicSub SQLUpdateDataTable(ByVal datatable AsDataTable, ByVal Query AsString)
Dim con AsNewOleDbConnection
Dim DataAdapter AsOleDbDataAdapter
con.ConnectionString = FormMain.DatabaseServer & ";Data Source=" & FormMain.DatabaseDatabase
DataAdapter = NewOleDbDataAdapter(Query, con)
DataAdapter.SelectCommand.CommandType = CommandType.Text
Dim cmb = NewOleDbCommandBuilder(DataAdapter) DataAdapter.Update(datatable) ' Datenbank aktualisieren EndSub
ich hoffe, mir kann jemand helfen:
ich habe ein DataGridView. Nun will ich wenn sich in diesem etwas eingeben wird, das die Datenbank aktualisiert wird. Mit dem Button funktioniert dies auch wunderbar, aber mit der Funktion "...CellValueChanged" geht es nicht. Es wird die Funktion aufgerufen, die neuen Werte stehen im DataTable, aber die Datenbank wird nicht aktualisiert
Woran liegt das?
PrivateSub DataGridView_Mitarbeiter_CellValueChanged(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView_Mitarbeiter.CellValueChanged
Dim DataTable AsNew System.Data.DataTable
DataTable = Me.DataGridView_Mitarbeiter.DataSource
SQLUpdateDataTable(DataTable, "Select * From Mitarbeiter")
PublicSub SQLUpdateDataTable(ByVal datatable AsDataTable, ByVal Query AsString)
Dim con AsNewOleDbConnection
Dim DataAdapter AsOleDbDataAdapter
con.ConnectionString = FormMain.DatabaseServer & ";Data Source=" & FormMain.DatabaseDatabase
DataAdapter = NewOleDbDataAdapter(Query, con)
DataAdapter.SelectCommand.CommandType = CommandType.Text
Dim cmb = NewOleDbCommandBuilder(DataAdapter) DataAdapter.Update(datatable) ' Datenbank aktualisieren EndSub