none
新手请教一个Visual Studio 2008 Basic 用户名密码登陆窗口的问题~望各位赐教 RRS feed

  • 问题

  • 想做一个登陆窗口,只有在验证正确用户名密码后,才可以打开主程序页面
    其它部分都做好了,就是数据库不知道怎么写代码

    数据库名称是Manage.mdb
    用户名表是User
    密码是 Password

    当在登陆框中输入的用户名和密码和数据库中的一致时就可以打开主程序~~
    这个代码应该怎么写
    2008年9月8日 9:51

全部回复

  • 第一步:项目->添加引用->COM->Microsoft ActiveX Data Objects 2.8 Library

    第二步:代码

    Dim Pcn As New ADODB.Connection

    Dim Rs As New ADODB.Recordset

    Dim StrSQL As String

    Pcn.Open = "provider=Microsoft.jet.OLEDB.4.0;DATA SOURCE=" & {文件路径}

    StrSQL = "select * from 表名 where 用户名字段 = '" & 登录框ID.Text.ToTrim & "'"         '注意有单引号

    Rs.Open( StrSQL, Pcn, ADODB.CursorTypeEnum.adOpenStatic,  ADODB.LockTypeEnum.adLockReadOnly)

    If Rs.RecordCount <> 1 Then

    msgbox "无此用户名或用户名有重复(反正不唯一 :D)"

    Else

    If Rs("Password").Value = 登录框PASSWORD.Text.ToTrim Then

    msgbox "密码正确"

    ' 其他代码

    Else

    msgbox "密码错误"

    End If

    End If

    Rs.Close

    Rs = Nothing

    Pcn.Close

    Pcn = Nothing

     

    2008年9月9日 0:55