Office中国论坛/Access中国论坛

标题: CurrentDb.QueryDefs("MsysSql") [打印本页]

作者: ruanjy 时间: 2011-11-2 15:42
标题: CurrentDb.QueryDefs("MsysSql")
CurrentDb.QueryDefs("MsysSql") ="select * from 人员" MsysSql 在mdb 中是查询通过

CurrentDb.QueryDefs("MsysSql") ="select * from 人员" 出错.. MsysSql 在ADP中是视图,因为没有查询

作者: roych 时间: 2011-11-2 16:51
要创建查询。CurrentDb.CreateQueryDef

作者: ruanjy 时间: 2011-11-2 17:18
具体点

作者: ruanjy 时间: 2011-11-2 17:22
要怎样做才行....

作者: ruanjy 时间: 2011-11-2 17:36

Dim db As Database
Dim qdf As QueryDef
Set db = CurrentDb
Set qdf = CurrentDb.CreateQueryDef("MsysSql", "select * from test")
ADP 出错.........版主

作者: ruanjy 时间: 2011-11-3 08:40
用视图搞定啦.....但怎样动态修改视图

作者: zhuyiwen 时间: 2011-11-3 10:22
ADP不支持CurrentDB()方法。

用视图搞定啦.....但怎样动态修改视图

Dim sql as string
sql = "ALTER VIEW MsysSql AS " & _
"select * from test"
CurrentProject.Connection.Execute sql

复制代码

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