7,762
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
cloudtarget 2004-02-07
- 打赏
- 举报
请参考
http://expert.csdn.net/Expert/topic/2710/2710006.xml?temp=8.526248E-02
http://expert.csdn.net/Expert/topic/2710/2710006.xml?temp=8.526248E-02
oksonic 2003-12-28
- 打赏
- 举报
这个方法的确是可以用,我也正在用它..
可是。。。。
如果你的系统里面并没有Microsoft Visual Foxpro Driver的话，呵呵！！！
可是。。。。
如果你的系统里面并没有Microsoft Visual Foxpro Driver的话，呵呵！！！
northwolves 2003-12-27
- 打赏
- 举报
use ado:
'SUPPOSE YOU HAVE A DIR WHOSE HAS A TABLE NAMED "DANCI.DBF" AND IT'S PATH IS "E:\MYDBF"
Private Sub Form_Load()
Dim mycnn As New ADODB.Connection
Dim myrst As New ADODB.Recordset
mycnn.Open "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=E:\mydbf;SourceType=DBF; " 'ConnectString
myrst.Open Trim$("select * from DANCI "), mycnn, adOpenKeyset, adLockOptimistic ' OPEN A TABLE
myrst.MoveFirst
MsgBox myrst.Fields(1).Value 'CHECK WHETHER YOU HAVE DONE RIGHT
End Sub
'SUPPOSE YOU HAVE A DIR WHOSE HAS A TABLE NAMED "DANCI.DBF" AND IT'S PATH IS "E:\MYDBF"
Private Sub Form_Load()
Dim mycnn As New ADODB.Connection
Dim myrst As New ADODB.Recordset
mycnn.Open "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=E:\mydbf;SourceType=DBF; " 'ConnectString
myrst.Open Trim$("select * from DANCI "), mycnn, adOpenKeyset, adLockOptimistic ' OPEN A TABLE
myrst.MoveFirst
MsgBox myrst.Fields(1).Value 'CHECK WHETHER YOU HAVE DONE RIGHT
End Sub
