Access交流网
  • 设为首页|收藏本站|繁体中文|手机版
  •     
  • Access培训-Access开发平台-Access行业开发

  • 首页
  • 资讯
  • 技巧
  • 源码
  • 行业
  • 资源
  • 产品
  • 活动
  • 培训
  • 招聘
  • 论坛
  • 商城
  • 关于

资讯

公司动态
业界资讯

Access资讯

Excel资讯

Word资讯

PPT资讯

其它Office资讯

微软新闻

IT资讯

热门文章

  • 水货手机商明目张胆搞加盟 ..
  • 周光召院士:中国科学技术大..
  • Vista+北京奥运=索尼..
  • 图文:腾讯CTO熊明华演讲
  • 7日京华1GB 199 苹..
  • 我国软件盗版率只有三成 美..

最新文章

  • 李开复:中国高校急需根据社..
  • VBA编程常用语句300句
  • SQL基础:常用SQL语句..
  • ACCESS学习日记
  • 多表查询技巧
  • Oracle数据库EXP、..

联系方式

Access交流网

电  话:0760-88315075
热  线:0760-88315075

邮  编:528463
咨询QQ:1918333016
营销QQ:4008553990

Email:1918333016@qq.com

网  址:www.access-cn.com

当前位置:首页 > 资讯 > 业界资讯 > IT资讯
IT资讯

用vb与sql server如何实现登录密码的修改?

举例数据库为SqlUsers,用户表为:Users,用户名字段:UserName,用户密码字段:UserPassword

Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection
Public Sub ConnOpen() '打开数据库
On Error GoTo ConnOpenError
Conn.ConnectionString = "driver={sql server};server=(local);uid=sa;pwd=123456;database=SqlUser"
Conn.Open
Exit Sub
ConnOpenError: MsgBox Err.Description
End Sub
Public Sub ConnClose() '关闭数据库
On Error GoTo ConnCloseError
If Conn.State = 1 Then
Conn.Close
Set Conn = Nothing
End If
Exit Sub
ConnCloseError: MsgBox Err.Description
End Sub

Private Sub Command1_Click()
If CmbName.Text = "" Then
MsgBox "对不起,请选择用户名!", vbInformation
Exit Sub
ElseIf txtPwd.Text = "" Then
MsgBox "对不起,请输入旧密码", vbInformation
Exit Sub
ElseIf txtXinPwd.Text = "" Then
MsgBox "对不起,请输入新密码", vbInformation
Exit Sub
End If
Rs.Open "Select * From Users Where UserName = '" & CmbName.Text & "'", Conn, 1, 3
If Rs.EOF And Rs.BOF Then
MsgBox "对不起,用户名不存在!", vbInformation
ElseIf txtPwd.Text <> Rs("UserPassword") Then
MsgBox "对不起,旧密码错误!", vbInformation
Else
Rs("UserPassword") = txtXinPwd.Text
Rs.Update
End If
Rs.Close
End Sub

Private Sub Form_Load()
ConnOpen

End Sub

Private Sub Form_Unload(Cancel As Integer)
ConnClose
End Sub



发布人:佚名-Access开发者  
分享到:
点击次数:  更新时间:2006-10-29 21:33:53  【打印此页】  【关闭】
上一篇:SQL数据的基本操作(时间和日期)  下一篇:微软IE平台架构师披露IE 8.0最新消息



相关文章

  • • 李开复:中国高校急需根据社会需求培养学生
  • • VBA编程常用语句300句
  • • SQL基础:常用SQL语句详解 (转)
  • • ACCESS学习日记
  • • 多表查询技巧
  • • Oracle数据库EXP、IMP命令语句使用方法
  • • SQL注入的高级应用ACCESS篇!
  • • 代码打开页面设置

热门文章

  • [2006-08-25] 宽屏LCD品牌调查:三星长城优派夺三甲access数据库
  • [2006-01-02] 高清数字电视开播 央视已确定月收费120元access数据库
  • [2005-04-06] 中国工程院院士倪光南:中国还不是知识产权大国access数据库
  • [2005-03-19] 2005年IT产业四大政策法规access数据库
  • [2006-10-25] IT观察:图穷匕见 中国3G版图被“杀气”笼罩access数据库
  • [2006-08-04] 搜狐和阿迪达斯结为合作伙伴 重塑体育频道access数据库

热门产品

  1. Access通用开发平台

    Access通用开发平台

  2. 销售宝销售管理软件--让销售像“偷菜”一样简单!

    销售宝销售管理软件--让销售像“偷菜”一样简单!

  3. 适合国庆/元旦/中秋等节日抽奖的程序

    适合国庆/元旦/中秋等节日抽奖的程序

公司动态|在线留言|在线反馈|联系我们|友情链接|会员中心|站内搜索|网站地图

中山市天鸣科技发展有限公司 版权所有 1999-2018 粤ICP备10043721号

广东省中山市西苑广场富贵阁20楼A座

电话:0760-88315075 手机:13928102596 QQ:1918333016

Access应用 Access培训 Access开发 Access平台

access|数据库|access下载|access教程|access视频|access软件

Powered by MetInfo 5.3.12 ©2008-2021  www.metinfo.cn