关于SQL

Question

Private Sub cmdOK_Click()
    Dim dbLogin As Database
    Dim rsLogin As Recordset
    Dim rsLogpass As Recordset
    Dim SQLName As String
    Dim SQLpass As String
    SQLName = "select * from login where log_name='txtusername.text'"
    Set dbLogin = OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\销售管理\logindb.mdb", False)
    Set rsLogin = dbLogin.OpenRecordset(SQLName)
    If frmLogin.txtPassword.Text <> rsLogin.Fields(1).Value Then
        MsgBox "password error!"
            Else
            LoginSucceeded = True
            MsgBox "登录成功"
            Me.Hide
请指教

Answer 1

Text.text=rslogin.Field("你想取的字段名")

Answer 2

If frmLogin.txtPassword.Text <> rsLogin.Fields(1).Value Then这句过不去，不知道有什么错误，请大家帮忙

Answer 3

SQLName = "select * from login where log_name='txtusername.text'"
有问题！！！应为
SQLName = "select * from login where log_name='"& txtusername.text &"' "

Answer 4

因为rsLogin对象为空，所以要出错。将 SQLNAME 变量赋值的语句改为 misterzhao 说的那样，另外要判断rsLogin对象是否为空：(rsLogin.bof and  rsLogin.eof)

Answer 5

If frmLogin.txtPassword.Text <> rsLogin.Fields(1).Value Then这句过不去，不知道有什么错误，请大家帮忙
----------------
类型错误！修改数据库字段类型或加入inttostr(rsLogin.firelds(1).value) 
-----------------

Answer 6

to wzcyc
可能出现错误的原因：
1、象前面misterzhao所讲的那样， rsLogin对象为空
2、另外可能是数据类型错误。你的密码字段是不是login 表的第二个字段，因为表的索引值是从0开始的。