帮忙看看有没有错！！

gxy100

为什么在家里行的复制到单位里就不行了！！都是2003版！！
Private Sub Command19_Click()
    '定义 connection 对象
     Dim cn As New ADODB.Connection
     Dim rs As New ADODB.Recordset

     
     Dim username As String
     Dim userpass As String
     Dim sql As String
     '使用access内置 connection对象
     Set cn = CurrentProject.Connection
     ADODB.Command
     ADODB.Command
     Text1.SetFocus
     username = Text1.Text
     Text3.SetFocus
     userpass = Text3.Value
     sql = "select*from 用户表  where 用户名 ='" & username & " 'and 密码 = '" & userpass & "'"
     Debug.Print sql
      rs.Open sql, cn
     If rs.EOF Then
           MsgBox "登录失败！再来"
           Text1.SetFocus
           Text1.Text = ""
           Text3.SetFocus
           Text3.Text = ""
    Else
           DoCmd.Close
           DoCmd = "主界面"
           MsgBox "变细！！你又进来了啊！！！！！"
    End If
    '关闭 recodset 对象和connection对象并释放内存资源
    rs.Close
    cn.Close
    Set rs = Nothing
End Sub

Henry D. Sy

username = Text1.Text
应该是me.text1
sql = "select*from 用户表  where 用户名 ='" & username & " 'and 密码 = '" & userpass & "'"
应该是
sql = "select*from 用户表  where 用户名 ='" & username & " ' and 密码 = '" & userpass & "'"

gxy100

Henry D. Sy 发表于 2012-6-26 14:09
username = Text1.Text
应该是me.text1
sql = "select*from 用户表  where 用户名 ='" & username & " 'a ...

还是不行！！没有反应！

gxy100

Henry D. Sy 发表于 2012-6-26 14:09
username = Text1.Text
应该是me.text1
sql = "select*from 用户表  where 用户名 ='" & username & " 'a ...

师傅帮帮忙看看到底怎么了

Henry D. Sy

gxy100 发表于 2012-6-26 14:40
师傅帮帮忙看看到底怎么了

控件名称错误应该是command19

Henry D. Sy

管理员的密码更改为123

1. Private Sub Command19_Click()
   
2. '定义 connection 对象
   
3.     Dim cn As ADODB.Connection
   
4.     '定义 recordset 对象
   
5.     Dim Rs As New ADODB.Recordset
   
6. 
   
7.     Dim sql As String
   
8.     '使用access内置 connection对象
   
9.     Set cn = CurrentProject.Connection
   
10.     If IsNull(Me.Text1) Or IsNull(Me.Text3) Then
    
11.         MsgBox "请输入用户和密码"
    
12.         Exit Sub
    
13.     End If
    
14.     sql = "select*from 用户表  where 用户名 ='" & Me.Text1 & " ' and 密码 = '" & Me.Text3 & "'"
    
15. 
    
16.     Debug.Print sql
    
17.     Rs.Open sql, cn
    
18.     If Rs.EOF Then
    
19.         MsgBox "登录失败！再来"
    
20.         Text1.SetFocus
    
21.         Text1.Text = ""
    
22.         Text3.SetFocus
    
23.         Text3.Text = ""
    
24.     Else
    
25.         DoCmd.Close
    
26.         DoCmd.OpenForm "主界面"
    
27.         MsgBox "变细！！你又进来了啊！！！！！"
    
28.     End If
    
29.     '关闭 recodset 对象和connection对象并释放内存资源
    
30.     Rs.Close
    
31.     cn.Close
    
32.     Set Rs = Nothing
    
33. End Sub

复制代码

gxy100

Henry D. Sy 发表于 2012-6-26 15:01
控件名称错误应该是command19

跳出了这样一个

Henry D. Sy

gxy100 发表于 2012-6-26 15:05
跳出了这样一个

帮你修改在6楼

Henry D. Sy

另外：以后应该用简明的标题提问！！！

gxy100

Henry D. Sy 发表于 2012-6-26 15:06
帮你修改在6楼

真想不通了！还是跳出那个图片来