Question

【易语言】如何把超级列表框的数据内容保存到MDB数据库！！

我做了一个程序，想把超级列表框的所有数据把保存到ACCESS数据里面，我写的代码是：.
版本 2
.支持库 iext
.子程序 _保存按钮
.局部变量 导入数据表, 文本型, , "0"
.局部变量 计次, 整数型

外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\systemdata.mdb”, , , , )
导入数据表 ＝ { “货品编号”, “货品名称”, “规格”, “单位”, “数量”, “单价”, “金额”, “单据编号”, “进货日期”, “入帐时间” }
.计次循环首 (超级列表框_主窗口.取表项数 (), 计次)
.如果 (外部数据库1.执行 (“insert into 进货表 (货品编号,货品名称,规格,单位,数量,单价,金额,单据编号,进货日期,入帐时间) values ('” ＋ 超级列表框_主窗口.取标题 (计次 － 1, 0) ＋ “','” ＋ 超级列表框_主窗口.取标题 (计次 － 1, 1) ＋ “','” ＋ 超级列表框_主窗口.取标题 (计次 － 1, 2) ＋ “','” ＋ 超级列表框_主窗口.取标题 (计次 － 1, 3) ＋ “','” ＋ 超级列表框_主窗口.取标题 (计次 － 1, 4) ＋ “','” ＋ 超级列表框_主窗口.取标题 (计次 － 1, 5) ＋ “','” ＋ 超级列表框_主窗口.取标题 (计次 － 1, 6) ＋ “','” ＋ 超级列表框_主窗口.取标题 (计次 － 1, 7) ＋ “','” ＋ 超级列表框_主窗口.取标题 (计次 － 1, 8) ＋ “')”, ) ＝ 假)

.否则
信息框 (“导入Excel数据失败”, #警告图标, )
返回 ()
.如果结束

.计次循环尾 ()
外部数据库1.关闭 ()
信息框 (“导入Excel数据成功”, 0, )
导入Excel.销毁 ()
超级列表框内容是：货品编号, 货品名称, 规格, 单位, 数量, 单价, 金额, 单据编号, 进货日期, 入帐时间
数据库：systemdata.mdb
表名：进货表
字段：货品编号, 货品名称, 规格, 单位, 数量, 单价, 金额, 单据编号, 进货日期, 入帐时间

Answer 1

.版本 2
.支持库 iext

.局部变量 变量, 整数型

.计次循环首 (超级列表框_主窗口.取表项数 (), 变量)
外部数据库.执行 ("insert into 进货表
(货品名称, 规格, 单位, 数量, 单价, 金额, 单据编号, 进货日期, 入帐时间) values ('" + 超级列表框_主窗口.取标题 (变量 － 1, 0) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 1) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 2) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 3)+"','"+ 超级列表框_主窗口.取标题 (变量 － 1, 4) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 5) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 6) + "','" + 超级列表框_主窗口.取标题 (变量 － 1, 7)+ "','" + 超级列表框_主窗口.取标题 (变量 － 1, 8) + "')", )
.计次循环尾 ()

Answer 2

哥们，你这样问没人回答得了你的问题！
因为你的程序源码上的sql语句别人是写了一个方法给你，并没写真实代码。
insert into 进货表 (货品编号,货品名称,规格,单位,数量,单价,金额,单据编号,进货日期,入帐时间
这个sql语句是根据你数据库表的字段来决定的。
比如：insert into mydb (id,name……等等！是需要参照数据库结构来写的！