透過(guò)ODBC載入XLS資料庫(kù)

悟靜 2009-07-17

展開全文

透過(guò)ODBC載入XLS資料庫(kù) - 小瓜瓜首頁(yè)

●有一個(gè)名為c:\classmate.xls的Excel檔案，用ADO透過(guò)ODBC把他讀出來(lái)。

Private Sub Command1_Click()

Dim Con As Object, Res As Object

Set Con = CreateObject("ADODB.Connection")

Set Res = CreateObject("ADODB.Recordset")

Con.Open ("DRIVER=Microsoft Excel Driver (*.xls);DBQ=c:\classmate.xls")

Res.Open "[sheet1$]", Con

'Excel工作表名稱 + $ 才是Table的名稱喔

For i = 0 To Res.Fields.Count - 1

Print Res.Fields(i).Name,

Do Until Res.EOF

For i = 0 To Res.Fields.Count - 1

Print Res.Fields(i).Value,

Res.MoveNext

Loop

End Sub

●資料出來(lái)了，但欄位名稱有點(diǎn)奇怪..欄位名稱在Excel裡要打在第一列才行。

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來(lái)自：悟靜 > 《VB教程》

舉報(bào)/認(rèn)領(lǐng)