怎么获得查询语句的结果？

williamtan

strSQL = "select Gzddmc from 工作地点 where gzdd_ID = 工作地点.Gzdd_ID"
  DoCmd.RunSQL strSQL
  DoCmd.Requery

怎么获得Gzddmc呢？

zhengjialon

用ADO或DAO的Recordset 属性获取。

williamtan

dim dbs as datebase

提示：用户定义类型未定义

大熊

不用ADO或DAO，你在窗体里设个下拉框（隐藏不隐藏看需要），将查询放在它里面，在程序里不就能读到你想读的值了？运行查询用REQUERY

williamtan

可我要把结果打印出啊？

大熊

那更简单了，将ＳＱＬ语句放在报表数据源里啊！

guotianxin

Dim Dbs as DataBase
Dim rstTmp as RecordSet
Dim strSql as String
Dim strGzddmc as string     '取得查询结果

Set Dbs=CurrentDB
strSQL = "select Gzddmc from 工作地点 where gzdd_ID = 工作地点.Gzdd_ID"
set rstTmp=Dbs.OpenRecordSet(strSql,Dbopensnapshot)
sGzddmc=rstTmp!Gzddmc

如果要打印出来只须将strSql语句的值赋给报表的Recordsource属性即可.