VB6.0+SQL2000

Question

请问，我用VB6.0编写一个登入程序，数据库用局域网里的2000SERVER+SQL2000下的DATA表 user和password字段
在提交按钮里的正确代码是怎样的?

Answer 1

'引用ADO(窗体上放一个Command，一个Text1，一个Text2)Private Sub Command1_Click() '登陆
    If Text1.Text = "" Then
        MsgBox "请输入操作员！", vbInformation, "提示"
        Exit Sub
    End If
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    '连接数据库
    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名/IP"
    cn.Open
    rs.CursorLocation = adUseClient    Dim Uname As String, PWD As String
    Uname = Trim(Text1.Text)
    PWD = Trim(Text2.Text)    rs.Open "select * from [DATA] where  [user]='" & Uname & "'", cn, adOpenDynamic, adLockOptimistic
    
    If rs.EOF Then
        MsgBox "该用户尚未注册！", vbOKCancel, "提示"
        Text1.SetFocus
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
        Exit Sub
    Else
        If PWD <> Trim(rs!Password) Then
        MsgBox "密码不正确，请重输！！！", vbQuestion, "提示"
        Text2.Text = ""
        Text2.SetFocus
        Exit Sub
    End If
    Me.Hide
    main.Show        'main为主窗口名称
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub