私有子命令1_Click()
將cn標註為連接
將rs作為記錄集變暗
將sql顯示為字符串
Dim n壹樣長，m壹樣長
設置cn =新連接
cn。Open "Provider=Microsoft。Jet . OLEDB.4.0”& amp_
"數據源= " & ampApp。路徑與路徑。" \ test.mdb"
SQL = " SELECT * From[sheet 1 $]IN " & amp；Chr(34)和ampApp。路徑與路徑。" \ test.xls " & ampChr(34)和ampChr(32)和ampChr(34)和amp" EXCEL 8.0"& amp人權委員會(34)
調試。打印sql
設置rs = cn。執行(sql)
而不是rs。文件結束
sql = "insert into tb(id，num，dt)值(" " & amprs。字段(0)& amp；、“& amp瓦爾(rs。字段(1))& amp；，# " & amprs。字段(2)& amp；#)"
cn。執行sql，n
m = m + n
rs。下壹步
行
設置rs =無
設置cn =無
MsgBox”成功寫入數據:“&；m
末端接頭
要求:
1.當前文件夾下有壹個數據庫test.mdb，裏面有壹個名為tb的表，它的字段id，num，dt，第壹個是字符型，第二個是數值型，第三個是日期型。
2.EXCEL表格中的標題和數據類型最好與tb中的字段相對應。