| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1904 人关注过本帖, 2 人收藏
标题:VB连接access数据库问题
只看楼主 加入收藏
冷酷到底1
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2016-5-3
结帖率:100%
收藏(2)
已结贴  问题点数:20 回复次数:3 
VB连接access数据库问题
  access中建立了一个用户登录表如图  
图片附件: 游客没有浏览图片的权限,请 登录注册
怎么用VB连接上它实现如下所示登录界面
图片附件: 游客没有浏览图片的权限,请 登录注册
  具体的步骤和代码请帮忙说一下
搜索更多相关主题的帖子: 数据库 access 用户登录 
2016-05-16 13:25
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:10 
看样子你对VB一点还不了解。你第二张图的界面跟你的数据库可以说一毛钱关系都没有,你喜欢如何设计都可以。
这个窗口是后台代码去判断是否有这样用户名的一条信息。
下面是一个例子,你学习一下吧
程序代码:

 Dim cn As ADODB.Connection

 Set cn = New ADODB.Connection

 Dim myrec As ADODB.Recordset

 cn.ConnectionString = TheConStr   '替换成联系你数据库的代码
 cn.Open


 Set myrec = New ADODB.Recordset

 sqltxt="Select * from 用户登录 where 用户名='"  & trim(textbox1.text) & "' And 密码='" & textbox2.text & "'"   '这里表名、字段名、控件名按照实际情况修改
 myrec.Open Trim(sqltxt), cn, 1, 2
If myrec.RecordCount > 0 Then
   '用户名、密码匹配的代码
 Else
   '用户名或者密码错误的代码
 End If
2016-05-16 13:51
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:10 
搞不清你的这个数据库是那个版本,给你一个2003版本的连接数据库登录界面,供你参考:
图片附件: 游客没有浏览图片的权限,请 登录注册
这是设计界面,下面是代码:
程序代码:
Dim ASK As Integer, DLSF As Boolean
Dim cn As New ADODB.Connection, RS As New ADODB.Recordset    '这部分在通用部分定义变量

Private Sub Command1_Click()
'登录
If Text1.Text = "" Then
    MsgBox "你没有填写登录用户名,请填写!", 16, "提示!"
    Exit Sub
End If
If Text2.Text = "" Then
    MsgBox "你没有填写登录用户密码,请填写!", 16, "提示!"
    Exit Sub
End If
If DLSF = "" Then
    MsgBox "你没有选择用户身份,请选择!", 16, "提示!"
    Exit Sub
End If
Dim SQLM As String
  cn.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);dbQ=" & App.Path & "\你的数据库的名称.mdb"
  cn.Open
  SQLM = "Select * From 用户登录 Where 用户名='" & Text1.Text & "' And 身份='" & DLSF & "'"
  RS.Open SQLM, cn, 2, 2
  If Not RS.EOF Then
    If RS!密码 = Text2.Text Then
        MsgBox "祝贺你!你已经成功登录!", 64, "登录成功!"
        If DLSF = True Then
        Form1.Show    '进入管理员界面
        ElseIf DLSF = False Then
        Form2.Show    '进入用户界面
        End If
        Unload Me
    Else
        MsgBox "对不起!你输入的用户密码不正确,请重新输入!", 16, "密码错误!"
        ASK = ASK + 1
        Text2.Text = ""
        Text2.SetFocus
    End If
  Else
        MsgBox "对不起!你输入的用户名不正确,请重新输入!", 16, "用户名错误!"
        ASK = ASK + 1
        Text1.Text = ""
        Text2.Text = ""
        Text1.SetFocus
  End If
  RS.Close
  cn.Close
  If ASK >= 3 Then
        MsgBox "对不起,你已经连续三次输入错误,不能继续登录,程序就退出!", 16, "登录超次!"
        End
  End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click(Index As Integer)
If Option1(0).Value = True Then
DLSF = True
ElseIf Option1(1).Value = True Then
DLSF = False
End If
End Sub

在程序的菜单点击【工程】-【引用】,在对话框选择:
图片附件: 游客没有浏览图片的权限,请 登录注册
就可以了。

请不要选我!!!
2016-05-16 13:52
焚心劫
Rank: 1
来 自:甘肃庆阳
等 级:新手上路
威 望:1
帖 子:6
专家分:9
注 册:2016-5-16
收藏
得分:0 
怎么没有链接数据库的控件
2016-05-18 09:26
快速回复:VB连接access数据库问题
数据加载中...
 
   



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

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