एमएस एक्सेस 2010: "कोई और डेटाबेस नहीं खोल सकता है।"

Question

एक भी विरासत एमएस एक्सेस आवेदन मैं इस अजीब त्रुटि का सामना करना पड़ा के साथ संघर्ष कर एक ओर जहां:

Cannot open any more databases. 

आवेदन UNION एसक्यूएल बयान की काफी उपयोग किया है। तो ऐसा लगता है कि 2048 ओपन टेबल की सीमा को मारने का उपयोग होता है। इन यूनियनों से छुटकारा पाने से कोई और मौका?

Answer 1

लिंक किए गए बाहरी तालिकाओं का उपयोग करते समय मुझे यह समस्या थी। सीमा तक पहुंच गई थी क्योंकि लगभग 10 एक्सेल फाइलों का इस्तेमाल अलग-अलग प्रश्नों से बार-बार किया जाता था। इसलिए खुली तालिकाओं की संख्या प्रश्नों और तालिकाओं के उत्पाद को कम या कम थी।

मुझे लगता है कि यूनियनों का उपयोग करके इस समस्या को भी गुणा करता है।

मेरे लिए समाधान पहले से जुड़े मूल तालिकाओं में लिंक किए गए एक्सेल टेबल की प्रतिलिपि बनाना था। फिर देशी टेबल के साथ एक ही प्रश्न चलाएं।

Answer 2

इस समस्या के आसपास एकमात्र वास्तविक तरीका टेबल के एक अस्थायी सेट का उपयोग करना है। अपने यूनियनों से परिणामों को temp तालिकाओं में डालें और फिर प्रति क्वेरी तालिकाओं की संख्या सीमित करने के लिए उन का उपयोग करें। मैं आमतौर पर अंडरस्कोर (_tmpCustomers) के साथ अपनी temp टेबल उपसर्ग करता हूं और फिर जब मैं कर रहा हूं तो उन्हें नष्ट कर देता हूं।

Answer 3

आपका एप्लिकेशन एक्सेस डेटाबेस पर बहुत से कनेक्शन खोलने का प्रयास कर रहा है। यह केवल आपके एसक्यूएल स्टेटमेंट में टेबल नहीं है जो 2048 तक जोड़ता है, यहां तक ​​कि रूपों, रिपोर्ट्स, कंबोबॉक्स, अनलॉक रिकॉर्ड्स इत्यादि आपके आवेदन द्वारा उपयोग किए गए कनेक्शन की संख्या में शामिल होते हैं। कुछ चीजें जिन्हें आप यहां आज़मा सकते हैं:
1. संसाधन बंद करें (जैसे रिकॉर्ड सेट) जिन्हें आप वास्तव में उपयोग नहीं कर रहे हैं।
2. यदि आप डोमेन aggergate फ़ंक्शंस (जैसे DLookup) का उपयोग कर रहे हैं, तो इसे Elookup के साथ बदलें क्योंकि यह स्पष्ट रूप से स्वयं के बाद साफ़ हो जाता है।
3. आप टेम्पलेट टेबल्स का उपयोग करने के लिए अपने एसक्यूएल कोड को संशोधित कर सकते हैं।
उम्मीद है कि यह मदद करता है।

Answer 4

अक्सर, यह कई उप-प्रारूपों और/या comboboxes/listboxes के साथ बड़े/जटिल रूपों के साथ होता है।

सौरभ कहते हैं कि क्या करने की कोशिश करें। वैसे भी अच्छी चीजें हैं। लेकिन मुझे लगता है कि ये परिवर्तन आपकी समस्या का समाधान नहीं करेंगे।

हाल ही में, मैं एक ही समस्या को हल करता हूं। मैंने पहचाना कि हमेशा तब होता है जब दिया गया फॉर्म खोला जाता है। इस रूप में कई सबफॉर्म और combos थे।

