|
发表于 2021-9-13 08:48:04
|
显示全部楼层
广东省深圳市
- .版本 2
- .支持库 e2ee
- .支持库 spec
- .程序集 窗口程序集_启动窗口
- .程序集变量 数据库连接池, ADODB数据库连接池
- .程序集变量 网站服务器, 网站服务器
- .子程序 __启动窗口_创建完毕
- ' MSSQL数据库操作 ()
- MYsql操作 ()
- .子程序 MSSQL数据库操作
- .局部变量 MsSql连接符, 文本型
- .局部变量 MSSQL连接状态, 逻辑型
- .局部变量 sa, 存取列表
- .局部变量 连接, ADODB数据库连接
- .局部变量 列表, 存取列表
- .局部变量 i, 整数型
- .局部变量 sql, 文本型
- ' #MsSql连接符
- MsSql连接符 = “Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=qazy_xf;Data Source=127.0.0.1”
- MSSQL连接状态 = 数据库连接池.创建 (网站服务器, MsSql连接符, “MSSQL”, , “sa”, “123”, 真, , , )
- 调试输出 (MSSQL连接状态)
- 数据库连接池.取连接 (连接).查询 (列表, “select empno,empname from hr_employee”, , , , )
- 调试输出 (列表.到文本 ())
- ' 调试输出 (列表.取文本 (1, “empname”))
- .计次循环首 (列表.取数量 (), i)
- 调试输出 (列表.取文本 (i, “empname”))
- .计次循环尾 ()
- 调试输出 (列表.取数量 ())
- sql = “execute dbo.sp_consume_ykt_query;1 @cardno = '” + “3659458685” + “',@hexkh = '” + “DA1EE87D” + “',@macid =” + “25”
- 数据库连接池.取连接 (连接)
- 调试输出 (连接.查询 (列表, sql, , , , ))
- 调试输出 (列表.到文本 ())
- .子程序 MYsql操作
- .局部变量 MsSql连接符, 文本型
- .局部变量 连接状态, 逻辑型
- .局部变量 sa, 存取列表
- .局部变量 连接, ADODB数据库连接
- .局部变量 列表, 存取列表
- .局部变量 i, 整数型
- .局部变量 sql, 文本型
- .局部变量 更新行数, 整数型
- .局部变量 参数, 存取键值表
- .局部变量 错误信息, 文本型
- ' MsSql连接符 = “Driver={MySQL ODBC 5.3 UNICODE Driver}; DataBase=zy_consume; Server=localhost; Port=3306; option=3; Charset=gbk;”
- MsSql连接符 = “Driver=MySQL ODBC 3.51 Driver; Charset=gbk; Server=localhost; Port=3306; option=4194304; DataBase=zy_consume”
- 连接状态 = 数据库连接池.创建 (网站服务器, MsSql连接符, “MySQL”, , “root”, “A5TNHa5tn6xaeg9poumobnt42”, 真, , , )
- 调试输出 (“连接状态”, 连接状态)
- 数据库连接池.取连接 (连接)
- sql = “CALL sp_consume_ykt_query1('125945874','0781C812',25)”
- 调试输出 (“执行状态”, 连接.执行 (sql, 参数, 更新行数))
- 连接.取回错误 (错误信息)
- ' 调试输出 (连接.查询 (列表, sql, , , , ))
- 调试输出 (“ss”, 参数.到文本 (), 更新行数, 错误信息)
- sql = “SELECT col1,col2,col3,col4,col5,col6,col7,col8 FROM ykt_temptable WHERE macid ='25' AND rtype ='query'”
- 连接.查询 (列表, sql, , , , )
- 调试输出 (列表.到文本 ())
复制代码 |
|