这种文本该如何分割后导入数据库？

丁丁kLaRns · 发表于 2012-3-9 11:03:34

222.zip (1.63 KB, 下载次数: 34)

锦绣明天 · 发表于 2012-3-9 11:03:35

.版本 2

.程序集窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量临时数组, 文本型, , "0"
.局部变量数组, 文本型, , "0"
.局部变量文本, 文本型
.局部变量 i, 整数型
.局部变量 n, 整数型
.局部变量 SQL语句, 文本型

外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\db.mdb”, , “1, , ))  ' 打开数据库
文本＝到文本 (读入文件 (取运行目录 () ＋ “\222.txt”))
数组＝分割文本 (文本, #换行符, )
.计次循环首 (取数组成员数 (数组), i)
临时数组＝分割文本 (数组 [i], “|”, )
SQL语句＝ “insert into 表1 (编号,类别,年月,编号,作者,面值,尺寸大小,张数) values ('” ＋临时数组 [1] ＋ “','” ＋临时数组 [2] ＋ “','” ＋临时数组 [3] ＋ “','” ＋临时数组 [4] ＋ “','” ＋临时数组 [5] ＋ “','” ＋临时数组 [6] ＋ “','” ＋临时数组 [7] ＋ “','” ＋临时数组 [8] ＋ “' )”
.如果 (外部数据库1.执行 (SQL语句, ))
      信息框 (“添加人员成功”, 0, )  ' 添加成功
.否则
      信息框 (“添加人员失败”, 0, )  ' 添加失败
.如果结束

.计次循环尾 ()

冰点 · 发表于 2012-3-9 11:44:57

先用换行符做为行分割，用|做为列分隔符。在往数据库里面写入

丁丁kLaRns · 发表于 2012-3-9 11:46:18

谢谢楼上的解答，但运行中出现如下错误：
错误(5): 文本串缺少双引号或者回双引号。
编译现行易程序失败或被中止!

锦绣明天 · 发表于 2012-3-9 12:22:14

数据库部分需要你自己建个空数据表。

丁丁kLaRns · 发表于 2012-3-9 13:19:41

谢谢楼上的解答

丁丁kLaRns · 发表于 2012-3-9 13:29:26

数据库也弄好了，为什么提示导入信息失败呢？
能否帮忙看一下，谢谢！

丁丁kLaRns · 发表于 2012-3-9 15:16:12

没人帮忙给看看问题出哪了么？

丁丁kLaRns · 发表于 2012-3-9 20:03:47

哪位大侠帮我看看7楼的代码什么地方出问题了哈？
谢谢！

锦绣明天 · 发表于 2012-3-9 20:15:53

1.zip (1.31 KB, 下载次数: 31)

		自动登录	找回密码
密码			注册

[已解决] 这种文本该如何分割后导入数据库？

最佳答案

评分

点评