ADO问题,请教..

lwwvb

  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高手的回复...

老鬼

"@A"是参数还是文本？参数的话把它与SQL语气用&连接。文本用' '括住。

lwwvb

这个应该是参数呀。。。为什么不行呢？它说要变量，变是莫名其妙。

jlf001

#在这里快速回SQL语气用&连接复#

夜归人

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