Hello, I'm new to this asp.net 2.0 I need help??
My database is coming from AS400 which uses odbc Commands. i have data in the dataset but nothing showing in my gridview. However the data does show on the page. Could you please see what I'm doing wrong.
My code is down below
[code=vbnet]
Protected Sub btnSubmit_Click (ByVal sender As Object, ByVal e As System.EventArg s) Handles btnSubmit.Click
Dim myconnection As OdbcConnection
Dim myCommand As OdbcDataAdapter
Dim mydataset As New DataSet
Dim gvResults As DataTable
Dim loop1 As Integer
Dim numrows As Integer
Dim mysql As String
Dim Order As Integer
Order = CInt(txtOrderNu mber.Text)
mysql = "select line#, ordno, quano, quana, quans, c2rdt, unitm, prdno, actsp from rmsfiles2.obcop 200 where ordno = " & Order
myconnection = New OdbcConnection( "DRIVER=Cli ent Access ODBC Driver (32-bit);UID=ODBC;P WD=XXXXX;System =xxx.xxx.xxx.xx x")
myCommand = New OdbcDataAdapter (mysql, myconnection)
myCommand.Fill( mydataset, "OBCOP200")
gvResults = New DataTable
gvResults = mydataset.Table s(0)
numrows = gvResults.Rows. Count
If numrows = 0 Then
txtOrderNumber. Text = "Order#" & txtOrderNumber. Text & " invalid order number"
Else
txtOrderNumber. Text = ""
For loop1 = 0 To numrows - 1
Response.Write( Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "ordno")) & " " & Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "quano")) & " " & Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "quana")) & " " & Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "quans")) & " " & Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "c2rdt")) & " " & Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "unitm")) & " " & Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "prdno")) & " " & Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "actsp")) & " <br>")
Next loop1
gridview1.DataB ind()
End If
gridview1.DataS ource = mydataset.Table s("OBCOP200").D efaultView
gridview1.DataB ind()
gridview1.Visib le = True[/code]
My database is coming from AS400 which uses odbc Commands. i have data in the dataset but nothing showing in my gridview. However the data does show on the page. Could you please see what I'm doing wrong.
My code is down below
[code=vbnet]
Protected Sub btnSubmit_Click (ByVal sender As Object, ByVal e As System.EventArg s) Handles btnSubmit.Click
Dim myconnection As OdbcConnection
Dim myCommand As OdbcDataAdapter
Dim mydataset As New DataSet
Dim gvResults As DataTable
Dim loop1 As Integer
Dim numrows As Integer
Dim mysql As String
Dim Order As Integer
Order = CInt(txtOrderNu mber.Text)
mysql = "select line#, ordno, quano, quana, quans, c2rdt, unitm, prdno, actsp from rmsfiles2.obcop 200 where ordno = " & Order
myconnection = New OdbcConnection( "DRIVER=Cli ent Access ODBC Driver (32-bit);UID=ODBC;P WD=XXXXX;System =xxx.xxx.xxx.xx x")
myCommand = New OdbcDataAdapter (mysql, myconnection)
myCommand.Fill( mydataset, "OBCOP200")
gvResults = New DataTable
gvResults = mydataset.Table s(0)
numrows = gvResults.Rows. Count
If numrows = 0 Then
txtOrderNumber. Text = "Order#" & txtOrderNumber. Text & " invalid order number"
Else
txtOrderNumber. Text = ""
For loop1 = 0 To numrows - 1
Response.Write( Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "ordno")) & " " & Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "quano")) & " " & Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "quana")) & " " & Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "quans")) & " " & Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "c2rdt")) & " " & Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "unitm")) & " " & Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "prdno")) & " " & Server.HtmlEnco de(gvResults.Ro ws(loop1).Item( "actsp")) & " <br>")
Next loop1
gridview1.DataB ind()
End If
gridview1.DataS ource = mydataset.Table s("OBCOP200").D efaultView
gridview1.DataB ind()
gridview1.Visib le = True[/code]
Comment