Unable to update record

[baban123]

da = New OdbcDataAdapter("select * from phone order by nm", cn)
            ds = New DataSet("phone")
            da.FillSchema(ds, SchemaType.Source, "phone")
            da.Fill(ds)
 
            Dim tblAuthors As DataTable
            tblAuthors = ds.Tables("phone")
 
            Dim drCurrent As DataRow
 
            drCurrent = tblAuthors.Rows(0)
            drCurrent.BeginEdit()
            drCurrent("ph") = "342"
            drCurrent.EndEdit()
 
            cmdBuilder = New OdbcCommandBuilder(da)
            da.Update(ds.GetChanges, "phone")
 

[Frinavale]

Where is the SQL update command code?
I only see select code.

-Frinny

[baban123]

I'm not doing it manually, commandbuilder is doing this for me.

cmdBuilder = New OdbcCommandBuilder(da)
 

by this code insert, update & delete command is auto-generated...

Error:::: there is no row at 0.

[Frinavale]

Sorry I didn't see the command builder.

I actually have never used a tool that generates sql commands for me...I guess I'm a bit of a control freak and like to ensure that the statements are correct by supplying them to my data adapters manually.

Anyway, I took a look at the OdbcCommandBuilder Class for more information on the class.

Try modifying their code example to suit your needs:

Public Function SelectOdbcSrvRows(ByVal connectionString As String, ByVal tableName As String) As DataSet
 
    Dim queryString As String= "select * from phone order by nm"
 
    Dim dataSet As DataSet = New DataSet
 
    Using connection As New OdbcConnection(connectionString)
        Dim adapter As New OdbcDataAdapter()
        adapter.SelectCommand =  New OdbcCommand(queryString, connection)
        Dim builder As OdbcCommandBuilder =  New OdbcCommandBuilder(adapter)
 
        connection.Open()
 
        adapter.Fill(dataSet, tableName)
 
        ' Code to modify data in DataSet here  
 
        ' Without the OdbcCommandBuilder this line would fail.
        adapter.Update(dataSet, tableName)
    End Using 
 
    Return dataSet
End Function

-Frinny

[baban123]

Guess what! It's now working properly...
Thank you very very much!!! thanks for your help.
I just changed this line...

da.Fill(ds, "phone")