通过MSAccess 2003中的代码动态创建查询[VBA]

Question

您好我需要通过代码（a.k.a. VB）在MSAccess 2003中创建一个查询 - 我该如何实现？

Answer 1

一个模糊的答案模糊的问题:)

strSQL="SELECT * FROM tblT WHERE ID =" & Forms!Form1!txtID 

Set qdf=CurrentDB.CreateQueryDef("NewQuery",strSQL) 
DoCmd.OpenQuery qdf.Name 

Answer 2

感谢这个答案和一小段代码。如果有人需要定义中使用的变量数据类型，使用此：

Dim strsql As Variant 
    Dim qdf As QueryDef 

Answer 3

Dim strSql As String 'as already in example 
Dim qdf As QueryDef 'as already in example 

strSql = "SELECT * FROM tblT WHERE ID =" & Forms!Form1!txtID 'as already in example 

On Error Resume Next 
'Delete the query if it already exists 
DoCmd.DeleteObject acQuery, "NewQuery" 

Set qdf = CurrentDb.CreateQueryDef("NewQuery", strSql) 'as already in example 
DoCmd.OpenQuery qdf.Name 'as already in example 

'release memory 
qdf.Close 'i changed qdef to qdf here and below 
Set qdf = Nothing