1,216
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2003-10-31
- 打赏
- 举报
'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
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
luzufu 2003-10-31
- 打赏
- 举报
ado 方式也能打开，具体代码我记不清了，你可以搜索一下！
mingtian2008 2003-10-31
- 打赏
- 举报
up
