Question

VB的SQL语句大家看看那儿错了？

Dim ProName, YesOrNo As String
ProName = Replace(产品名称.Text, " ", "")
YesOrNo = "True"
Adodc1.ConnectionString = DataConnectString 'Adodc1连接
Adodc1.CommandType = adCmdText '设置记录源
Adodc1.RecordSource = "select * from 产品配件 where " + ProName + " = " + YesOrNo + " order by 编号"

Answer 1

我想ProName应该是字符串类型的，所以要加单引号
where " + ProName + " = '" + YesOrNo + "' order by 编号"

追问

还是不对呀，

追答

"select * from 产品配件 where " + ProName + " = '" + YesOrNo + "' order by 编号"
这个ProName你没有给他值，所以最后编译后的语句就成了
select * from 产品配件 where = 'true' order by 编号
这个语法肯定是错的了。
你看一下给ProName值 的地方，没有给对。

追问

我上面不是给值了吗？
ProName = Replace(产品名称.Text, " ", "")
这不是吗？怎么就没给值了？你说明白点儿！

追答

采纳了?最后是什么 问题?解决了吗?

Answer 2

Adodc1.RecordSource = "select * from 产品配件 where " + ProName + " = '" + YesOrNo + "' order by 编号"

追问

还是不对呀，

追答

把你的产品配件 表中的字段列出来看看，ProName 是生成列名的？如果不是

Adodc1.RecordSource = "select * from 产品配件 where 产品名称 = '" + YesOrNo + "' order by 编号"

追问

对，ProName = Replace(产品名称.Text, " ", "")是获取去掉空格后的产品名称.Text的值，而产品名称.Text的值是动态从数据库中下面的表中获取到的,要的是LanTouch=“True”或者EPON=“True”

然后是否为True又是通过以下的表来限制，字段和值如下：

追答

Adodc1.RecordSource = "select * from 产品配件 where " + ProName + " = '" + YesOrNo + "' order by 编号"

应该是这个，你可以定义个变量，把你的SQL生成，再把SQL语句在数据库中执行一下，看看是不是能执行。

追问

和你第一次回答的没什么区别呀，不行，执行不了，出现我上面错误的对话框