Office中国论坛/Access中国论坛

标题: 查询出来的结果如何赋给变量 [打印本页]

作者: rocket204 时间: 2007-8-23 11:33
标题: 查询出来的结果如何赋给变量
我执行一个语句
docmd.runsql "select all_num,all_money from .........................."(数据源的语句很长)
我想把结果赋予 text1 和 text1 两个字段

请问如何实现!谢谢!

作者: Grant 时间: 2007-8-23 13:33
附上例子~谢谢.

作者: 静儿 时间: 2007-8-23 13:54
runsql是执行操作查询的意思，而您的"select all_num,all_money from .........................."是个选择查询，这是错误的。如果需要读取表或查询某字段的值，您可以使用dlookup函数。

作者: andymark 时间: 2007-8-23 13:58
直接用ADO操作

作者: rocket204 时间: 2007-8-23 14:29
标题: 可否给我一个例子?
谢谢,
我对ado语法不熟悉!

作者: andymark 时间: 2007-8-23 15:30
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

作者: rjacky 时间: 2007-8-23 17:25
必须要保证查询出来的结果只有一个

作者: rocket204 时间: 2007-8-26 14:19
andymark,
thanks very much!

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