[VB.NET]出错 ExecuteReader: CommandText 属性尚未初始化 帮忙看下 在线等!

出错 ExecuteReader: CommandText 属性尚未初始化 帮忙看下 在线等!

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim adapter As SqlDataAdapter

Dim ds As DataSet = New DataSet

Dim myconn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings( "connectionString ").ToString)

Dim aa As String = Request( "l ")

Dim bb As String = Request( "value ")

Dim cc As String = Request( "i_x ")

Dim dd As String = Request( "i_aa ")

Dim constr As String

If aa = Request( "k1 ") Then

constr = "Select * from CompanyContent where companyname like ''% " & bb & "% '' order by companyid desc "

End If

If aa = Request( "k2 ") Then

If cc = "全市搜索 " Then

constr = "Select * from CompanyContent where companyname like ''% " & bb & "% '' order by companyid desc "

Else

constr = "Select * from CompanyContent where companyname like ''% " & bb & "% ''and companyaddress= '' " + cc + " '' order by companyid desc "

End If

End If

adapter = New SqlDataAdapter(constr, myconn)

adapter.Fill(ds, "Orders ")

Dim pp As New PagedDataSource

pp.DataSource = ds.Tables( "Orders ").DefaultView

pp.AllowPaging = True

pp.PageSize = 20

Dim nPageCount As Integer ''保存总共的数据页面数目

Dim a = ds.Tables( "Orders ").Rows.Count ''保存记录总数

Dim nPage As Integer ''存放要浏览当前数据页面号

If pp.PageCount Mod pp.PageSize > 0 Then

nPageCount = a / pp.PageSize

nPageCount += 1

End If

nPage = Convert.ToInt32(Request.QueryString( "Page "))

If Request.QueryString( "Page ") < 1 Then

nPage = 1

End If

If Request.QueryString( "Page ") > nPageCount Then

nPage = nPageCount

End If

pp.CurrentPageIndex = nPage - 1

lblPageCount.Text = "总共 " & a.ToString() + "条纪录 "

lblmsg.Text = ( "  " & "页次: " & nPage.ToString() & "/ " & nPageCount.ToString())

lblmsg.Text += ( "  数据导航: 首 页 ")

'' If Not pp.IsFirstPage Then

lblmsg.Text += ( " 上一页 ")

'' End If

'' If Not pp.IsLastPage Then

lblmsg.Text += ( " 下一页 ")

'' End If

lblmsg.Text += ( " 尾 页 ")

dstmsg.DataSource = pp

dstmsg.DataBind()

End Sub

好象是定义string的错把

__________________________________________________________________________

有人能帮忙看下吗?

__________________________________________________________________________

请参考:

http://www.xproer.com/bbs/revert.aspx?fid=3&tid=615

__________________________________________________________________________

没看懂

__________________________________________________________________________

看一下是SQL语句，表名、列名是否匹配。

__________________________________________________________________________

是2005么，请把

Dim myconn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings( "connectionString ").ToString)

改为

Dim myconn As SqlConnection = New SqlConnection(ConfigurationManager.AppSettings( "connectionString ").ToString)

__________________________________________________________________________

匹配的 我总感觉Dim constr As String 他错了

__________________________________________________________________________

2003

__________________________________________________________________________

那您看一下运行时constr里值到底是什么吧。

__________________________________________________________________________

constr 肯定为空

__________________________________________________________________________