小男孩‘自慰网亚洲一区二区,亚洲一级在线播放毛片,亚洲中文字幕av每天更新,黄aⅴ永久免费无码,91成人午夜在线精品,色网站免费在线观看,亚洲欧洲wwwww在线观看

搜索
分享

透過ODBC載入XLS資料庫

 悟靜 2009-07-17
透過ODBC載入XLS資料庫 - 小瓜瓜 首頁
●有一個名為c:\classmate.xls的Excel檔案，用ADO透過ODBC把他讀出來。
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,
Next
Print
Do Until Res.EOF
For i = 0 To Res.Fields.Count - 1
Print Res.Fields(i).Value,
Next
Print
Res.MoveNext
Loop
End Sub

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

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

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多