Update an adapter using a dataset

levyuk

Well-known member
Joined
Jun 7, 2004
Messages
313
Location
Wales, UK
Programming Experience
3-5
Hey guys anyone know why this doesn't work.
VB.NET:
[size=2][color=#0000ff]Dim[/color][/size][size=2] ds [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]New[/color][/size][size=2] DataSet
 
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] adapter [/size][size=2][color=#0000ff]As[/color][/size][size=2] SqlDataAdapter[/size]

[size=2][size=2][color=#0000ff]Protected[/color][/size][size=2][color=#0000ff]Sub[/color][/size][size=2] LinkButtonLookup_Click([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]Object[/color][/size][size=2], [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] LinkButtonLookup.Click
 
[/size][size=2][color=#0000ff]If[/color][/size][size=2] TextBoxCustID.Text = [/size][size=2][color=#800000]""[/color][/size][size=2][color=#0000ff]Then
 
[/color][/size][size=2]LabelStatus.Text = [/size][size=2][color=#800000]"Error: You must enter a customer number"
 
[/color][/size][size=2][color=#0000ff]Else
 
[/color][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] conn [/size][size=2][color=#0000ff]As[/color][/size][size=2] SqlConnection = [/size][size=2][color=#0000ff]New[/color][/size][size=2] SqlConnection([/size][size=2][color=#800000]"Long connection string"[/color][/size][size=2])
 
adapter = [/size][size=2][color=#0000ff]New[/color][/size][size=2] SqlDataAdapter([/size][size=2][color=#800000]"sp_SelectCustomer "[/color][/size][size=2], conn)
 
adapter.SelectCommand.CommandType = CommandType.StoredProcedure
 
adapter.SelectCommand.Parameters.Add([/size][size=2][color=#0000ff]New[/color][/size][size=2] SqlParameter([/size][size=2][color=#800000]"@CustID"[/color][/size][size=2], SqlDbType.Int))
 
adapter.SelectCommand.Parameters([/size][size=2][color=#800000]"@CustID"[/color][/size][size=2]).Value = [/size][size=2][color=#0000ff]Me[/color][/size][size=2].TextBoxCustID.Text
 
adapter.Fill(ds, [/size][size=2][color=#800000]"Customer"[/color][/size][size=2])
 
[/size][size=2][color=#0000ff]Try
 
[/color][/size][size=2]TextBoxFirstname.Text = [/size][size=2][color=#0000ff]CType[/color][/size][size=2](ds.Tables(0).Rows(0).Item([/size][size=2][color=#800000]"Firstname"[/color][/size][size=2]), [/size][size=2][color=#0000ff]String[/color][/size][size=2])
 
TextBoxLastname.Text = [/size][size=2][color=#0000ff]CType[/color][/size][size=2](ds.Tables(0).Rows(0).Item([/size][size=2][color=#800000]"Lastname"[/color][/size][size=2]), [/size][size=2][color=#0000ff]String[/color][/size][size=2])
 
TextBoxStreet.Text = [/size][size=2][color=#0000ff]CType[/color][/size][size=2](ds.Tables(0).Rows(0).Item([/size][size=2][color=#800000]"Street"[/color][/size][size=2]), [/size][size=2][color=#0000ff]String[/color][/size][size=2])
 
Panel1.Visible = [/size][size=2][color=#0000ff]True
 
[/color][/size][size=2]LabelStatus.Text = [/size][size=2][color=#800000]""
 
[/color][/size][size=2][color=#0000ff]Catch[/color][/size][size=2] ex [/size][size=2][color=#0000ff]As[/color][/size][size=2] Exception
 
LabelStatus.Text = [/size][size=2][color=#800000]"Error: There is no record matching that customer number"
 
[/color][/size][size=2]Panel1.Visible = [/size][size=2][color=#0000ff]False
 
[/color][/size][size=2][color=#0000ff]Finally
 
[/color][/size][size=2][color=#008000]'adapter.Dispose()
 
[/color][/size][size=2][color=#008000]'conn.Close()
 
[/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Try
 
[/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If
 
[/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Sub[/color][/size]

[size=2][color=#0000ff][size=2][/size][size=2][color=#0000ff]Protected[/color][/size][size=2][color=#0000ff]Sub[/color][/size][size=2] LinkButtonUpdate_Click([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2][color=#0000ff]Object[/color][/size][size=2], [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] LinkButtonUpdate.Click
 
ds.Tables(0).Rows(0).Item([/size][size=2][color=#800000]"Firstname"[/color][/size][size=2]) = [/size][size=2][color=#0000ff]Me[/color][/size][size=2].TextBoxFirstname.Text [color=red]<----Doesn't work. Message is cannot find table 0[/color]
 
adapter.Update(ds, [/size][size=2][color=#800000]"Customer"[/color][/size][size=2])
 
[/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Sub
 
[/color][/size][/color][/size][/size]
 
Back
Top