HPSocket 同步发送 异步 sqllite模块源码

.版本 2
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 connect, _SqliteConnect
.局部变量 tables, 文本型, , "0"
.局部变量 fields, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 dbRes, _SqliteRecordSet
.局部变量 isql, 文本型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
调试输出 (connect.GetVersion ())
调试输出 (connect.GetError ())
调试输出 (connect.Open (取运行目录 () ＋ “db.db”, , ))
' 调试输出 (connect.IsOpen ())
' 调试输出 (connect.IsTableExist (“USER”))
调试输出 (connect.GetTables (tables))
.计次循环首 (取数组成员数 (tables), i)
    调试输出 (tables [i])
.计次循环尾 ()
' 调试输出 (connect.GetFields (“USER”, fields))
' 
' 调试输出 (fields [i])
' 计次循环尾 ()
' 
' isql ＝ SqlFormat (“insert into USER values({0},'{1}','{2}')”, 到文本 (取随机数 (1, 9999)), “test123”, “易语言”, , , , , , , )
' 调试输出 (connect.Exec (isql), connect.GetChangeCount ())
' 计次循环尾 ()
dbRes.SetDB (connect.GetHandle ())
调试输出 (dbRes.Query (“SELECT ID,USERNAME,PASSWORD,STATE FROM USERS;”), dbRes.GetRowCount ())
.循环判断首 ()
    调试输出 (dbRes.ReadString (0), dbRes.ReadString (1), dbRes.ReadString (2))
.循环判断尾 (dbRes.Next ())
dbRes.Close ()
调试输出 (connect.Close ())
返回 (0)  ' 可以根据您的需要返回任意数值

@18574509150