vb程序 使access自动读取txt文本到access数据库中

恩，你这错误可能和声明对象相关，VBA和VB还是不同的，租袜要加adodb:

dim cn as adodb.connection

set cn=new adodb.connection

你再试下，VBA不熟悉，许多对象搞不明白，或许有更简单的方法

我把一个名称为test.txt文件也放入了C:\Documents and Settings\Desktop\1文件夹下，在这核清个文件夹下建立了一个schema.ini文件，ini文件的内容：

[test.txt]

Format=TabDelimited

因为我这个文件是用tab分隔弊氏激的，所以用TabDelimited

同时，我的数据库文件db.mdb中，存在一个tt表，字段对应test.txt文件中的字段名称

以下代码测试通过：

Dim cn As Connection

Dim sql As String

Dim n As Long

Set cn = New Connection

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0" &_

"Data Source=" &App.Path &"\db.mdb"

sql = "insert into tt select * from [test.txt] in ""C:\Documents and Settings\Desktop\1"" ""textHDR=YesFMT=Delimited"""

'如果表tt不存在：

'sql = "select * into tt from [test.txt] in ""C:\Documents and Settings\Desktop\1"" ""textHDR=YesFMT=Delimited"""

cn.Execute sql, n

MsgBox "成功插入：" &n &"行数据"

Set cn = Nothing

ACCESS是一种小型的桌面型数据库软件，是Microsoft Office办公软件里面的一款，比较简单易用，是集数据陪迟族存储和界面编程开发于一体的软件工具，主要使用VBA语言，由于是文件型的数据库，所以单纯用ACCESS开发旦橡出来的程序随着客户端链接数的增加性能会急剧下降，从我以前开发的一些程序经验来看，当客户端增加到20个以上的时候打开速度呈直线下降，所以我后来就使用ACCESS+SQL Server2000来开发一些简单的程序，因为ACCESS2000以后的版本都有一个叫ADP的格式可能链接SQL等其他比较大芦弊型的数据库，虽然ACCESS简单易学，但只是比较合适开发一些用户比较少的小程序，当然在国外也有很多ACCESS高手用它来开发ERP系统，但我个人觉得很难，所以我后来比较多的是使用Delphi+SQL Server开发一些数据库系统，但ACCESS是个很好用的软件倒是真的！

---