| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1228 人关注过本帖
标题:vb登录界面问题
只看楼主 加入收藏
哒哒哒哒哒哒
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2017-4-27
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
vb登录界面问题
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 用户记录 where 用户名='" + Text1.Text + "'"
Adodc1.Refresh
If Text1 = "" Then
    MsgBox "请输入用户名"
    Text1.SetFocus
    Exit Sub
  End If
  If Text2 = "" Then
    MsgBox "请输入密码"
    Text2.SetFocus
    Exit Sub
  End If
 If Adodc1.Recordset.EOF = True Then
 MsgBox "该用户名不存在!"
 Exit Sub
 End If
  If Text1.Text <> "" And Text2.Text <> "" Then
    MsgBox "登录成功"
    Load MDIForm1
    MDIForm1.Show
    Unload Me
    End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End
End Sub

图片附件: 游客没有浏览图片的权限,请 登录注册




为什么,代码有错误吗
搜索更多相关主题的帖子: Sub Text1 Text If End 
2017-04-30 20:42
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:941
专家分:5244
注 册:2015-8-10
收藏
得分:10 
应该是代码中的控件不存在
2017-05-01 10:26
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:10 
怎么都是老问题,二个可能:
一、估计你在界面没有添加 Adodc1 控件,这个可能性最大。
二、没有连接数据库,Adodc1 必须首先连接数据库,Adodc1.RecordSource = "select * from 用户记录 where 用户名='" + Text1.Text + "'" 语句是连接数据库以后打开记录集。
Adodc1.ConnectionString = "连接数据库的语句"  ,这个语句是连接数据库的,没有连接数据库,就没有数据库对象,也有可能出现 424 错误。
至于具体的 “连接数据库的语句”根据数据库不同,连接语句是不一样的。

请不要选我!!!
2017-05-01 16:09
快速回复:vb登录界面问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015796 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved