透過ADO存取FoxPro資料庫檔案(dbf)的方法

摘要:透過ADO存取FoxPro資料庫檔案(dbf)的方法

 

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

conn.Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDb=d:\backup\"
rs.Open "SELECT * FROM tt.dbf", conn


rs.MoveFirst
For I = 0 To rs.Fields.Count - 1
  TTT = TTT & rs.Fields(I).Name & ","
Next I
MsgBox TTT
Do
  MsgBox rs.Fields(0).Value
  rs.MoveNext
Loop Until rs.EOF  
 

 

初步發現.....
當此步驟放在COM+中
並且COM+支援了異動.....
此時會出現Driver...無法運作的問題
--->
初步的解決方式....
利用無異動的CLASS來處理這一段
有進一步方式再回報


以下是簽名:


Microsoft MVP
Visual Studio and Development Technologies
(2005~2019/6) 
topcat
Blog:http://www.dotblogs.com.tw/topcat