Oracle
 sql >> डेटाबेस >  >> RDS >> Oracle

एक्सेल ओडीबीसी डेटा कनेक्शन क्वेरी प्रत्येक क्वेरी को रीफ्रेश करने के लिए लिया गया समय

कुछ इस तरह शायद (मान लें कि सभी कनेक्शन अपने परिणामों को वर्कशीट टेबल में रखते हैं, न कि पिवोटेबल में):

Sub TimeQueries()
    Dim oSh As Worksheet
    Dim oCn As WorkbookConnection
    Dim dTime As Double
    For Each oCn In ThisWorkbook.Connections
        dTime = Timer
        oCn.Ranges(1).ListObject.QueryTable.Refresh False
        Debug.Print Timer - dTime, oCn.Name, oCn.Ranges(1).Address(external:=True)
    Next
End Sub

इसे चलाने के लिए:

  1. Alt +F11 वीबीए संपादक के पास जाने के लिए।
  2. मेनू से:मॉड्यूल डालें।
  3. विंडो में कोड पेस्ट करें।
  4. वीबीए संपादक बंद करें।
  5. Alt +F8 मैक्रो की सूची लाता है। नया चुनें और रन पर क्लिक करें।
  6. Alt +F11 फिर से वीबीए संपादक के लिए।
  7. सीटीआर एल+जी परिणामों के साथ तत्काल फलक खोलता है।

यदि आप चाहते हैं कि कोड किसी सेल में लिखे, तो इस संस्करण का उपयोग करें:

Sub TimeQueries()
    Dim oSh As Worksheet
    Dim oCn As WorkbookConnection
    Dim dTime As Double
    Dim lRow As Long
    Set oSh = Worksheets("Sheet4") 'Change to your sheet name!
    oSh.Cells(1,1).Value = "Name of Connection"
    oSh.Cells(1,2).Value = "Location"
    oSh.Cells(1,1).Value = "Refresh time (s)"
    For Each oCn In ThisWorkbook.Connections
        lRow = lRow + 1
        dTime = Timer
        oCn.Ranges(1).ListObject.QueryTable.Refresh False
        oSh.Cells(lRow,3).Value = Timer - dTime
        oSh.Cells(lRow,1).Value = oCn.Name
        oSh.Cells(lRow,2).Value = oCn.Ranges(1).Address(external:=True)
    Next
End Sub



  1. Database
  2.   
  3. Mysql
  4.   
  5. Oracle
  6.   
  7. Sqlserver
  8.   
  9. PostgreSQL
  10.   
  11. Access
  12.   
  13. SQLite
  14.   
  15. MariaDB
  1. क्या Oracle में कोई अनुक्रमणिका संकुलित या अव्यवस्थित है?

  2. अनुमानी प्रतिभागियों की कभी न खत्म होने वाली आवधिक वसूली

  3. पीएल/एसक्यूएल में लूप का उपयोग किए बिना 1 से 10 कैसे प्रिंट करें?

  4. Oracle - dbms_utility.exec_ddl_statement का उपयोग कर कर्सर ठीक से क्रियान्वित नहीं कर रहा है

  5. स्वचालित रोलबैक स्क्रिप्ट oracle