返回列表 上一主題 發帖

如何擷取出Recordset的Table Name

如何擷取出Recordset的Table Name

請教各位大大
不知道是如有辨法由ADODB內的Connection或是Recordset來取得他原先連線的Table Name為何呢?
clio

回復 1# clio
試試看
工具-設定引用項目,選中 "Microsoft DAO3.6 Object Library”
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Da As DAO.Database, ta As DAO.TableDef
  4.     Set Da = DAO.OpenDatabase("路徑\Database.mdb")
  5.     For Each ta In Da.TableDefs
  6.         If InStr(ta.Name, "MSys") = 0 Then Debug.Print ta.Name
  7.     Next
  8.     Da.Close
  9. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 2# GBKEE

Hi GBKEE,
我在載入Microsoft DAO 3.6 Object Libaray時發生錯誤,不知道有方法可以解嗎?
clio

TOP

本帖最後由 c_c_lai 於 2018-2-7 07:00 編輯

回復 1# clio
回復 2# GBKEE
GBKEE 版大,新年快樂!
步驟一:
在你的 C:\Program Files (x86)\Common Files\microsoft shared\DAO  找找看是否有 DAO 目錄 ? 且內有 Dao360.dll ?
B1.png
2018-2-7 06:46

步驟二:
將該 DAO 目錄整個複製到 C:\Program Files\Common Files\microsoft shared 內 (假設你電腦是 64 位元)
B2.png
2018-2-7 06:52

[尚未註冊]
Type the following command: regsvr32 /u dao360.dll.
Hit ENTER. This will UN-REGISTER your file.

[重新註冊]
Type the following command: regsvr32 /i dao360.dll.
Hit ENTER. This will RE-REGISTER your file.

步驟三:
關閉命令提示字元,再測試你的問題。
Close the command prompt window.

TOP

回復 3# clio
A1.png
2018-2-7 07:11

TOP

回復 4# c_c_lai

感謝c_clai
經過您的告知檔案路徑後,我直接在Excel裡面指定路徑的方式就能抓取了,感謝您的協助。
clio

TOP

回復 2# GBKEE

Hi GBKEE,
感謝您的協助,我也試過了,這個是否是給Access使用,因為那個路徑我不清楚,所以試不出來,
我是用Excel裡面的VBA去抓SQL或是ORACLE等多個Database,一開始是把連線到的資料轉回Recordset,再使用Recordset來做後續找搜比對的工作,
因為有新增一個工能,需要作代有萬用字元的比對,所以無法使用Recordset.Find的方法來完成,只好需要重新連結SQL或ORACLE,然後從Recordset的資訊,好像又無法快速得到Table Name
才想請教大大,是否有更好的方法,還是我只能從Recordset.Source的字串資訊來擷取嗎?
對不起由於我對這方面不是很了解,或許會問了很奇怪的問題,還請見諒,感謝您。
clio

TOP

本帖最後由 GBKEE 於 2018-2-7 11:04 編輯

回復 7# clio
  1. Option Explicit
  2. '引用:Microsoft Ado Ext.2.x For DDL And Security
  3. Sub Ex_Ado()
  4.     Dim myCat As New ADOX.Catalog, myBook As String, i As Integer
  5.     Dim strUser As String, strPWD As String, Msg As String
  6.     myBook = "d:\excel\資料庫.xlsx"  '指定要查詢的工作簿完整名稱
  7.     Msg = UCase(Split(myBook, ".")(UBound(Split(myBook, "."))))
  8.     Select Case Msg  '建立與指定工作薄的連接
  9.         Case "XLS"
  10.             myCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" _
  11.             & "Extended Properties=Excel 8.0;" & "Data Source=" & myBook
  12.         Case Is = "XLSM", Is = "XLSX"
  13.             myCat.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" _
  14.             & "Extended Properties=""Excel 12.0 xml"";" & "Data Source=" & myBook
  15.          Case "MDB"
  16.             myCat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myBook & _
  17.             ";User ID=" & strUser & ";Jet OLEDB:Database Password=""" & strPWD & """;"
  18.     End Select
  19.     Cells.Clear
  20.     Range("A1:B1") = Array("查詢出的名稱", "處理後的名稱")
  21.     With myCat.Tables
  22.         For i = 0 To .Count - 1
  23.             Cells(i + 2, 1) = .Item(i).Name
  24.           If Msg <> "MDB" Then Cells(i + 2, 2) = Mid(.Item(i).Name, 1, Len(.Item(i).Name) - 1)
  25.         Next
  26.     End With
  27. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 8# GBKEE

感謝GBKEE大大的解答,完全符合我的需求,讓我解決了這個問題,另一個問題是想請教一下
引用:Microsoft Ado Ext.2.x For DDL And Security
我裡面有看到有二個選擇
Microsoft Ado Ext. 2.8 For DDL And Security
Microsoft Ado Ext. 6.0 For DDL And Security
不知道這二者的差異在那邊呢?
clio

TOP

TOP

        靜思自在 : 知識要用心體會,才能變成自己的智慧。
返回列表 上一主題