如何在VB中将txt文件导入到access中？请大家关注
我想设置一个按钮，点击按钮，就可以打开任意文件夹，然后将指定的txt文件名选中以后，再点一个按钮就可以到入导指定位置的access数据表中？
txt文件是以，分隔的数据列。
txt文件是以，分隔的数据列。
...全文
请发表友善的回复…
发表回复
hjshen2001 2003-10-23
- 打赏
- 举报
问题已经解决
zjcxc 2003-10-17
- 打赏
- 举报
'如：将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
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
rednod 2003-10-17
- 打赏
- 举报
up
yoki 2003-10-17
- 打赏
- 举报
tbl.Connect = "Text;database="c:\"
应该是
tbl.Connect = "Text;database=c:\"
应该是
tbl.Connect = "Text;database=c:\"
hjshen2001 2003-10-17
- 打赏
- 举报
楼上的，说的详细点好吗？
liaorui 2003-10-17
- 打赏
- 举报
用OPEN打开TXT文件，然后把你要的数据取出来用INSERT插入数据库不就可以了吗！！
hjshen2001 2003-10-17
- 打赏
- 举报
试了试好像不行,怎么回事呀？
tbl.Connect = "Text;database="c:\"
这句话出错
tbl.Connect = "Text;database="c:\"
这句话出错
yoki 2003-10-17
- 打赏
- 举报
如：将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
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
