0

here's my code

Dim suppQuery As String = "SELECT [Supplier ID],[Company],[Last Name],[First Name],[Email Address],[Mobile Phone],[Office Phone],[Address],[City],[ZIP/Postal Code],[Notes] FROM [Suppliers]"
        Dim dsSupp As New DataSet
        Dim daSupp As New OleDbDataAdapter(suppQuery, cnPharma)
        Dim cbSupp As New OleDbCommandBuilder(daSupp)

        Try

            daSupp.Fill(dsSupp, "Suppliers")

            Dim rownum As Integer
            rownum = listSupplier.SelectedIndex

            With dsSupp.Tables("Suppliers")
                .Rows(rownum).Item("Company") = txtCompany.Text
                .Rows(rownum).Item("Last Name") = txtLastName.Text
                .Rows(rownum).Item("First Name") = txtFirstName.Text
                .Rows(rownum).Item("Email Address") = txtEmail.Text
                .Rows(rownum).Item("Mobile Phone") = txtMPhone.Text
                .Rows(rownum).Item("Office Phone") = txtOPhone.Text
                .Rows(rownum).Item("Address") = txtAddress.Text
                .Rows(rownum).Item("City") = txtCity.Text
                .Rows(rownum).Item("ZIP/Postal Code") = txtPostal.Text
            End With
            daSupp.Update(dsSupp, "Suppliers")

it errors on the da.Update line
and by the way if it helps, the text fields are a product of datarowview. that is when you select an item on the listbox the details of that appears on the text fields. and my goal is i could edit those text fields and save them. thanks for the help

2
Contributors
2
Replies
3
Views
7 Years
Discussion Span
Last Post by theorus
0

Just guessing you also need to define the Insert, Delete and Update commands for the OleDbDataAdapter before trying to use them.

0

oh ok, well i have tried a version without those SQL statements, i'll try it though thanks

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.