What's the problem with this code

Hi,

I just tried to update my table data... It did not shown any error... but not updating..
I could not find what mistake I did in this..
Please help me...

            Dim DSet As DataSet
            Dim Con As New SqlConnection(GetConnection)
            Dim DAdapter As SqlDataAdapter
            Dim DTble As DataTable
            Dim Qry As String
            Dim CmdBuilder As SqlCommandBuilder
            Dim DRow As DataRow
            Con.Open()
            DSet = New DataSet
            Qry = "SELECT * FROM BATCHES where [batch code]=15"
            DAdapter = New SqlDataAdapter(Qry, Con)
            DAdapter.Fill(DSet, "Batches")
            DTble = DSet.Tables("Batches")
            DRow = DTble.Rows(0)
            DRow.BeginEdit()
            DRow("Stock") = DRow("Stock") - 1
            DRow.AcceptChanges()
            DRow.EndEdit()
            CmdBuilder = New SqlCommandBuilder(DAdapter)
            DAdapter.Update(DSet, "Batches")

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

20y ago
Dim sqlcon As SqlConnection Dim dt As DataTable sqlcon = New SqlConnection(GetConnection) sqlcon.Open() Dim da As SqlDataAdapter da = New SqlDataAdapter("select * from T_CONTMASTER where CONTACTID=" + "'99'", sqlcon) Dim ds As New DataSet da.Fill(ds) DataGrid1.DataSource = ds DataGrid1.DataBind() dt = ds.Tables(0) Dim dr As DataRow dt = ds.Tables(0) dr = dt.Rows(0) dr.BeginEdit() dr("FIRSTNAME") = "Louie" dr.AcceptChanges() dr.EndEdit() Dim CmdBuilder As SqlCommandBuilder CmdBuilder = New SqlCommandBuilder(da) da.UpdateCommand = CmdBuilder.GetUpdateCommand() da.Update(ds) DataGrid1.DataSource = ds DataGrid1.DataBind() this will reflect the changes in the grid, but not in the table..