Question

批量把txt文件插入access.把目前我手头的几千个txt文本，按标题和内容分开导入到access文件中的两个位置。

批量把txt文件插入access.把目前我手头的几千个txt文本，按标题和内容分开导入到access文件中的两个位置。

Answer 1

这个问题需要开发VB专用程序或用ACCESS数据库自带的VBA编程才能解决。编程有一定难度其代码量不会太少，不过你放心我后面有高手指导肯定能解决你的问题。
如果你没有安装VB，使用ACCESS数据库自带的VBA解决更为方便。
在提供解决方案前，请做下列事项：
一。将需要导入到ACCESS的文本文件全部存放于同一个文件夹下，而该文件夹不应该含有不需要导入ACCESS的其它文本文件；
二。请确定是用VB方案还是VBA方案？；
三。请明确ACCESS中存放数据的方式，是如下抑或其它方式？
如：数据表
字段1 字段2
文本文件名 文本文本文件的内容（例如：abcdefeg.....)

明确以上问题后，我将给出具体办法。

追问

您的叙述完全符合我的想法，至于vb还是vba我真不太懂，多谢高手，无论哪种方案，只要能做就行，恳请继续赐教

追答

好吧，根据你的情况，用ACCESS VBA解决更适合你。我假设你的电脑已经安装了OFFICE ACCESS，这是解决问题的前提。 现在开始着手编程，由于这不是一件容易的事，需要耗费一些时间，请耐心等候。

追问

多谢了

追答

打开上需要导入数据的ACCESS数据库，按下列表结构新建一个“导入数据表”
导入数据表
字段名 数据类型 大小 索引 说明

文件名 文本 255 有 选择大的字段值有利于存放
较长的文件名另外添加索引
可以加快查询速度

内容 备注 无 文本数据类型最大只能存贮
255个字符，显然不够因此
这里选用备注类型

打开上需要导入数据的ACCESS数据库，按上列表结构新建一个“导入数据表”

新建一个窗体，添加一个命令按钮，两个文本框

设置该窗体记录源为“导入数据表”，两个文本框的控件来源分别为“文件名”和“内容”完成窗体与“导入数据表”之间的绑定。

打开ACCESS数据库自带的VBE编辑器，拷贝下列代码到上述窗体模块：
'编写读取文件内容到内存的自定义函数
'编写读取文件内容到内存的自定义函数
Private Function GetFileContent(pFileName As String) As String
Dim InputData As String, Temp As String
Open pFileName For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
Temp = Temp & InputData & vbCrLf
Loop
InputData = ""
Close #1
GetFileContent = Temp
End Function
。。。。。。。。
。。。。。。。。
。。。。。。。
由于内容太多，这里已无法继续写下去，详情请到看下列百度空间文章：
http://hi.baidu.com/tjrmgs/blog/item/4be2b7624b15f464eaf8f874.html
如果你要做好的ACCESS程序。请将你的邮箱用百度消息发给我，程序电邮给你。

追问

多谢兄弟，我的邮箱是358841153@qq.com，希望您能把做好的access程序发到我邮箱中，万分感谢。顺便发个qq号给我吧，交个朋友，我是做网站的，用得着的地方请说话。

追答

自己做的话，请按文章链接所示详细步骤去做就行了。有关程序已经做好运行无误，采纳后发给你。