रिकॉर्डसेट डेटा

Question

के साथ एक सरणी को कैसे पॉप्युलेट करना है मैं डेटा को सीधे एक सरणी में डेटा स्थानांतरित करने का प्रयास कर रहा हूं। मैं जानता हूँ कि यह संभव है, लेकिन विशेष रूप से मैं VBA में यह करने के लिए के रूप में इस एमएस एक्सेस में किया जा रहा है 2003

आमतौर पर मैं इस लक्ष्य को हासिल करने के लिए निम्न की तरह कुछ करना होगा चाहते हैं:

Dim vaData As Variant 
    Dim rst As ADODB.Recordset 

    ' Pull data into recordset code here... 

    ' Populate the array with the whole recordset. 
    vaData = rst.GetRows 

क्या मतभेद वीबी और वीबीए के बीच मौजूद है जो इस प्रकार के ऑपरेशन को काम नहीं करता है?

प्रदर्शन चिंताओं के बारे में क्या? क्या यह एक "महंगा" संचालन है?

Answer 1

आपका नमूना काम नहीं करेगा सामान्य कारण यह है कि एडीओ के लिए उचित लाइब्रेरी का संदर्भ नहीं दिया गया है (टूल्स-> संदर्भ, माइक्रोसॉफ़्ट एक्टिवैक्स डेटा ऑब्जेक्ट्स x.x लाइब्रेरी), अन्यथा, यह ठीक होना चाहिए।

Answer 2

मुझे लगता है कि ऐसा लगता है कि यह एक संदर्भ समस्या हो सकती है।

यदि आप एक्सेस/जेट के साथ चिपकने जा रहे हैं तो आप डीएओ का उपयोग करने पर विचार करना चाहेंगे क्योंकि सभी चीजें बराबर होती हैं तो यह तेजी से एडीओ होगी। के रूप में उल्लेख इस रेफरी समस्या हो सकती है

Dim rst   As ADODB.Recordset 
Dim vDat   As Variant 

Set rst = CurrentProject.Connection.Execute("select * from tblTemp4") 
vDat = rst.GetRows 

एक डिबग-संकलन करते हैं, यहाँ एक त्वरित उदाहरण

Public Sub Foo() 
Dim aFoo As Variant 
Dim db As DAO.Database 
Dim rst As DAO.Recordset 

Set db = DBEngine(0)(0) 
Set rst = db.OpenRecordset("tblFoo") 

With rst 
    .MoveLast 
    .MoveFirst 
    aFoo = .GetRows(.RecordCount) 
End With 

rst.Close 
db.Close 

End Sub 

Answer 3

है निम्नलिखित कोड मेरे लिए काम करता है। जैसा कि ध्यान दिया गया है, कुछ डीएओ को देखते हैं, लेकिन ध्यान रखें कि डीएओ आपको एक movelast करने की आवश्यकता है। एडीओ नहीं करता है। इन दिनों, एडीओ या डीएओ वास्तव में आपकी प्राथमिकता के लिए नीचे आता है, और प्रदर्शन शायद ही कभी एक मुद्दा है। एडीओ ऑब्जेक्ट मॉडल का थोड़ा क्लीनर बनता है, लेकिन जो भी आपका परिवार है, वह ज्यादातर मामलों में सबसे अच्छा विकल्प है

Answer 4

एक्सेस में आप एक अनुक्रमित खोज कर सकते हैं। यह बेहद तेज़ तरीका है और सरणी में खोज करने से भी तेज़ है।

Set rs = CreateObject("ADODB.Recordset") 
    rs.CursorLocation = adUseServer 
    rs.Open "MyData", CurrentProject.Connection, , , adCmdTableDirect 
    rs.Index = "fieldX" 

    rs.Seek fieldXvalue 

यदि आप सरणी की तुलना में पूरी तालिका के माध्यम से बस लूप करते हैं तो वास्तव में सबसे तेज़ है। एक अपवाद: सिद्धांत रूप में, यदि आपके पास संख्यात्मक प्राथमिक कुंजी है, तो आप इंडेक्स को सरणी में अपनी सटीक स्थिति में सेट कर सकते हैं, इसलिए कोई भी rs.find या rs.seek बिल्कुल नहीं, आप इसे सरणी (अनुक्रमणिका) जैसे ही एक्सेस कर सकते हैं और यह वास्तव में तेज़ है। मैंने अनुक्रमित खोज के खिलाफ बेंचमार्क नहीं किया, लेकिन यह तेज़ हो सकता है।