Using ADO to access FoxPro database archives (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

 

Preliminary findings .....
When this step is placed in COM +
And COM + supports changes .....
In this case, the driver is not working.
--->
Preliminary solution ....
Use a class without changes to process this section
There are further ways to return back