查询出来的结果如何赋给变量

rocket204

我执行一个语句
docmd.runsql "select all_num,all_money from  .........................."(数据源的语句很长)
我想把结果赋予 text1 和 text1 两个字段

请问如何实现!谢谢!

rocket204

andymark,
thanks very much!

rjacky

必须要保证查询出来的结果只有一个

andymark

Dim Rs As New ADODB.Recordset
Dim Sql As String
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Sql = "select AA,BB from 表 where ......."
Rs.Open Sql, Conn, adOpenKeyset, adLockOptimistic
'假如只有一个结果
Me.txt1 = Rs.Fields("AA")
Me.txt2 = Rs.Fields("BB")
Rs.Close
Set Rs = Nothing
Set Conn = Nothing

rocket204

谢谢,
我对ado语法不熟悉!

andymark

直接用ADO操作

静儿

runsql是执行操作查询的意思，而您的"select all_num,all_money from  .........................."是个选择查询，这是错误的。如果需要读取表或查询某字段的值，您可以使用dlookup函数。

Grant

附上例子~谢谢.