1,216
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Const db_file As String = "C:\Users\Administrator\Desktop\测试数据库\Indicators.dbc"
Private Sub Form_Load()
cn.Open "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" & db_file & ";SourceType=DBC; "
rs.Open "select * from 数据表1", cn, adOpenKeyset, adLockOptimistic
Dim i As Integer
i = rs.RecordCount
'.........
'.........
MsgBox i & " " & rs.Fields(0).Value & " " & rs.Fields(1).Value & " " & rs.Fields(2).Value
rs.Close
cn.Close
End Sub