批量导入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]

月夜星辉

[e]

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

貌似前面的没有加单引号