CurrentDb.QueryDefs("MsysSql")

ruanjy

CurrentDb.QueryDefs("MsysSql")  ="select * from 人员"  MsysSql 在mdb 中是查询  通过

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

roych

要创建查询。CurrentDb.CreateQueryDef

ruanjy

具体点

ruanjy

要怎样做才行....

ruanjy

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

ruanjy

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

zhuyiwen

ADP不支持CurrentDB()方法。

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

1. Dim sql as string
   
2. 
   
3. sql = "ALTER VIEW MsysSql AS " & _
   
4.    "select * from test"
   
5. 
   
6. CurrentProject.Connection.Execute sql

复制代码