超级列表框内容无法批量写入MDB数据库

kuersky

请问大大！超级列表框导入execl数据后，我想从第二列开始（序号不写入）批量写入MDB数据库老是失败，帮帮新手小白吧！


补充内容 (2024-9-4 01:11):
请大大们帮我改改源码

补充内容 (2024-9-4 01:18):
小白跪求大大来啊

影纸

没有模块 用的固定数据  只改了  保存任务单  子程序


补充内容 (2024-9-4 11:31):
给你一个语句格式建议，先在数据库里试运行，成功了，再套程序里的变量数据

kuersky

大大们棒棒忙

辽阳小哲

没有模块，没测试，简单看了一下源码，你的全局变量没有赋值，所以根本无法执行入库操作。添加如下语句尝试一下。

影纸

  

子程序名	返回值类型	公开	备 注
保存任务单

变量名	类 型	静态	数组	备 注
操作记录集	ADODB记录集类
i	整数型
i1	整数型
SQL语句	文本型
写入的数据	文本型
字段名	文本型
文本内容	文本型

数据有几行 ＝ 1
计次循环首 (数据有几行, i)
' insert into stu_info[(stu_id,stu_gender)] values('王五',22)[,(10003,'F')];
字段名 ＝ “insert into WFGZ(乡镇,村民委员会,户主姓名,sfz号码,原住房等级,身份类型,改造方式,家庭人口,建房面积,是否有厨房,是否有厕所,是否拆旧,是否合格,补助金额,发放日期,账号,电话号码,备注) values ('”
变量循环首 (1, 18, 1, i1)
文本内容 ＝ 超级列表框_主窗口.取标题 (i － 1, i1)
如果真 (文本内容 ＝ “”)
文本内容 ＝ “无数据”
如果 (i1 ＝ 18)
写入的数据 ＝ 写入的数据 ＋ 文本内容 ＋ “'”
写入的数据 ＝ 写入的数据 ＋ 文本内容 ＋ “','”

变量循环尾 ()
写入的数据 ＝ 写入的数据 ＋ 超级列表框_主窗口.取标题 (i － 1, 18) ＋ “)”
SQL语句 ＝ 字段名 ＋ 写入的数据
调试输出 (SQL语句)
数据库连接.执行SQL (SQL语句)
写入的数据 ＝ “”
计次循环尾 ()
操作记录集.关闭 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 保存任务单<br /> .局部变量 操作记录集, ADODB记录集类<br /> .局部变量 i, 整数型<br /> .局部变量 i1, 整数型<br /> .局部变量 SQL语句, 文本型<br /> .局部变量 写入的数据, 文本型<br /> .局部变量 字段名, 文本型<br /> .局部变量 文本内容, 文本型<br /> <br /> 数据有几行 ＝ 1<br /> .计次循环首 (数据有几行, i)<br />     ' insert into stu_info[(stu_id,stu_gender)] values('王五',22)[,(10003,'F')];<br />     字段名 ＝ “insert into WFGZ(乡镇,村民委员会,户主姓名,sfz号码,原住房等级,身份类型,改造方式,家庭人口,建房面积,是否有厨房,是否有厕所,是否拆旧,是否合格,补助金额,发放日期,账号,电话号码,备注) values ('”<br />     .变量循环首 (1, 18, 1, i1)<br />         文本内容 ＝ 超级列表框_主窗口.取标题 (i － 1, i1)<br />         .如果真 (文本内容 ＝ “”)<br />             文本内容 ＝ “无数据”<br />         .如果真结束<br />         .如果 (i1 ＝ 18)<br />             写入的数据 ＝ 写入的数据 ＋ 文本内容 ＋ “'”<br />         .否则<br />             写入的数据 ＝ 写入的数据 ＋ 文本内容 ＋ “','”<br />         .如果结束<br /> <br />     .变量循环尾 ()<br />     写入的数据 ＝ 写入的数据 ＋ 超级列表框_主窗口.取标题 (i － 1, 18) ＋ “)”<br /> <br />     SQL语句 ＝ 字段名 ＋ 写入的数据<br />     调试输出 (SQL语句)<br />     数据库连接.执行SQL (SQL语句)<br />     写入的数据 ＝ “”<br /> .计次循环尾 ()<br /> <br /> 操作记录集.关闭 ()

因为没有excel模块，我直接用的固定数据
保存任务单 子程序里
数据有几行 变量没有赋值

写入的数据 ＝ 写入的数据 ＋ 文本内容 ＋ “','”   这里，格式有误

改为
  .版本 2
        .如果 (i1 ＝ 18)
            写入的数据 ＝ 写入的数据 ＋ 文本内容 ＋ “'”
        .否则
            写入的数据 ＝ 写入的数据 ＋ 文本内容 ＋ “','”