当前位置:数据库 > Access >>

VB如何连接Access数据库

最近做毕业设计,要用VB做超市收银系统,遇到问题了,希望大家帮忙,谢谢! 就是做收银系统登录时,根据不同的用户级别有不同的界面,界面已经做好了,就是在登录界面连接Access数据库是出问题,就是想请教各位用VB如何连接Access数据库,希望大家帮帮忙,我没学过这方面,时间又紧。如果有对这方面熟悉的 给我指点指点 最好能讲清楚一点 如何连接 具体的操作讲一下 万分感谢时!!
补充:帮忙看看这段代码的意思,谢谢
Dim Sql As String
Dim RS As ADODB.Recordset

Private Sub cmdOk_Click()
'登录
If Trim(Me.txtName.Text) <> "" Then
    Sql = "select 密码 from 密码表 where 用户名='" & Trim(Me.txtName.Text)
    Sql = Sql & "' and 类型='" & Trim(Me.cboType.Text) & "'"
    Set RS = dbSelect(Sql)
    If RS.EOF Then
        MsgBox "无此用户!"
    Else
        If Me.txtPwd.Text = RS.Fields(0) Then
            mdiMain.Show
            If Me.cboType.Text = "管理员" Then
                mdiMain.mnuSysSetUser.Visible = False
                mdiMain.mnuSysDelUser.Visible = False
            Else
                mdiMain.mnuReportUser.Visible = True
            End If
    ``````
主要想知道  哪里是连接数据库的  高手请讲明白的  小弟刚刚接触  不了解 请见谅!!!
答案:如下代码参考一下,不知能有帮助否。
Private Sub Command1_Click()

    Dim Mycon As ADODB.Connection   '定义一个连接对象,用这个对象来和数据库建立通讯联系。
    Dim Myrt As ADODB.Recordset     '定义一个记录集对象,将来从数据库取得一条一条的记录后,放入这个对象里面。
    Dim Mystr As String             '定义一个字符串变量,用来存放和数据库连接时一些必要的参数。
    
    Set Mycon = New ADODB.Connection   '建立一个新的连接对象。
    Set Myrt = New ADODB.Recordset     '建立一个新的记录集对象。
    Myrt.CursorLocation = adUseClient  '定义记录集的游标类型,你要是才接触这方面的内容的话,这里没没必要做深入研究,知道记录集有2种游标类型,一种是服务器端游标,一种是客户端游标,这里采用的是客户端游标,2种类型各有特点,就你这如果要连接一个用户密码表的话,设客户端游标就可以了。
    
    Mystr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\db1.mdb" '设置用来和数据库进行连接的一些必要参数,Access数据库采用Microsoft.Jet.OLEDB.4.0驱动,如果是其它类型的数据库的话这句就不一样了,如果你要调试这段代码的话,把d:\db1.mdb这个改一下。
    
    Mycon.Open Mystr   '用定义好的连接对象以前面设置的参数打开数据库,后面对数据库的操作就操作这个连接对象就行了。
    Myrt.Open "select * from 表名", Mycon, 3, 1 ' 记录集对象执行打开操作,从数据库中的一个表中取得记录,在这里Mycon就代表数据库了。"select * from 表名"这句意思是从一个表中取得所有记录。你具体试验时把表名修改一下。
    
    '在这里就从数据库的一个表中取得有用的数据了,你可以通过对Myrt记录集的操作取得自己需要的数据。比如如果是一个用户密码表的话,如果这个表有2个字段,一个用户名字段,一个密码字段。那么用Myrt("用户名")就能取得当前记录这个字段的数据。如果这个表有10条记录的话,可以用Myrt.movenext来移动记录集指针。

    '如果你界面上放置一个DataGrid控件的话,用下面这句就能看到Myrt记录集对象从数据库中取得的内容了。
    Set DataGrid1.DataSource = Myrt
  
End Sub 

你问题补充里的代码没有连接数据库的代码,这个按钮是验证身份登录的代码,在这之前就应该和数据库连接了,因为连接数据库的代码必定会有数据库的路径、名称等信息。如:D:\db1.mdb。
其他:1)
dim strCon= 去网上搜Data的相关知识
一般会有你所需要的答案

上一个:求一个DW与Access数据库连接的注册、登录界面代码.asp的,急!!!交作业用!!就差登录界面一部分!
下一个:谁能给个vc6.0用ado连接access数据库实例不,在线等

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,