| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3582 人关注过本帖
标题:adodc1.refresh出错怎么改
只看楼主 加入收藏
yxw123
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2017-4-18
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
adodc1.refresh出错怎么改
Private Sub cmdLogin_Click()


ss = txtUserName.Text


Adodc1.RecordSource = "SELECT * FROM  管理员 where 管理员号='" + ss + "'"


Adodc1.Refresh


If Adodc1.Recordset.BOF = True And Adodc1.Recordset.EOF = True Then

MsgBox "查无此人", , "登陆信息"
Else
 
     
     If Adodc1.Recordset.Fields(1) = txtPassword.Text Then
        
         ''''''''''''''''''''''''''''''''''''''''''
        MsgBox "身份正确", , "登陆信息"
     
     
     Adodc1.RecordSource = "select 权限1,权限2,权限3 from 管理员 where 管理员号='" + ss + "'"
    Adodc1.Refresh
   
 工具室管理系统.用户管理.Enabled = Adodc1.Recordset.Fields(0).Value
   工具室管理系统.设置权限.Enabled = Adodc1.Recordset.Fields(1).Value
   工具室管理系统.初期设置.Enabled = Adodc1.Recordset.Fields(2).Value
   
     
       工具室管理系统.Show
         
         Unload Me
        
      
           '''''''''''''''''''''''''''''''''''''''''''''''''''
     Else
        MsgBox "密码不正确", , "登陆信息"
     End If
  
 
  End If
   

End Sub
2017-04-18 19:48
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:7 
ADODC1.ConnectionString 设置否?
另外,adodc属性-记录源--命令类型选择(1-adCmdText),如果命令类型选成2,后面好像就会出错
2017-04-19 08:39
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:7 
只说 adodc1.refresh出错怎么改,什么错误不知道,只能瞎猜了
1、Adodc1.ConnectionString = ""   '这个没有不知道是否已经设置了
2、 =  '的属性是否设置,不知道,一般有个设置为 adCmdText
3、Adodc1.RecordSource = "SELECT * FROM  管理员 where 管理员号='" + ss + "'"   '管理员号字段不知是什么数据类型,如果是字符型,没有问题,如果是数字型就不对,修改为:
Adodc1.RecordSource = "SELECT * FROM  管理员 where 管理员号=" & ss & ""   '连接符最好使用 & 号

请不要选我!!!
2017-04-21 18:32
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:7 
错误码

无知
2017-04-23 01:54
快速回复:adodc1.refresh出错怎么改
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017211 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved