编程论坛 → VB6论坛

求VB将记事本数据txt数据导入到Access2010数据库的程序

vbcaonia 发布于 2016-05-04 17:02， 2589 次点击

本人初学vb，现求：VB将记事本数据txt数据导入到Access2010数据库的程序
1、数据库中建有一个表，表名为:数据,数据表中有7个字段，其名分别为：数据1，数据2，数据3，数据4，数据5，数据6，数据7
2、要导入的txt文本数据每相邻2个数字间空1格存放在电脑中某盘：硬盘的text数据不固定在哪个盘，实行自由选择。
3 5 8 9 11 15 17
6 9 21 33 44 56 66
11 22 33 44 55 66 77

点击导入按钮选，txt文件依次写入数据库表名为:数据的对应的字段中，且每行的第1个数据填写在数据1字段、第2个数据填写在数据2字段、第3个数据填写在数据3字段......依次。

3、请写出详细程序，最好有逐行说明（本人vb刚学习），特别是INSERT INTO 语句一定要详细写出。

谢谢！

只有本站会员才能查看附件，请登录

5 回复

#2

hjxlj2016-05-04 20:37

无偿的话楼主还是自己慢慢研究吧，毕竟你这问题不是一句两句能给你解决的。如果可以接受多少出点费用的话，可以加我QQ细聊。

#3

风吹过b2016-05-04 20:54

关键就在 SQL 命令。
自己研究一下如何写的。就OK了。

#4

vbcaonia2016-05-04 21:41

回复 3楼风吹过b

版主呀，其他的都搞定了，就是调试时下面这个出错，麻烦版主看看下面这句怎样写，谢谢！
sql = "insert into table1 values('"）

[此贴子已经被作者于2016-5-4 21:43编辑过]

#5

vbcaonia2016-05-04 22:07

回复 2楼 hjxlj

钓鱼。。。。。。。。。。。。。。。。。。。。。。。

#6

风吹过b2016-05-05 09:57

语法1：
INSERT INTO 表名称 VALUES (值1, 值2,....)
然后这个值1，值2，你要根据你的字段的数据类型进行引起来。
-------------
假如你的字段全是数字类型，整行读的变量是 S，已清理了多余的空格
s=Replace(s," ",",")
sql="INSERT INTO 表名称 VALUES (" & s & ");"
----------------
假如你的字段全是字符型的
s="'" & Replace(s," ","','") & "'"
sql="INSERT INTO 表名称 VALUES (" & s & ");"

1