在查询中如何引用DAO或ADO中的数据

dao动态创建查询    你参考

 

Public Sub CreateQryDf()

 

    Dim qryObject As QueryDef 

    Dim dbObject As DAO.Database

 

    Set dbObject = CurrentDB

   

      For Each qryObject In dbObject.QueryDefs

        If qryObject.Name = "阁下要的查询" Then

            dbObject.QueryDefs.Delete "阁下要的查询"

              End If

    Next

 

    Set qryObject = dbObject.CreateQueryDef("阁下要的查询")

  

    qryObject.SQL = "阁下要的查询的SQL语句"

    

    dbObject.Close 

    Set dbObject = Nothing   

End Sub

 

ado动态 创建查询

先省略吧,有需求时再说