展开全部
试下这个
.版本来 2
.支持库 mysql
.程序自集bai 窗口程序集1
.程序集变量 hMySql, 整数型du, , , 连接句柄
.子程zhi序 _按钮1_被单击dao
.局部变量 h, 整数型, , , 记录集句柄
.局部变量 charname, 文本型
' 注:中文表名需在两边加两点
.如果真 (hMySql = 0)
输出调试文本 (“x”)
返回 ()
.如果真结束
h = 查找记录 (hMySql, “`表名`”, “accname”, “accname='123@game.sohu.com'”, “accname ASC”)
.如果真 (h = 0)
输出调试文本 (“找不到记录”)
返回 ()
.如果真结束
.如果真 (取记录集行数 (h) > 1)
输出调试文本 (“!?”)
.如果真结束
输出调试文本 (到首行 (h))
.如果 (读字段值 (h, “charname”, charname))
组合框1.内容 = charname
.否则
输出调试文本 (“读取失败”)
.如果结束
释放记录集 (h)