VB+SQL,将Excel数据导入到数据集中(Recordset).
在VB6中,采用SQL方法，Select * from [表]
将Excel数据，送到数据集中，set rst = ??


[解决办法]
SELECT * into newtable

FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]



实例:

SELECT * into newtable

FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
只共参考
[解决办法]

VB code

Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetSet cn = New ADODB.Connectioncn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"Set rs = cn.Open("SELECT * FROM [sheet1$]")Debug.Print rs.GetString()