'引用 ADO
Dim adoConnection As New ADODB.Connection
Dim adoRecordset As New ADODB.Recordset
'Microsoft VFP:
adoConnection.Open "Provider=MSDASQL.1;Driver={Microsoft Visual Foxpro Driver (*.dbf)};SourceType=DBF;DBQ=d:\dbfs\"
adoRecordset.Open "SELECT * FROM Labels", adoConnection
Debug.Print adoRecordset.GetString
adoRecordset.Close
adoConnection.Close
'dBase:
adoConnection.Open "Provider=MSDASQL.1;Driver={Microsoft dBase Driver (*.dbf)};DBQ=d:\dbfs\"
adoRecordset.Open "SELECT * FROM animals", adoConnection
Debug.Print adoRecordset.GetString
Dim adoConnection As New ADODB.Connection
Dim adoRecordset As New ADODB.Recordset
'Microsoft VFP:
adoConnection.Open "Provider=MSDASQL.1;Driver={Microsoft Visual Foxpro Driver (*.dbf)};SourceType=DBF;DBQ=d:\dbfs\"
adoRecordset.Open "SELECT * FROM Labels", adoConnection
Debug.Print adoRecordset.GetString
adoRecordset.Close
adoConnection.Close
'dBase:
adoConnection.Open "Provider=MSDASQL.1;Driver={Microsoft dBase Driver (*.dbf)};DBQ=d:\dbfs\"
adoRecordset.Open "SELECT * FROM animals", adoConnection
Debug.Print adoRecordset.GetString
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货