rst.open "select * from XXXXX WHERE ID=a "....是否不能用条件变量

DABEN

[:30] 求助：请问a是变量时，在执行中提示“至少一个参数没有被指定值”，可用其他什么方法解决？谢谢！

Dim Conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim rst1 As New ADODB.Recordset
Dim i, ii, i1, ii1 As Integer
Dim a As String
a = Forms!XXXX!ID
Set Conn = CurrentProject.Connection
rst1.Open "select * from XXXX WHERE ID=a ", Conn, adOpenDynamic, adLockOptimistic

tz-chf

变量拿引号外面去
a是文本?

DABEN

谢谢！TZ-CHF
A是文本

DABEN

原帖由 tz-chf 于 2008-12-21 11:23 发表
变量拿引号外面去
a是文本?

老大：如何拿到引号外面？谢

Henry D. Sy

dim strSQL as string
strSQL="select * from XXXX WHERE ID='"& a & "'"
rst1.Open strSQL, Conn, adOpenDynamic, adLockOptimistic

DABEN

谢版主！

[ 本帖最后由 DABEN 于 2008-12-21 11:58 编辑 ]

DABEN

Dim Conn As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
Dim strSQL as string
Dim a As String
Dim b As Single
a = Forms!XXXX!ID             '属字符
b = Forms!XXXX!gz             '属数值
Set Conn = CurrentProject.Connection
strSQL="select * from XXXX WHERE ID='" & a & "' And gz=" & b & ""
rst1.Open strSQL, Conn, adOpenDynamic, adLockOptimistic

[ 本帖最后由 DABEN 于 2008-12-21 13:04 编辑 ]