汇编学习助手AsmFun开源

SqlID ＝ 超级列表框1.取标题 (ID, 0)
AsmFun ＝ 超级列表框1.取标题 (ID, 1)
SQL ＝ “SELECT FunCata,FunNote FROM FunList WHERE ID=” ＋ SqlID
' SQL ＝ “SELECT FunCata,FunNote FROM FunList WHERE FunName='” ＋ AsmFun ＋ “'”
Access数据库连接 () ' //不知道为啥 可能模块代码有点问题 最后数据库连接会关掉
_Bool ＝ ADODB记录集类.打开 (SQL, ADODB数据库类, 真, )
.如果真 (_Bool)
编辑框_FunCata.内容 ＝ ADODB记录集类.读文本 (“FunCata”)
编辑框_FunNote.内容 ＝ ADODB记录集类.读文本 (“FunNote”)
.如果真结束
ADODB记录集类.关闭 ()