发表于 2016-11-11 14:24:30
|
显示全部楼层
河北省衡水市
窗口程序集名 保 留 保 留 备 注 窗口程序集_窗口1 变量名 类 型 数组 备 注 集_MYSQL句柄 整数型 集_记录集句柄 整数型
集_MYSQL句柄 =
连接MySql ( “127.0.0.1” ,
“root” ,
“root” ,
“mydb” ,
) 执行SQL语句 ( 集_MYSQL句柄,
“set names 'gbk'” ) 断开MySql ( 集_MYSQL句柄
) 变量名 类 型 静态 数组 备 注 局_SQL语句 文本型 局_计次 整数型 局_索引 整数型 局_文本 文本型
超级列表框_查询结果.
全部删除 ( ) 局_SQL语句 =
“select name,filepath from t_movie where objectguid like '%” + 编辑框1.内容 +
“%'” 如果真 ( 执行SQL语句 ( 集_MYSQL句柄, 局_SQL语句
) =
假 ) 信息框 ( “查询失败” ,
#错误图标, ,
) 返回 ( ) 到首行 ( 集_记录集句柄) 集_记录集句柄 =
取记录集 ( 集_MYSQL句柄
) 计次循环首 ( 取记录集行数 ( 集_记录集句柄
) , 局_计次
) 局_索引 = 超级列表框_查询结果.
插入表项 ( , , , , ,
) 超级列表框_查询结果.
置标题 ( 局_索引, 0,
取重复文本 ( 取文本长度 ( 到文本 ( 取记录集行数 ( 集_记录集句柄
) )
) -
取文本长度 ( 到文本 ( 局_计次
) ),
“0” ) +
到文本 ( 局_计次
) )
读字段值 ( 集_记录集句柄, 0, 局_文本
) 超级列表框_查询结果.
置标题 ( 局_索引, 1, 局_文本
) 读字段值 ( 集_记录集句柄, 1, 局_文本
) 超级列表框_查询结果.
置标题 ( 局_索引, 2, 局_文本
) 到下一行 ( 集_记录集句柄
) 计次循环尾 ( ) 释放记录集 ( 集_记录集句柄
)
评分
参与人数 1 荣誉 +1
收起
理由
笨潴
+ 1
热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻!
查看全部评分