如何在VB中将txt文件导入到access中？请大家关注

[hjshen2001]

我想设置一个按钮，点击按钮，就可以打开任意文件夹，然后将指定的txt文件名选中以后，再点一个按钮就可以到入导指定位置的access数据表中？
txt文件是以，分隔的数据列。

[yoki]

如：将c:\test.txt导入到c:\a.mdb中的NewTempTable表中

Dim db As DAO.Database
Dim tbl As DAO.TableDef

On Error Resume Next
Set db = DBEngine.CreateDatabase("c:\a.mdb", dbLangGeneral)
If Err.Number = 3204 Then
Set db = Workspaces(0).OpenDatabase("c:\a.mdb")
End If
Set tbl = db.CreateTableDef("Temp")
tbl.Connect = "Text;database="c:\"
tbl.SourceTableName = "test#txt"
db.TableDefs.Append tbl
db.TableDefs.Delete "NewTempTable"
db.Execute "select temp.* into NewTempTable from temp"
db.TableDefs.Delete tbl.Name
db.Close
Set tbl = Nothing
Set db = Nothing

[hjshen2001]

试了试好像不行,怎么回事呀？
tbl.Connect = "Text;database="c:\"
这句话出错

[liaorui]

用OPEN打开TXT文件，然后把你要的数据取出来用INSERT插入数据库不就可以了吗！！

[hjshen2001]

楼上的，说的详细点好吗？

[yoki]

tbl.Connect = "Text;database="c:\"

应该是
tbl.Connect = "Text;database=c:\"

[rednod]

up

[zjcxc]

'如：将c:\test.txt导入到c:\a.mdb中的NewTempTable表中

Dim db As DAO.Database

Set db = DBEngine.CreateDatabase("c:\a.mdb", dbLangGeneral)
If Err.Number = 3204 Then
Set db = Workspaces(0).OpenDatabase("c:\a.mdb")
End If

db.Execute "SELECT * into NewTempTable FROM [Text;HDR=NO;DATABASE=C:\].test.txt"
db.Close
Set db = Nothing

[hjshen2001]

问题已经解决