visual free basic 通過ado連接excel文件。注意程序的位數和驅動程序的位數要保持一致。
#include once "Afx/CADODB/CADODB.inc"
DIM pRecordset AS CAdoRecordset
Dim r As CVAR = ""
Dim f As CAdoField
Dim arr() As CVAR
DIM Connstr AS CVAR = "Provider=Microsoft.ace.OLEDB.12.0;Extended properties=excel 12.0;Data Source=C:\Users\FanXiaoLei\Desktop\1.xlsx"
pRecordset.CursorLocation = adUseClient
DIM SQLStr AS CVAR = "SELECT * FROM [數據$]"
DIM hr AS HRESULT = pRecordset.Open(SQLStr, Connstr, adOpenKeyset, adLockOptimistic, adCmdText)
PRINT pRecordset.RecordCount & "條記錄"
Dim flds As CAdoFields = pRecordset.Fields
ReDim arr(1 To flds.count)
For c As Long = 1 To flds.count
f.attach(flds.Item(c-1))
arr(c)=f.Name
r=r & !"\t" & f.Name
Next
PRINT r
DO While Not pRecordset.EOF
r = ""
For x As Long = LBound(arr) To UBound(arr)
r = r & !"\t" & pRecordset.Collect(arr(x))
Next
PRINT CWSTR(r,CP_UTF8)
IF pRecordset.MoveNext <> S_OK THEN EXIT DO
LOOP
運行結果: