Help with updating table - Please respond

[Gary Paris]

I am trying a test. I want to update one Last Name to "Smith". How can I
do this? What code is missing?

Dim con As New
SqlClient.SqlCo nnection("serve r=TESTSERVER;ui d=sa;pwd=;datab ase=ServiceMast er")

Dim daContact As New SqlClient.SqlDa taAdapter("SELE CT first_name,
last_name From Contact ORDER BY last_name, first_name", con)

Dim ds As New DataSet
daContact.Fill( ds, "Contact")

Dim tbl As DataTable = ds.Tables(0)
Dim row As DataRow

row.BeginEdit()
ds.Tables("Cont act").Rows(1).I tem("last_name" ) = "Smith"
row.EndEdit()

' *********** IS THIS CORRECT *********** Not sure
'daContact.Upda te(ds.Tables("C ontact"))
'

[Stef]

Hi

Try following:

daContact.updat e(ds)

regards
Stef

"Gary Paris" <ya**@test.co m> schrieb im Newsbeitrag
news:OE******** ******@TK2MSFTN GP15.phx.gbl...

I am trying a test. I want to update one Last Name to "Smith". How can I
do this? What code is missing?

Dim con As New
SqlClient.SqlCo nnection("serve r=TESTSERVER;ui d=sa;pwd=;datab ase=ServiceMast er")

Dim daContact As New SqlClient.SqlDa taAdapter("SELE CT first_name,
last_name From Contact ORDER BY last_name, first_name", con)

Dim ds As New DataSet
daContact.Fill( ds, "Contact")

Dim tbl As DataTable = ds.Tables(0)
Dim row As DataRow

row.BeginEdit()
ds.Tables("Cont act").Rows(1).I tem("last_name" ) = "Smith"
row.EndEdit()

' *********** IS THIS CORRECT *********** Not sure
'daContact.Upda te(ds.Tables("C ontact"))
'

[Gary Paris]

I tried the update you suggested but received the following error:

update unable to find TableMapping ['Table'] or DataTable 'Table'

so I changed the command to: daContact.updat e(ds.tables(0))

and received the following error:

update requires a valid Update Command when passed DataRow collection with
modified rows.
"Stef" <sh*****@swisso nline.ch> wrote in message
news:ck******** **@newshispeed. ch...

Hi

Try following:

daContact.updat e(ds)

regards
Stef

"Gary Paris" <ya**@test.co m> schrieb im Newsbeitrag
news:OE******** ******@TK2MSFTN GP15.phx.gbl...

I am trying a test. I want to update one Last Name to "Smith". How can I
do this? What code is missing?

Dim con As New
SqlClient.SqlCo nnection("serve r=TESTSERVER;ui d=sa;pwd=;datab ase=ServiceMast er")

Dim daContact As New SqlClient.SqlDa taAdapter("SELE CT first_name,
last_name From Contact ORDER BY last_name, first_name", con)

Dim ds As New DataSet
daContact.Fill( ds, "Contact")

Dim tbl As DataTable = ds.Tables(0)
Dim row As DataRow

row.BeginEdit()
ds.Tables("Cont act").Rows(1).I tem("last_name" ) = "Smith"
row.EndEdit()

' *********** IS THIS CORRECT *********** Not sure
'daContact.Upda te(ds.Tables("C ontact"))
'