7,763
社区成员
发帖
与我相关
我的任务
分享高手们！请实验以下[如何用ADO方式连接EXCEL文件！]第三次请问，难道无人会吗？100分！
我在用ADO方式连接EXCEL文件时，提供者选择ODBC方式--》字符串连接：DSN=Excel Files;DBQ=C:\sm.xls;DefaultDir=C:;DriverId=22;FIL=excel 5.0;MaxBufferSize=2048;PageTimeout=5;----》测试连接成功---》记录源为ADCMDTEXT。但是表或存储过程始终为空！！！！这是为什么？在DELPHI中连接出现同样的问题！！！？？
...全文
请发表友善的回复…
发表回复
playyuer 2000-08-29
- 打赏
- 举报
Dim adoConnection As New ADODB.Connection
Dim adoRecordset As New ADODB.Recordset
'非 DSN ,ODBC Provider + ODBC Microsoft Excel Driver 连接:
adoConnection.Open "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls"
'adoConnection.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=e:\temp\book1.xls"
'adoRecordset.CursorLocation = adUseClient
adoRecordset.Open "select * from [sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic
Debug.Print adoRecordset.RecordCount
Do Until adoRecordset.EOF
'For i = 0 To adoRecordset.Fields.Count - 1
Debug.Print adoRecordset.Fields.Item(0).Name
Debug.Print adoRecordset.Fields.Item(0).Value
adoRecordset.MoveNext
'Next i
Loop
Dim adoRecordset As New ADODB.Recordset
'非 DSN ,ODBC Provider + ODBC Microsoft Excel Driver 连接:
adoConnection.Open "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls"
'adoConnection.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=e:\temp\book1.xls"
'adoRecordset.CursorLocation = adUseClient
adoRecordset.Open "select * from [sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic
Debug.Print adoRecordset.RecordCount
Do Until adoRecordset.EOF
'For i = 0 To adoRecordset.Fields.Count - 1
Debug.Print adoRecordset.Fields.Item(0).Name
Debug.Print adoRecordset.Fields.Item(0).Value
adoRecordset.MoveNext
'Next i
Loop
