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来处理这一段
有进一步方式再回报
本文探讨了在Visual FoxPro中使用ActiveX Data Objects (ADO)进行数据库操作的方法。通过示例代码展示了如何建立数据库连接,执行SQL查询,并遍历结果集。特别指出,在COM+环境中使用异动时可能出现的问题及解决方案。
3324

被折叠的 条评论
为什么被折叠?



