贴码,一个简单的查询问题
'获取搜索关键字
Dim key As String = Me.txtKey.Text.Trim()
'关键字不空时执行搜索
If key <> " " Then
'新建连接
Dim conn As New SqlConnection
conn.ConnectionString = ConfigurationSettings.AppSettings( "ConnectionString ")
'新建命令
Dim cmd As New SqlCommand
cmd.CommandText = "Select material_id,material_name,material_specification,weight,in_time,kind,purchaser,carno,bz from material "
'按姓名搜索
cmd.CommandText += "where material_id like '% " + key + "% ' "
'按地址搜索
cmd.CommandText += "or purchaser like '% " + key + "% ' "
'按电话搜索
cmd.CommandText += "or material_specification like '% " + key + "% ' "
'按邮箱搜索
cmd.CommandText += "or bz like '% " + key + "% ' "
cmd.Connection = conn
'打开连接，执行操作，返回阅读器
conn.Open()
Dim reader As SqlDataReader = cmd.ExecuteReader()
'绑定数据
Me.myGrid.DataSource = reader
Me.myGrid.DataBind()
'关闭阅读器，释放连接
reader.Close()
conn.Close()
Else
showAll()
End If
我是初学者,我编写一个查询功能,为什么提示以下代码有问题
Dim reader As SqlDataReader = cmd.ExecuteReader()
[解决办法]
cmd.CommandText = "Select material_id,material_name,material_specification,weight,in_time,kind,purchaser,carno,bz from material "
------------->
cmd.CommandText = "Select material_id,material_name,material_specification,weight,in_time,kind,purchaser,carno,bz from material "
最后少了个空格，如果还是报错，断点跟踪一下，看看最后cmd.CommandText的内容是什么
[解决办法]
同意上面的!
[解决办法]
看看 Select 和 bz后面少空格了没有,还有习惯上
"where material_id like '% " + key + "% ' "
"or purchaser like '% " + key + "% ' "
where和or前面都改加个空格,以避免意外
