|
我用以下代码访问但不对,请高手赐教。
Dim MyCn As ADODB.Connection
Dim MyRs As ADODB.Recordset
Set MyCn = New ADODB.Connection
Set MyRs = New ADODB.Recordset
MyCn.Open "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBF;" & _
"SourceDB=e:\Data\;" & _
"Exclusive=No;\"
MyRs.Open "select * from Student.dbf", MyCn, adOpenDynamic, adLockReadOnly |
|