学步园

 

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来处理这一段
有进一步方式再回报