【关于VB连接EXCEL数据库以ADODB方式】

ADODB数据库连接EXCEL的故事

唐僧ADODB想熄灭火焰
大徒弟悟空ADODB.Connection能打开Open剧情找到铁扇公主EXCEL
ADODB.Connection用Execute向公主的铁扇Sheet1$发出sql语句得到扇子数据给八戒ADODB.Recordset
随后牛魔王arr1赶来让ADODB.Recordset被骗getrows(-1)获取了数据

dim AdodbConnection as new ADODB.Connection
dim AdodbRecordset as new ADODB.Recordset
Tieshanstr=file1.path & “” & file1.filename
set AdodbConnection.open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & Tieshanstr & “;Extended Properties=”“Excel 8.0;HDR=No;IMEX=1"”"
set AdodbRecordset = AdodbConnection.execute (“select * form [Sheet1$]”)
arr1= AdodbRecordset.Getrows(-1)