| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 385 人关注过本帖
标题:ADOCD 操作数据出错
取消只看楼主 加入收藏
szmsolo
Rank: 1
等 级:新手上路
帖 子:12
专家分:7
注 册:2014-5-29
结帖率:0
收藏
已结贴  问题点数:10 回复次数:1 
ADOCD 操作数据出错
各位老师
        下面是我写的修改数据库账号和密码的程序,请看看 ADODC1 操作数据库的地方,怎么老是不对,写成 .Recordset.Update 就报错“对象变量或 With 块变量未设置”,如果改为 .Refresh ,又报错为: “对象关闭时,不允许操作”,但是能成功修改数据,新手一直搞不懂原因,
      望老师指点迷津:
    1、为什么会提示 对象变量或 With 块变量未设置?
    2、后面的写法也报错,为什么能修改数据呢?
    3、怎么写才正确呢?
谢谢!
Private Sub Done_command_Click()
Dim NewPassWord As String
With Label4
    If Old_Text.Text = Employee.PassWord Then
        If New1_Text.Text = New2_Text.Text Then
            If Len(New1_Text) >= 5 Then
                NewPassWord = New1_Text.Text
                    With Adodc1
                        .RecordSource = "update tb_IDPW set PassWord='" & NewPassWord & "' where Name='" & Employee.Name & "'"
                        .Recordset.Update
                    End With
                        Employee.PassWord = NewPassWord
                        MsgBox "密码修改成功,新密码为:" & NewPassWord, vbInformation + vbOKOnly
                        Unload ChangePW_Form
            Else
                .ForeColor = &HFF&
                .Caption = "新密码不能为空"
            End If
            
        Else
            .ForeColor = &HFF&
            .Caption = "两次新密码不一致!"
        End If
    Else
        .ForeColor = &HFF&
        .Caption = "旧密码输入错误!"
    End If
End With
End Sub
搜索更多相关主题的帖子: 数据库 密码 账号 
2014-06-05 23:21
szmsolo
Rank: 1
等 级:新手上路
帖 子:12
专家分:7
注 册:2014-5-29
收藏
得分:0 
回复 2 楼 alike123
谢谢2楼兄弟的解答
       改成这样就可以了:
        With Adodc1
                        .RecordSource = "select * from tb_IDPW where Id='" & Employee.Id & "'"
                        .Refresh
                        .Recordset.Fields(2) = New1_Text.Text
                        .Recordset.Update
                    End With
2014-06-06 20:18
快速回复:ADOCD 操作数据出错
数据加载中...
 
   



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

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