动态创建查询

Question

您好，我需要通过代码（又名 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

Answer 4

不需要打开查询，只需写前2行即可，

strSQL="SELECT * FROM tblT WHERE ID =" & Forms!Form1!txtID 设置 qdf=CurrentDB.CreateQueryDef("NewQuery",strSQL)