数据库连接，从数据库中检索数据，查询数据到Excel中使用VBA的DAO 在VBA代码使一个数据库连接，电话，并给予投入，现有的数据库查询和检索数据。
解释建立一个数据库连接通过VBA宏和查询，是所有准备创建并存储在数据库中被执行。该查询检索还会创建两个不同的参数数据。这些参数可以被排除在检索从一个没有具体的过滤器查询所有数据的情况。这种类型的数据库连接可以建立到所有主要的业务系统，可节省人工消除耗时传输数据的时间和金钱。
为了使工作的VBA代码以下引用需要启用“Microsoft DAO 3.6对象库”。
整个VBA程序可以在一个Excel文件下载在本月底或网页只是复制和粘贴代码直接在网页上！
码Public Sub database_connection_retrieve_data_from_database_querying_data_into_excel_using_VBA_DAO()
Dim Database_RetrieveData_VBA_Excel As String
Dim Query_RetrieveData_VBA_Excel As String
Dim Parameter1_RetrieveData_VBA_Excel As String
Dim Parameter2_RetrieveData_VBA_Excel As String
Dim DAO_Connection_RetrieveData_VBA_Excel As String
Database_RetrieveData_VBA_Excel = Range("G3").Value
Query_RetrieveData_VBA_Excel = Range("G4").Value
Parameter1_RetrieveData_VBA_Excel = Range("G5").Value
Parameter2_RetrieveData_VBA_Excel = Range("G6").Value
DAO_Connection_RetrieveData_VBA_Excel = 0
DB1 = DBEngine.OpenDatabase(Database_RetrieveData_VBA_Excel)
Set QD1 = DB1.QueryDefs(Query_RetrieveData_VBA_Excel)
QD1.Parameters("p1") = Parameter1_RetrieveData_VBA_Excel
QD1.Parameters("p2") = Parameter2_RetrieveData_VBA_Excel
Set RS1 = QD1.OpenRecordset(dbOpenSnapshot, dbReadOnly)
Range("b11").Offset(0, 0).CopyFromRecordset RS1
RS1.Close
QD1.Close
DB1.Close
End Sub
下载Excel文件！数据库连接，检索数据从数据库，查询数据，到- Excel的使用- VBA的DAO.xls |
