Help Deleting from DataBase

[hathan]

Can anyone explain why this code doesnt delete from the database. Some times it works and some times it errors i am confused.

Private Sub DeleteBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteBtn.Click
 
    Dim connStr As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source = G2G.mdb"
    Dim oDataTable As New DataTable
    Dim squlStr As String = "SELECT * From Staff"
    Dim oleDbStaffAdapter As New OleDb.OleDbDataAdapter(squlStr, connStr)
 
        oleDbStaffAdapter.Fill(oDataTable)
        Dim StaffDeleteRow As DataRow
 
        oDataTable.Rows.Item(Val(StaffnoTxt.Text)).Delete()
 
        Dim changes As Integer
        Dim commandbuilder As New OleDb.OleDbCommandBuilder(oleDbStaffAdapter)
 
        changes = oleDbStaffAdapter.Update(oDataTable)
 
 
    End Sub

Thanks

[hathan]

Hi i am getting An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll. Some times my code works and some times it doesn't. Its realy wierd. It is erroring on changes = oleDbStaffAdapter.Update(aDataTable) can anyone please help me.

Private Sub AddBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddBtn.Click
 
    Dim connStr As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source = G2G.mdb"
    Dim aDataTable As New DataTable
    Dim squlStr As String = "SELECT * From Staff"
    Dim oleDbStaffAdapter As New OleDb.OleDbDataAdapter(squlStr, connStr)
 
 
      Try
            aDataTable.Clear()
            StaffnoTxt.DataBindings.Clear()
            FnameTxt.DataBindings.Clear()
            LastnameTxt.DataBindings.Clear()
            NoTxt.DataBindings.Clear()
            PcodeTxt.DataBindings.Clear()
            DoornoTxt.DataBindings.Clear()
 
            oleDbStaffAdapter.Fill(aDataTable)
            Dim MyNewRow As DataRow = aDataTable.NewRow
 
            MyNewRow("Staff_No") = StaffnoTxt.Text
            MyNewRow("First_Name") = FnameTxt.Text
            MyNewRow("Surname") = LastnameTxt.Text
            MyNewRow("Tel_No") = NoTxt.Text
            MyNewRow("Post_Code") = PcodeTxt.Text
            MyNewRow("House") = DoornoTxt.Text
 
            aDataTable.Rows.Add(MyNewRow)
 
 
            Dim changes As Integer
            Dim commandbuilder As New OleDb.OleDbCommandBuilder(oleDbStaffAdapter)
            changes = oleDbStaffAdapter.Update(aDataTable)
 
            AddLbl.Text = "New Staff Added"
 
 
        Catch ex As InvalidOperationException
            MsgBox(ex.Message)
        End Try
End Sub

Thanks
Jonathan

[kenobewan]

I thought it would have been commandbuilder.Update(aDataTable), but its late and the screen has become blurred :).

[kenobewan]

I note the same code is coming up multiple question and that you are basically multiposting under the guise of different questions. I also find it difficult to believe that this is a university course, although some unis will offer anything if they can find a student.

Your questions appears to be a Homework Assignment and you should make a proper attempt at assignment/program. This question will now be closed and you will have to post a new question when you're ready. I strongly recommend reading the posting guidelines.

MODERATOR