<<< 返回 access911.net 编程静态资料库索引页

如何用vba代码创建一个查询?

 

作者:  摘自:  录入:cg1  时间:2003-3-30  浏览人次:4667


专题地址:http://access911.net/fixhtm/73FAB01E14DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


方法一:

ado代码如下:

On Error Resume Next             '----- 用来预防删除指令出错 
Dim DB As New ADOX.Catalog 
Dim Qdf As New ADODB.Command 
Dim strSQL,strQueryNm As String 

strQueryNm = "查询1" 

DB.ActiveConnection = CurrentProject.Connection 
strSQL = "Select .... Where...From...;"  '--- 选择查询的 SQL 代码 
DoCmd.DeleteObject,acQuery,strQueryNm   '--- 产生新查询前先删除旧查询 
Qdf.CommadnText = strSQL 
DB.Procedures.Append strQueryNm,Qdf 

Set DB = Nothing 


 


方法二:


用VBA灵活生成查询,动态生成查询《VBA》
DAO动态生成查询:

        Dim dbs As Database, strSQL1 As String, strSQL2 As.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/73FAB01E14DC.htm

 


上一篇:打印再添一例,自动分页

下一篇:re:参数存储过程如何赋值?adp 如何调用存储过程?

2017年2月22日生成静态资料