VB如何将文本文件(TXT)写入ACCESS的表中?

这是一个时常能用到的方法,解高手解答,最好附上源码,谢谢!!

---

'假设有一个字段,多列字段的情况照者修改即可
MDB_ZD = InputBox("请输入数据库中欲存号码的字段名")
'假设文本文件有一列数据,循环取得存入数组 JGHaoMa(i)
'执行下面的过程,要引用ado
Sub Xr_ACCESS() '写入数据库
    Dim i As Long
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    cn.Open "dbq=" & MDB_Path & ";driver={microsoft access driver (*.mdb)}"
    For i = 1 To UBound(JGHaoMa)
      cn.Execute "insert into * (" & MDB_ZD & ") values('" & JGHaoMa(i) & "')"
    Next
    MsgBox "导入完毕"
End Sub

---

需要指定Access字段；

---

Text 转换为 Access MDB
Text 文件类型在很多软件中都为一般应用程序与数据库之间架起一座桥梁。你可以使用 Text ISAM
驱动程序和 SQL 来把 Text 文件转换成 Access MDB 数据库文件，首先，为文本文件创建一个 SCHEMA.INI
文件。然后，你可以使用下面的代码来实现转换：
Dim db As Database, tbl as TableDef
Set db = DBEngine.CreateDatabase(App.Path & "/mymdb.mdb", dbLangGeneral, dbVersion_0)
Set tbl = db.CreateTableDef("Temp")
tbl.Connect = "Text;database=c:\vbpj\data"
tbl.SourceTableName = "Customer#txt