设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 2725|回复: 14
打印 上一主题 下一主题

[Access本身] 帮忙看看有没有错!!

[复制链接]
跳转到指定楼层
1#
发表于 2012-6-26 13:46:02 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
为什么在家里行的复制到单位里就不行了!!都是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
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2012-6-26 14:09:02 | 只看该作者
username = Text1.Text
应该是me.text1
sql = "select*from 用户表  where 用户名 ='" & username & " 'and 密码 = '" & userpass & "'"
应该是
sql = "select*from 用户表  where 用户名 ='" & username & " ' and 密码 = '" & userpass & "'"
3#
 楼主| 发表于 2012-6-26 14:39:40 | 只看该作者
Henry D. Sy 发表于 2012-6-26 14:09
username = Text1.Text
应该是me.text1
sql = "select*from 用户表  where 用户名 ='" & username & " 'a ...

还是不行!!没有反应!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
4#
 楼主| 发表于 2012-6-26 14:40:28 | 只看该作者
Henry D. Sy 发表于 2012-6-26 14:09
username = Text1.Text
应该是me.text1
sql = "select*from 用户表  where 用户名 ='" & username & " 'a ...

师傅帮帮忙看看到底怎么了
5#
发表于 2012-6-26 15:01:46 | 只看该作者
gxy100 发表于 2012-6-26 14:40
师傅帮帮忙看看到底怎么了

控件名称错误应该是command19
6#
发表于 2012-6-26 15:05:40 | 只看该作者
管理员的密码更改为123
  1. Private Sub Command19_Click()
  2. '定义 connection 对象
  3.     Dim cn As ADODB.Connection
  4.     '定义 recordset 对象
  5.     Dim Rs As New ADODB.Recordset

  6.     Dim sql As String
  7.     '使用access内置 connection对象
  8.     Set cn = CurrentProject.Connection
  9.     If IsNull(Me.Text1) Or IsNull(Me.Text3) Then
  10.         MsgBox "请输入用户和密码"
  11.         Exit Sub
  12.     End If
  13.     sql = "select*from 用户表  where 用户名 ='" & Me.Text1 & " ' and 密码 = '" & Me.Text3 & "'"

  14.     Debug.Print sql
  15.     Rs.Open sql, cn
  16.     If Rs.EOF Then
  17.         MsgBox "登录失败!再来"
  18.         Text1.SetFocus
  19.         Text1.Text = ""
  20.         Text3.SetFocus
  21.         Text3.Text = ""
  22.     Else
  23.         DoCmd.Close
  24.         DoCmd.OpenForm "主界面"
  25.         MsgBox "变细!!你又进来了啊!!!!!"
  26.     End If
  27.     '关闭 recodset 对象和connection对象并释放内存资源
  28.     Rs.Close
  29.     cn.Close
  30.     Set Rs = Nothing
  31. End Sub
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
7#
 楼主| 发表于 2012-6-26 15:05:40 | 只看该作者
Henry D. Sy 发表于 2012-6-26 15:01
控件名称错误应该是command19

跳出了这样一个

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
8#
发表于 2012-6-26 15:06:48 | 只看该作者
gxy100 发表于 2012-6-26 15:05
跳出了这样一个

帮你修改在6楼
9#
发表于 2012-6-26 15:14:27 | 只看该作者
另外:以后应该用简明的标题提问!!!
10#
 楼主| 发表于 2012-6-26 15:15:23 | 只看该作者
Henry D. Sy 发表于 2012-6-26 15:06
帮你修改在6楼

真想不通了!还是跳出那个图片来
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 03:00 , Processed in 0.102835 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表