| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 804 人关注过本帖
标题:修改密码的错误谁能指出?望高手解答
只看楼主 加入收藏
lbclbclbc
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2004-11-9
收藏
 问题点数:0 回复次数:1 
修改密码的错误谁能指出?望高手解答

当前记录集不支持更新。这可能是提供程序的限制,也可能是选定锁定类型的限制

我用vb来连接数据库并且对数据库数据修改,出现以上错误

例如我想改密码的代码如下

Option Explicit Dim textSQl As String Dim msgtext As String Dim cn As ADODB.Connection Dim mrc As ADODB.Recordset Private Sub Form_Load()

Set cn = New Connection Set mrc = New Recordset cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=学生管理.mdb") cn.CommandTimeout = 10 mrc.Open "登录", cn, adOpenKeyset, adLockPessimistic, adCmdTable End Sub

Private Sub Command1_Click() If Trim(Text2.Text) <> Trim(Text3.Text) Then MsgBox "输入密码有错误,请重新输入", 16, "警戒" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus Else textSQl = "select * from 登录 where 密码= '" & Text1.Text & "'" Set mrc = cn.Execute(textSQl) If mrc.EOF = True Then MsgBox "输入密码有错误,请重新输入", 16, "警戒" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus Else mrc.Fields(1) = Text2.Text mrc.Update mrc.Close MsgBox "密码修改成功,请继续使用!", 64 + vbOKOnly, "修改成功" Me.Hide cn.Close Set cn = Nothing End If End If End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1_Click End If End Sub 请问怎么样才能够解决这问题!

搜索更多相关主题的帖子: 密码 数据库 Microsoft mrc Dim 
2004-12-22 19:11
willdo
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2004-12-22
收藏
得分:0 

adLockPessimistic

换个锁.试一试啊! 具体我也忘了啊!很久不搞vb了

或mrc.Update 换成 批量更新 试一试啊!!.

应该是个小问题啊

2004-12-25 22:05
快速回复:修改密码的错误谁能指出?望高手解答
数据加载中...
 
   



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

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