标题: ADO问题,请教.. [打印本页] 作者: lwwvb 时间: 2004-8-12 06:50 标题: ADO问题,请教.. Dim cmd As New Command
Dim r as recordset
Set cmd.ActiveConnection = CurrentProject.Connection
SQL="SELECT ID, 型号 FROM tab产品型号 WHERE (产品名ID = @A)"
cmd.CommandType = adCmdText
cmd.CommandText = SQL
set r=cmd.Execute
最后一行不能正常运行,说要声明变量@A,如何声明?
我使用加入参数的方式,还是不行呀,看来这个SQL中"@A"另有方法去处理..
期待ADO高手的回复...
作者: 老鬼 时间: 2004-8-12 07:34
"@A"是参数还是文本？参数的话把它与SQL语气用&连接。文本用' '括住。作者: lwwvb 时间: 2004-8-12 23:14
这个应该是参数呀。。。为什么不行呢？它说要变量，变是莫名其妙。作者: jlf001 时间: 2016-4-16 22:50
#在这里快速回SQL语气用&连接复#作者: 夜归人 时间: 2016-5-27 11:42
Dim cmd As New ADODB.Command
Dim r As ADODB.Recordset
Dim P As ADODB.Parameter
Dim SQL As String
Set cmd.ActiveConnection = CurrentProject.Connection
SQL = "SELECT ID, 型号 FROM tab产品型号 WHERE (产品名ID = ?)"
cmd.CommandType = adCmdText
cmd.CommandText = SQL
Set P = cmd.CreateParameter("A", adNumeric, adParamInput)'这一行中参数具体要根据你参数的数据类型来写，这个示例是按数值型来写的
P.Value = 1 '在这一行给参数赋值
cmd.Parameters.Append P
Set r = cmd.Execute