Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
Dim i As Integer
DB.Open()
SQL = "SELECT * FROM Production"
da = New OleDb.OleDbDataAdapter(SQL, DB)
Dim cb As New OleDb.OleDbCommandBuilder(da)
Try
i = da.Update(ds, "Production_Table")
MsgBox(i & " " & "Records Updated")
Catch ex As Exception
MsgBox(ex.Message)
End Try
DB.Close()
End Sub
if you need to see any of the other code it is here

New Topic/Question
Reply



MultiQuote



|