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

2008-03-05

摘要:透過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

　　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 姍舞之間的極度凝聚