Office中国论坛/Access中国论坛

标题: 帮我看看这个程序，在线急等 [打印本页]

作者: sisound 时间: 2006-12-9 01:19
标题: 帮我看看这个程序，在线急等
Dim a As String
Dim STemp As String

Dim rs As ADODB.Recordset
'为定义的数据集变量分配空间
Set rs = New ADODB.Recordset
'为打开数据表“查询语句”字符变量赋值
a = InputBox("请输入五位数的单号,例如61002, 产品型号不用输入", "输入单号")
MsgBox a
STemp = "Select * From 投料单明细 where 单号='" & a & "'"（这个地方a是一个变量，请问如何写进去，我怎么写都是错的）

rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

作者: fan0217 时间: 2006-12-9 03:18
用这个试试：

STemp = "Select * From 投料单明细 where 单号=" & a &";"

作者: sisound 时间: 2006-12-9 04:01
谢谢你,就是这样,不错!!!

作者: tz-chf 时间: 2006-12-9 18:43
得到的a应该先作个判断

作者: sisound 时间: 2006-12-9 22:51
我应该判断什么呢,如何判断?

谢谢

作者: andymark 时间: 2006-12-9 23:48
单号是文本类型的则是单号='" & a & "'"

数字类型的则是单号=" & a &"

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)