您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

老问题‘对像关闭不允许操作’

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

老问题‘对像关闭不允许操作'[无满意答案结贴,结贴人:yuanhan530]

发表于：2007-11-16 12:39:12 楼主

运行exe文件登录时出现这个问题，在别人电脑上就有这个问题。我的没有``是不是没有装vb
（别人的代码。看不是很懂。麻烦帮我改下吧~~~~）

private sub command1_click（)
'用来存放sql语句
dim txtsql as string
'用来存放记录集对象
dim mrc as new adodb.recordset
'用来存放返回信息
dim msgtext as string
username = ""
'判断输入用户名是否为空
if trim（text1.text = "") then
msgbox "没有这个用户，请重新输入用户名！", vbokonly + vbexclamation, "警告"
text1.setfocus
else
'查询指定用户名记录
txtsql = "select * from user_info where user_id='" & text1.text & "'"
'执行查询语句
set mrc = ＥＸＥＣutesql（txtsql, msgtext)
'mrc.open
if mrc.eof = true then
msgbox "没有这个用户，请重新输入用户名！", vbokonly + vbexclamation, "警告"
text1.setfocus
else
'判断输入密码是否正确
if trim（mrc.fields（1)) = trim（text2.text) then
me.hide
ok = true
mrc.close

username = trim（text1.text)
frmmain.show
else
msgbox "输入密码不正确，请重新输入！", vbokonly + vbexclamation, "警告"
text2.setfocus
text2.text = ""
end if
end if
end if
'记载输入密码次数
micount = micount + 1
if micount = 3 then

发表于：2007-11-16 19:17:151楼得分:0

if mrc.eof = true then 这句不行啊```。。。

发表于：2007-11-17 17:36:352楼得分:0

没人来。帖子结不了````

发表于：2007-11-18 10:37:433楼得分:0

来几个人啊。我要结帖啊`````

发表于：2007-11-18 10:42:024楼得分:0

呵呵,点无满意答案,这样你可以省点分数:)

发表于：2007-11-18 12:54:545楼得分:0

if mrc.eof = true then 这句前面的一句 'mrc.open 应该把注释给去掉,在检测mrc.eof之前应该是打开的

发表于：2007-11-18 13:07:066楼得分:0

给你个例子自己看吧
public function getversion（) as integer
dim sgetversion as string
dim getversionrs as new adodb.recordset

sgetversion = "select * from tvadgl_bbb"
on error goto errgetversion
set getversionrs = curconn.ＥＸＥＣute（sgetversion)
if not （getversionrs.eof and getversionrs.bof) then
do while not getversionrs.eof
'处理
getversionrs.movenext
loop
getversion = 0
else
getversion = 1
end if
getversionrs.close
set getversionrs = nothing
exit function
errgetversion:
getversion = 2
end function

下一篇：用程序读取access表中字段的说明出错!!向高手求助
上一篇：老问题‘对像关闭不允许操作’

其他资讯