如何擷取出Recordset的Table Name

clio

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

GBKEE

回復 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

複製代碼

clio

回復 2# GBKEE

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

c_c_lai

回復 1# clio
回復 2# GBKEE
GBKEE 版大，新年快樂！
步驟一：
在你的 C:\Program Files (x86)\Common Files\microsoft shared\DAO  找找看是否有 DAO 目錄 ? 且內有 Dao360.dll ？

下載 (37.99 KB)

2018-2-7 06:46

步驟二：
將該 DAO 目錄整個複製到 C:\Program Files\Common Files\microsoft shared 內 (假設你電腦是 64 位元)

下載 (56.57 KB)

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.

c_c_lai

回復 3# clio

下載 (6.84 KB)

2018-2-7 07:11

clio

回復 4# c_c_lai

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

clio

回復 2# GBKEE

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

GBKEE

回復 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

複製代碼

clio

回復 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
不知道這二者的差異在那邊呢？

c_c_lai

回復 9# clio
請參考：
https://www.google.com.tw/search ... grc=jNigEDSJFz8OfM: