Imports System.Data
Imports System.Data.Odbc
Partial Class dataview
Inherits System.Web.UI.Page
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Dim myConnection As New OdbcConnection
Dim DB As New qulity1
myConnection = DB.odbccreate() //数据库连接(odbc+db2) 连接没有问题 Dim sql As String = "select * from tuser "
Dim cmd = New OdbcCommand(sql, myConnection)
Dim rd As OdbcDataReader '声明一个datareader对象
Dim mydatatable As New DataTable
myConnection.Open()
rd = cmd.executereader() '执行SQL指令,并将其结果设置给datareader
mydatatable.Load(rd) If (mydatatable.Rows).Count > 0 Then GridView1.DataSource = mydatatable
GridView1.DataBind()
Else Label1.Text = "Unable to connect to the database." End If
End Sub
End Class页面显示空白,表中有数据,连接的串没有问题,请各位帮忙看看为什么调不出数据呢?
Imports System.Data.Odbc
Partial Class dataview
Inherits System.Web.UI.Page
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Dim myConnection As New OdbcConnection
Dim DB As New qulity1
myConnection = DB.odbccreate() //数据库连接(odbc+db2) 连接没有问题 Dim sql As String = "select * from tuser "
Dim cmd = New OdbcCommand(sql, myConnection)
Dim rd As OdbcDataReader '声明一个datareader对象
Dim mydatatable As New DataTable
myConnection.Open()
rd = cmd.executereader() '执行SQL指令,并将其结果设置给datareader
mydatatable.Load(rd) If (mydatatable.Rows).Count > 0 Then GridView1.DataSource = mydatatable
GridView1.DataBind()
Else Label1.Text = "Unable to connect to the database." End If
End Sub
End Class页面显示空白,表中有数据,连接的串没有问题,请各位帮忙看看为什么调不出数据呢?
-------------------
if mydatatable.Rows.Count>0
2.(mydatatable.Rows).Count ==0 为数据库是否连接上的标志,是否过于牵强?用try..catch?