精易论坛

标题: 批量导入mdB数据库只写入一条求解决下谢谢了 [打印本页]

作者: 小集 时间: 2013-9-20 15:09
标题: 批量导入mdB数据库只写入一条求解决下谢谢了

批量导入mdB数据库只写入一条求解决下谢谢了不知道为什么上传不了附件
[e]
.版本 2
.支持库 iext
.支持库 spec

.局部变量 str, 文本型
.局部变量 arr, 文本型, , "0"
.局部变量 FileName, 文本型
.局部变量 i, 整数型
.局部变量 a, 整数型
.局部变量 arr2, 文本型, , "0"
.局部变量 x, 整数型
.局部变量数据库, 外部数据库
.局部变量 SQL, 文本型

Dialog.类型＝ 0
Dialog.初始目录＝取运行目录 ()
.如果真 (Dialog.打开 ())
FileName ＝ Dialog.文件名
str ＝ String.ReadFromFile (FileName)
arr ＝分割文本 (str, #换行符, )
str ＝ “”
i ＝取数组成员数 (arr)
.如果真 (i ＞ 0)
数据库＝ _启动窗口.外部数据库1
.计次循环首 (i, a)
arr2 ＝分割文本 (arr [a], “----”, )
.如果真 (取数组成员数 (arr2) ≥ 2)
x ＝ ListvView.插入表项 (, 到文本 (ListvView.取表项数 () ＋ 1), , , , )
ListvView.置标题 (x, 1, arr2 [1])
ListvView.置标题 (x, 2, arr2 [2])
SQL ＝ “INSERT INTO base (user, password) VALUES ({user},'{password}')”
SQL ＝子文本替换 (SQL, “{user}”, arr2 [1], , , 真)
SQL ＝子文本替换 (SQL, “{password}”, arr2 [2], , , 真)
调试输出 (SQL)
.如果真 (数据库.执行 (SQL, ))
调试输出 (“添加成功!”)
返回 ()
.如果真结束
调试输出 (“添加失败!”)
.如果真结束

.计次循环尾 ()
.如果真结束

.如果真结束

[/e]

作者: 月夜星辉 时间: 2013-9-20 18:02
[e]

SQL ＝ “INSERT INTO base (user, password) VALUES ('{user}','{password}')”[/e]

貌似前面的没有加单引号

欢迎光临精易论坛 (https://125.confly.eu.org/)