Sub CreateQueryDefX()
Dim dbsNorthwind As Database
Dim qdfTemp As QueryDef
Dim qdfNew As QueryDef
Set dbsNorthwind = OpenDatabase("Northwind.mdb")
With dbsNorthwind
' Create temporary QueryDef.
Set qdfTemp = .CreateQueryDef("", _
"SELECT * FROM Employees")
' Open Recordset and print report.
GetrstTemp （qdfTemp）
' Create permanent QueryDef.
Set qdfNew = .CreateQueryDef("NewQueryDef", _
"SELECT * FROM Categories")
' Open Recordset and print report.
GetrstTemp（ qdfNew）
' Delete new QueryDef because this is a demonstration.
.QueryDefs.Delete qdfNew.Name
.Close
End With
End Sub
上面的代碼是從MSDN上拷貝下來的，在VS2010下運行，已添加DAO3.6參考，為啥 OpenDatabase("Northwind.mdb") ， GetrstTemp （qdfTemp）提示出錯，未宣告變數呢？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/48485.html
下一篇：vb連接webservice