select where 语句
来源:百度知道 编辑:UC知道 时间:2024/05/30 19:37:27
Dim nn As Integer
Private Sub Command1_Click()
nn = Val(Text1.Text)
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from b1 where 代号= nn "
Adodc1.Refresh
End Sub
为什么我在文本框中输入数据库中的一个数字,运行时老是提示我"至少一个参数没有被指定值"????? 如果我把nn直接用数字代替就不出现这个问题了,到底是哪个地方出问题了呀???
Private Sub Command1_Click()
nn = Val(Text1.Text)
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from b1 where 代号= nn "
Adodc1.Refresh
End Sub
为什么我在文本框中输入数据库中的一个数字,运行时老是提示我"至少一个参数没有被指定值"????? 如果我把nn直接用数字代替就不出现这个问题了,到底是哪个地方出问题了呀???
Adodc1.RecordSource = "select * from b1 where 代号= " & nn
我想应该是nn不对,它实际上是查了代号是NN而不是NN的值,你应查查它的VB下怎样把变量的值取出来,是不是用&,我也不是太清楚。
Text1.Text 是字符型,应该用类型转换
可能是没有把转为integer类型,用nn = CInt(Text1.Text) 试试