Why can't I get the changes in my grid to update the data base?
Here's the code..............
Public Class frmAddChangeDelete
Inherits System.Windows.Forms.Form
Dim currpath As String = System.Environment.CurrentDirectory
Dim connService As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " & currpath & "\ServiceCalls.mdb")
Private daCustomers
Private daCalls
Private daStatus
Private serviceDS As New DataSet
Private Sub frmAddChangeDelete_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim daCustomers As New System.Data.OleDb.OleDbDataAdapter("Select * from Customers", connService)
Dim daCalls As New System.Data.OleDb.OleDbDataAdapter("Select * from Calls", connService)
Dim daStatus As New System.Data.OleDb.OleDbDataAdapter("Select * from Status", connService)
daCustomers.Fill(serviceDS)
serviceDS.Tables(0).TableName = "Customers"
DataGrid1.DataSource = serviceDS.Tables("Customers")
daCalls.Fill(serviceDS)
serviceDS.Tables(1).TableName = "Calls"
DataGrid2.DataSource = serviceDS.Tables("Calls")
daStatus.Fill(serviceDS)
serviceDS.Tables(2).TableName = "Status"
DataGrid3.DataSource = serviceDS.Tables("Status")
DataGrid1.SetDataBinding(serviceDS, "Customers")
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim command_builder As New System.Data.OleDb.OleDbCommandBuilder(daCustomers)
Try
daCustomers.Update(serviceDS, "Customers")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class
