简单: READ one Row FROM EXCEL and write to ACCESS using :SQL ,ADO connection,recoderset 从网上随便就能收到读写EXCEL,ACCESS的例子!
Dim con As Connection Dim re As RecordsetPrivate Sub Form_Load() Set con = New Connection con.Open "provider=microsoft.jet.oledb.4.0; data source=t.xls;Extended Properties=Excel 8.0;" Set re = New Recordset re.Open "select * from x", con, adOpenDynamic, adLockBatchOptimistic Set datagrid1.DataSource = re
READ one Row FROM EXCEL and write to ACCESS
using :SQL ,ADO connection,recoderset
从网上随便就能收到读写EXCEL,ACCESS的例子!
Dim re As RecordsetPrivate Sub Form_Load()
Set con = New Connection
con.Open "provider=microsoft.jet.oledb.4.0; data source=t.xls;Extended Properties=Excel 8.0;"
Set re = New Recordset
re.Open "select * from x", con, adOpenDynamic, adLockBatchOptimistic
Set datagrid1.DataSource = re