पहले। अपना फॉर्म या फॉर्म सरल बनाने का प्रयास करें: क्या आपको वास्तव में सभी सबफॉर्म की आवश्यकता है? सभी सबफॉर्म हमेशा लोड किया जाना चाहिए?

मैं एक टैब नियंत्रण के अलग-अलग पृष्ठों में सबफॉर्म वितरित करने में अपनी समस्या का समाधान करता हूं। फिर बदलें ईवेंट में गतिशील रूप से सबफॉर्म लोड और अनलोड करें।

प्रारंभ में, केवल पहले पृष्ठ पर उप-प्रारूपों में "SourceObject" संपत्ति असाइन की जानी चाहिए। बाकी, इस संपत्ति को खाली है।

परिवर्तन घटना में, कुछ इस तरह से करने की कोशिश:

Private Sub TabControl_Change 
    Dim pgn As Access.Page 
... 
    For Each varCtlSubform In Array(Me.Subform1, Me.Subform1, ...) 
     Set pgn = varCtlSubform.Parent 
     If pgn.PageIndex <> Me.TabControl.value Then 
      if varCtlSubform.SourceObject <> "" Then 
       varCtlSubform.SourceObject = "" 
      End if 
     Else 
      If varCtlSubform.SourceObject <> ctlSubform.Tag then 
       varCtlSubform.SourceObject = ctlSubform.Tag 
      End if 
     End If 
    Next 
... 
End sub 

यह सभी उप-प्रपत्र नियंत्रण पर पुनरावृति करने के लिए एक सामान्य कार्य है। यदि सक्रिय पृष्ठ में नहीं है, तो इसे अनलोड करें। अन्य मामले में, टैग संपत्ति से स्रोत ऑब्जेक्ट लें।

आप यदि "Subform1" उतार दिया जाता है तो आप इस तरह कुछ के साथ एक त्रुटि मिल जाएगा, उतार subforms, यानी के लिए संदर्भ से बचने के लिए की आवश्यकता होगी: Me.Subform1.Form.InvoiceId

यह परिवर्तन अन्य है लाभ। आपका फॉर्म तेजी से लोड होगा और नेविगेशन रिकॉर्ड तेज होगा।

Answer 5

मैं अपने अद्भुत कोड के लिए ricardohzsz धन्यवाद देना चाहता हूं! यह वास्तव में मुझे अपने डेटाबेस प्रदर्शन में सुधार करने के साथ-साथ त्रुटि 3048 को खत्म करने में मदद करता है।

मैं पोस्ट अप को वोट दूंगा लेकिन मेरे पास मतदान करने के लिए यहां पर्याप्त प्रतिष्ठा नहीं है।

मुझे अपनी जरूरतों के लिए काम करने के लिए कुछ संशोधन करना पड़ा (मुझे जोड़ों और संपादनों की अनुमति देने के लिए सबफॉर्म की आवश्यकता थी और इस कोड का उपयोग करके उन्हें केवल पढ़ने के लिए)। मैं मामले में यहां परिवर्तन पोस्टिंग कर रहा हूँ यह किसी और में मदद मिल सकती है, भी:

Private Sub TabControlMain_Change() 

Dim pgn As Access.Page 
Dim sbf As SubForm 
Dim strSubForm As String 
Dim VarCtlSubform As Variant 


For Each VarCtlSubform In Array(Me.sf1, Me.sf2, Me.sf3, etc) 
Set pgn = VarCtlSubform.Parent 
    If pgn.PageIndex <> Me.TabControlMain.Value Then 
     If VarCtlSubform.SourceObject <> "" Then 
      VarCtlSubform.SourceObject = "" 
     End If 
    Else 

     If VarCtlSubform.SourceObject <> VarCtlSubform.Tag Then 
      VarCtlSubform.SourceObject = VarCtlSubform.Tag 

      strSubForm = VarCtlSubform.Name 
      Set sbf = Screen.ActiveForm.Controls(strSubForm) 
      sbf.Form.AllowAdditions = True 
      sbf.Form.AllowEdits = True 
     End If 
    End If 
Next 

End Sub