I want to save data in to my ACCESS database from textboxes. My code is here.

 Private Sub BtnSubmit_Click(sender As Object, e As EventArgs) Handles BtnSubmit.Click
 Dim cb As New OleDb.OleDbCommandBuilder(DA)
 Dim dsNewRow As DataRow
 DA = New OleDb.OleDbDataAdapter(SQL, CN)
 DA.Fill(DS, "Deposit")
 dsNewRow = DS.Tables("Deposit").NewRow()
 dsNewRow.Item("Bank") = TxtBank.Text
 dsNewRow.Item("Acno") = TxtAcno.Text
 dsNewRow.Item("Name") = TxtName.Text
 DS.Tables("Deposit").Rows.Add(dsNewRow)
 DA.Update(DS, "Deposit")
 MsgBox("New Record added to the Database")
 clearall()
 End Sub

On running the programme It is interrupted and getting the following message "Update requires a valid Insert Command when passed DataRow Collection with new rows". Please correct my code Or guide me how can I save the datas from my text boxes.. Thanks in advance...

        'add yourTableName
        Dim insertCommand As New OleDb.OleDbCommand("INSERT INTO yourTableName (Bank, Acno, Name) VALUES ('" & TxtBank.Text & "','" & TxtAcno.Text & "','" & TxtName.Text & "')", CN)
        Try
            CN.Open()
            insertCommand.ExecuteNonQuery()
            MsgBox("Record Added Successfully")
        Catch ex As Exception
        Finally
            CN.Close()
        End Try

Thank you...But Where should I add your code in my code,Or should I cancel all my statements and add your code in my BtnSubmit _Click Please guide me

Ok thank you.. And If I want to 1.Delete a record 2.Update record after modification What changes I have to make in the above code please...

you should chnage the statment(Oledb command) like "DELETE FROM table WHERE Name =" & TxtName.Text & "" and other few modifications but this is a different question, there's a lot of free tutorials on this,try it on your own if you get any errors then post it.
if this question is solved then mark it as such
good luck.

Edited 2 Years Ago by oussama_1

This question has already been answered. Start a new discussion instead.