डेटाबेस कनेक्शन, डेटाबेस से डेटा पुनर्प्राप्त, एक्सेल VBA का उपयोग करते हुए डीएओ में डेटा क्वेरी VBA कोड एक डेटाबेस और बुला और मौजूदा डेटाबेस क्वेरी करने के लिए इनपुट देकर retrieves डेटा कनेक्शन बनाता है.
व्याख्या एक डेटाबेस कनेक्शन VBA मेक्रो और एक प्रश्न है कि सभी बनाया तैयार है और डेटाबेस में संग्रहित के माध्यम से स्थापित है मार डाला. इस प्रश्न को भी दो अलग अलग मानकों के डेटा पुनर्प्राप्त बनाया है. विशिष्ट फिल्टर के बिना पैरामीटर क्वेरी से सभी डेटा पुन: प्राप्त करने के मामले में बाहर रखा जा सकता है. डेटाबेस कनेक्शन के इस प्रकार के सभी प्रमुख व्यापार प्रणालियों के लिए स्थापित किया जा सकता है और काफ़ी मैनुअल आंकड़ा अंतरण समय नष्ट करने के द्वारा समय और पैसा बचा सकते हैं.
आदेश में करने के लिए VBA कोड निम्नलिखित संदर्भ काम की जरूरत हो "माइक्रोसॉफ्ट डीएओ 3.6 Object पुस्तकालय सक्षम है".
पूरे VBA प्रोग्राम में डाउनलोड किया जा सकता है एक इस वेब पेज के अंत में फ़ाइल या बस कॉपी और कोड पृष्ठ से सीधे पेस्ट उत्कृष्टता!
कोड 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!डेटाबेस कनेक्शन पुनः प्राप्त डेटा DAO.xls-से-डेटाबेस querying-डेटा में एक्सेल VBA--का उपयोग कर- |
