levyuk
Well-known member
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]