VB怎么和数据库建立连接呀???我是一个初学者,很多不懂,还请各位多多指点啊.比如说一个软件我数入用户名和密码才可以进去,那么用户名和密码应该是在数据库里存着的.如果我输入的密码和数据库中的吻合便可以进入软件,这个怎样实现呢? 
谢谢啦....

解决方案 »

  1.   

    这个问题不是一两句话可以说清的,先给你一段代码看看吧Private Sub cmdlogin_Click()
        On Error GoTo gherr    '首先判断程序版本,通过数据库中的edition表来判别
        If Len(Trim(Text1.Text)) = 0 Then               '首尾空格处理掉
            MsgBox "请输入用户名", 32, "提示"
            Exit Sub
        Else
            struser = Trim(Text1.Text)                  '取用户名
            strpass = ghcrypt(Trim(Text2.Text))         '对用户密码加密,以便与密文相比较
        End If
        
        If conn.State <> adStateOpen Then
            Call mainmoudle.getconn                     '调用自定义连接函数
        End If
        
        '取版本号,取是否显示版本不同的提示,取是否显示短信的提示
        If objlogon.getver(strdatabasever, bln) Then
            If strprogver <> strdatabasever Then
                MsgBox objlogon.UpdatePrompt(bln)       '给出提示
                If bln Then
                    Exit Sub
                End If
            End If
        Else
            MsgBox "获取程序版本时发生错误!无法检测当前程序是否可以运行!", 32, "提示"
            Exit Sub
        End If
        
          
        '下面判断是否显示短信息[如果notetext表中有记录,则显示出来]
        If objlogon.shownote(strmessage) Then
            MsgBox strmessage, 64, "请阅读:系统发给您的短信息"
        End If    
        '如版本检测通过,则进行用户身份验证
        If objlogon.userIdentification(struser, strpass, strUserName, strmessage) Then
            g_loginname = struser               '将用户名保存到变量中
            g_xingming = strUserName
        Else
            MsgBox "用户登录失败:" & vbCrLf & strmessage
            Exit Sub
        End If
        
        
        '下面取登录日期:
        g_logindate = getDtDate(DTPicker1)
        
        '下面取服务器名称
        g_databasename = objlogon.dbServerName    Unload Me
        
        mainform.Show           '调主窗体
        Exit Sub
    gherr:
        MsgBox Err.Description
        Exit Sub
    End Sub
      

  2.   

    B怎么和数据库建立连接?
    你应该看看ADO 和 DAO的内容
      

  3.   

    给你一个连接函数看一下吧。
    Public Function getlink() As Boolean        '连接数据库,正常返回真
        '如果不处于连接状态,则进行连接
        'conn是全局对象
        On Error GoTo gherr
    connstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db;Data Source=myserver;Password=0000;address=192.168.1.1,1433;network=dbmssocn;"
        If conn.State <> adStateOpen Then
            With conn
                .ConnectionString = connstring
                .ConnectionTimeout = 6
                .Open                                    '连接
            End With
        End If
        If conn.State = adStateOpen Then
            getlink = True
        Else
            getlink = False
        End If
        Exit Function
    gherr:
        getlink = False
        MsgBox Err.Description
    End Function