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直接用数字代替就不出现这个问题了,到底是哪个地方出问题了呀???

Adodc1.RecordSource = "select * from b1 where 代号= " & nn

我想应该是nn不对,它实际上是查了代号是NN而不是NN的值,你应查查它的VB下怎样把变量的值取出来,是不是用&,我也不是太清楚。

Text1.Text 是字符型,应该用类型转换

可能是没有把转为integer类型,用nn = CInt(Text1.Text) 试试