[求助] 如何将N个txt文件导入access数据库 ？？？

Question

硬盘中有几千个记事本文件每个记事本格式是一样的 很简单 就以下5行话：
【姓名】张三
【编号】0204000
【年龄】23
【部门】02-1
【生日】80-12-06
这样的记事本文件有几千个  故不能人工
用VB怎样能实现将这些txt文件导入access 
谢谢~在线等ing

Answer 1

http://access911.net/fixhtm/77FAB01E16DC.htm
看看changechange写的，如果access有什么问题这个网站是首选

Answer 2

方法二： 用 Schema.ini 文件也可以达到要求。作用：Schema.ini用于提供文本文件中记录的构架信息。每个 Schema.ini 项都用于指定表的五个特征之一：
1、文本文件名
2、文件格式
3、字段名、字段长度、字段类型
4、字符集
5、特别数据类型转换
指定文件名
文件名要用方括号括起来，例如如果要对 Sample.txt 使用数据构架信息文件，那么它的对应的项应该是
[Sample.txt] 
指定文件格式
格式说明 表格式 Schema.ini 格式描述 
Tab 制表符分隔 文件中的字段用制表符分隔 Format=TabDelimited 
CSV 分隔 文件中的字段用逗号来分隔 Format=CSVDelimited 
自定义分隔 文件中的字段可以用任何字符来分隔，所有的字符都可以用来分隔，包括空格，但是双引号 ( " ) 除外 Format=Delimited(自定义分隔符)- 或者没有分隔符 -Format=Delimited( )
 
固定宽度 文件中的字段为固定长度 cg1留言，经测试，参数为：Format=FixedLength  

Answer 3

谢谢楼上的大哥， 我看过了 那里只是涉及一个txt导入access
我这里是有N个txt    就不能这样人工完成这些点击的工作了 
我是菜鸟，人都有这么个过程， 希望各位多多包涵  谢谢~

Answer 4

因为你的文本文件不是数据表格式,所以不建议使用数据库方式读取,你可以使用一个filelistbox1控件(显示文件的那个)设置好路径显示这些文件(变成一个listbox),然后循环读取file1控件中的每一行,然后使用open读取每一个文件,如:
dim I as long
dim LineStr as string   
for I=0 to File1.ListCount -1  '使用循环遍历文件列表框
    open 路径 & "\" & file1.list(i) for input as #1
    line input #1,LineStr 'linestr 是第一行字符串,进行处理
    line input #1,LineStr 'linestr 是第二行字符串,进行处理
    line input #1,LineStr 'linestr 是第三行字符串,进行处理
    line input #1,LineStr 'linestr 是第四行字符串,进行处理
    line input #1,LineStr 'linestr 是第五行字符串,进行处理
    close #1
next i

Answer 5

dim iConc as string
iConc = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\\;" & "Extended Properties=""text;HDR=no;FMT=Delimited(;)"";"
\'引用ado2.0
dim Cn as connection 
set Cn =new connection
cn.connectionstring=iConc
cn.open
cn.execute "INSERT into [;database=c:\\test.mdb].[td] SELECT * from [test#txt]"

Answer 6

首先建立导入（导出）TXT文件的规则；文件——获取外部数据（另存为、导出）——链接表——选择需要链接的文件——链接——高级（设置规则）——保存即可。
   然后建立新宏，操作中选择TransferText并在参数设置中填写参数，执行有效后保存。接着通过工具——宏——将宏转换为VBA代码。根据实际需求将代码编写如下：
DoCmd.TransferText acImportFixed, "A11013 链接规格", _
yyyy & mm & q, "c:\\aas\\" & yyyy & mm & q & "\\0009\\a11013.txt", False, ""