連接資料庫
Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ztgxrbd.MDB;Jet OLEDB:Database Password=;admin,"
End Sub
求文本檔案TXT、Excel分別匯入access庫中表M、表N的代碼，網上一大堆都是對固定目錄檔案、固定檔案名的匯入，但菜鳥想分別通過瀏覽檔案的方式（不固定路徑）、任意檔案名分別將檔案匯入ACCESS中。
1、通過按鈕先洗掉表M資料，然后實作將TXT匯入ACCESS中表M，TXT格式為空格分隔的多欄位資料（大約有10多個欄位列）。
2、通過按鈕先洗掉表C資料，然后實作將EXCEL匯入ACCESS中表C，EXCLE有3個欄位資料。
求大咖寫一下代碼。
uj5u.com熱心網友回復：
1 VB 所用的 Jet Engine （平時所用的資料庫引擎）原本是支持文本檔案作為外部資料庫的，但它預設條件下的限制是：* 文本檔案中的記錄以換行符分隔，欄位以逗號分隔；
* 文本檔案中欄位的數量、資料型別應與要匯入的 Access 表相匹配（至少欄位數不能超出）；
* 文本檔案的擴展名是限定的幾種，不支持任意檔案名。當然，這一點可以繞過，那就是為檔案臨時改名。
2. Excel 是 Jet Engine 所支持的外部資料庫。
不明白的是，為什么樓主要匯入同一個表 M 中的欄位數會變動？
最后，利用外部資料庫匯入，最好將連接物件 cn 建立在外部資料庫上。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/116745.html