| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1595 人关注过本帖
标题:vb+sql server2000 数据更新问题
只看楼主 加入收藏
alphaxu
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2005-2-20
收藏
 问题点数:0 回复次数:7 
vb+sql server2000 数据更新问题

小弟是新手

做了一个实现密码修改功能的窗体

'text1.text 是密码修改时要输入的旧密码 'text2.text 是修改后的新密码 'text4.text 是当前使用的用户id号 'text5.text 是从数据库获得的密码信息

Private Sub Command1_Click() If Text1.Text = Text5.Text Then '与数据库密码值比较 MsgBox "密码正确!", vbInformation + vbOKOnly, "提示信息" Adodc1.Recordset.Close Adodc1.Recordset.Open "update 用户信息表 set 密码='" & Text2.Text &

"' where ID='" & Text4.Text & "'" Adodc1.Refresh Else MsgBox "密码错误!", vbInformation + vbOKOnly, "提示信息" End If End Sub

运行后输入正确密码和新密码后出现对话框 提示: 实时错误'3219' operation is not allowed in this context

各位大大指点一下,谢谢!!!!!!!!!!!!!!!!

搜索更多相关主题的帖子: sql 数据 
2005-02-20 18:16
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
本人是极不习惯用ADODC的控件操作数据库,都是用ADODB的组件来完成访问数据库的工作。
2005-02-20 22:03
mengye
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2005-2-9
收藏
得分:0 
你的数据库设计的不规范,怎么中英文混混杂;虽说不是这个原因,最好改改! 可能是SQL语句有问题! 用ADODB的组件做吧,很简单的! Dim Cn as New ADODB.Connection 'Dim Rs as New ADODB.Recordset Cn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=c:\temp.mdb",3,3,1 rem=======c:\temp.mdb 为你的数据库路径 Cn.Execute "update 用户信息表 set 密码='" & Text2.Text & "' where ID='" & Text4.Text & "'" Cn.Close Set Cn=Nothing 试试! mengye_lb@163.com
2005-03-02 05:57
bobo
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-3-2
收藏
得分:0 
是不是因为你再没有打开数据库的时候先把它关闭了?
if adodc1.recordset.state=1 then
  adodc1.recordset.close
end if
2005-03-02 20:15
ccyscm
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2005-5-11
收藏
得分:0 
象是ID 的数据类型错了.我不知你的数据库中ID是什么数据类型?你把
Cn.Execute "update 用户信息表 set 密码='" & Text2.Text & "' where ID='" & Text4.Text & "'"
改成
Cn.Execute "update 用户信息表 set 密码='" & Text2.Text & "' where ID='' & Text4.Text
试试
2005-05-11 17:04
sgh243
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-4-28
收藏
得分:0 
回复:(alphaxu)vb+sql server2000 数据更新问题
ID 的数据类型错了,改成如下试试:

Cn.Execute "update 用户信息表 set 密码='" & trim(Text2.Text )& "' where ID='" & trim(Text4.Text )& "'"
trim是去除空格,这样应该就行了.

2006-04-28 11:20
prettytad
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2006-4-29
收藏
得分:0 

我也迫切的想知道这个问题的答案哦,请高手指点


  俺爱你,C语言 
2006-05-08 22:42
VB爱上我
Rank: 6Rank: 6
等 级:贵宾
威 望:25
帖 子:478
专家分:52
注 册:2005-10-14
收藏
得分:0 

Adodc1.Refresh
Adodc1.Recordset.Filter = ID & "='" & trim(Text4.Text )& "'"
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.Update "密码", trim(Text2.Text )
End If

[此贴子已经被作者于2006-5-9 10:34:42编辑过]


IT618资讯网 提供服务端开发,前端开发,网页特效,热门开源系统研究,软件下载,站长建站,淘宝开店等学习资料.
2006-05-09 10:33
快速回复:vb+sql server2000 数据更新问题
数据加载中...
 
   



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

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