摘要:透過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
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來處理這一段
有進一步方式再回報
以下是簽名:
- 歡迎轉貼本站的文章,不過請在貼文主旨上加上【轉貼】,並在文章中附上本篇的超連結與站名【topcat姍舞之間的極度凝聚】,感恩大家的配合。
- 小喵大部分的文章會以小喵熟悉的語言VB.NET撰寫,如果您需要C#的Code,也許您可以試著用線上的工具進行轉換,這裡提供幾個參考
Microsoft MVP Visual Studio and Development Technologies (2005~2019/6) | topcat Blog:http://www.dotblogs.com.tw/topcat |