求助：超级列表框导入ACCESS中数据

恶魔中的死神

求助：超级列表框导入ACCESS中数据

界面启动后直接加载数据库中内中到超级列表。请问应该怎样写啊？请高手赐教。没有找到相关资料。麻烦了。

ACCESS数据库，表名：系统配置_供应商信息录入。
字段名称截图

[e]
.版本 2
.支持库 xplib
.支持库 eDB
.支持库 iext
.支持库 spec
.程序集 窗口程序集5
.子程序 _系统配置_供应商信息录入_创建完毕
.局部变量 超级1, 文本型
XP风格 (#蓝色风格)
数据库连接2.连接Access (“c:\haocai\haocai.mdb”, “zhao1985316”)
记录集2.置连接 (数据库连接2)
记录集2.打开 (“系统配置_供应商信息录入”, #数据表名)
超级列表框1.插入表项 (记录集2.记录数量 － 1, 记录集2.读文本 (“系统配置_供应商信息录入”, 超级1), , , , )




.子程序 _分组框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.子程序 _编辑框5_内容被改变

.子程序 _按钮2_被单击
系统配置_供应商信息录入.销毁 ()

.子程序 _按钮1_被单击

数据库连接1.连接Access (“c:\haocai\haocai.mdb”, “zhao1985316”)
记录集1.置连接 (数据库连接1)

记录集1.打开 (“系统配置_供应商信息录入”, #数据表名)
.如果 (数据库连接1.执行SQL (“INSERT INTO 系统配置_供应商信息录入(供应商名称,供应商联系电话,联系人,拼音首字母,供应商地址,备注) VALUES('” ＋ 编辑框1.内容 ＋ “','” ＋ 编辑框2.内容 ＋ “','” ＋ 编辑框4.内容 ＋ “','” ＋ 编辑框5.内容 ＋ “','” ＋ 编辑框3.内容 ＋ “','” ＋ 编辑框6.内容 ＋ “')”) ＝ 真)
    .如果真 (信息框 (“数据添加成功。”, 0, ) ＝ #确认钮)
        连续赋值 (“”, 编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容, 编辑框5.内容, 编辑框6.内容)
    .如果真结束

.否则
    信息框 (“数据添加失败！”, 0, )
.如果结束
记录集1.关闭 ()
数据库连接1.关闭 ()
调试输出 (系统配置_供应商信息录入.数据库连接1.最后错误)



[/e]

Mercedes

我也想知道

屎加豆

你可以去看看我的那个帖子，也是用超级列表框的  数据库也是access的  挺简单的！！
http://www.3600gz.cn/thread-74049-1-2.html

a10086

好深奥饿，看来还要学习

robinjudy

加油学习！

被你发现了

循环导入呗