如何用VBA代码把一段SQL语句存储为数据库中的查询?

qlm · 发表于 2006-4-21 05:21:00

gxlishuxin · 发表于 2006-4-21 06:38:00

Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQLv As String
Set dbs = CurrentDb
strSQLv = "SELECT 房屋出租.编号, 房屋出租.房屋方位, 房屋出租.户型, 房屋出租.建筑类型, 房屋出租.建筑面积, 房屋出租.建筑总层数, 房屋出租.所在层数, 房屋出租.建筑结构, 房屋出租.竣工日期, 房屋出租.总价, 房屋出租.已完成, 房屋出租.一T几户,房屋出租.产权类型, 房屋出租.备注 FROM 房屋出租 WHERE (房屋出租.已完成<>'是') ORDER BY " & Me.List排序
Set qdf = dbs.CreateQueryDef("租房记录查询", strSQLv)

qlm · 发表于 2006-4-21 07:19:00

谢谢!

nxjswt · 发表于 2006-6-19 05:59:00

[em02]虚心学习,领会代码!

红过刘德华 · 发表于 2006-6-19 14:45:00

请问如何用 ADO 来实现相同的功能呢？

hopkinslau · 发表于 2006-6-19 17:40:00

高手

我向你致敬

seeking · 发表于 2006-6-20 01:13:00

不错

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[查询] 如何用VBA代码把一段SQL语句存储为数据库中的查询?

群介绍
主题无相 (随机显示版	同地区群块其他地区)