.版本 2
.支持库 iext
.子程序 _窗口2_创建完毕
.局部变量 索引, 整数型
.局部变量 i, 整数型
打开 (取运行目录 () + “\1.edb”, , , , , , )
到首记录 ()
.计次循环首 (取记录数 (), i)
索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 读字段 (1, ))
超级列表框1.置标题 (索引, 1, 读字段 (2, ))
跳过 ()
.计次循环尾 ()
方法是逐一读取超级列表框的数据,保存到数据库中去!.版本
2
.支持库
iext
.局部变量
循环次数,
整数型
.局部变量
第一列,
文本型
.局部变量
第二列,
文本型
.局部变量
第三列,
文本型
.局部变量
SQL语句,
文本型
记录集1.置连接
(数据库连接1)
.判断循环首
(循环次数
<
超级列表框1.取表项数
())
第一列
=
超级列表框1.取标题
(循环次数,
0)
第二列
=
超级列表框1.取标题
(循环次数,
1)
第三列
=
超级列表框1.取标题
(循环次数,
2)
循环次数
=
循环次数
+
1
SQL语句
=
“insert
into
表名称
(字段1,字段2,字段3)
values
('”
+
第一列
+
“','”
+
第二列
+
“','”
+
第三列
+
“')”
记录集1.打开
(“表名称”,
#数据表名,
)
数据库连接1.执行SQL
(SQL语句)
.判断循环尾
()
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)