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

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

资讯

公司动态
业界资讯

Access资讯

Excel资讯

Word资讯

PPT资讯

其它Office资讯

微软新闻

IT资讯

热门文章

  • 苏宁十一创连锁新高 3C+..
  • Web 2.0在10年内将..
  • 民用电子产品召回制立法 三..
  • 微软欲购全球最大广告软件商..
  • 用代码创建 DSN(SQL..
  • 微软新Office集成免费..

最新文章

  • 李开复:中国高校急需根据社..
  • 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] 2006年7月数码摄像机市场关注调查报告access数据库
  • [2006-08-16] 任天堂美国总裁:Wii将追寻DS成功脚步access数据库
  • [2006-10-16] 联想董事长杨元庆:低价电脑是联想发展方向access数据库
  • [2006-11-25] IT专业连锁 家电连锁新锐的后起薄发access数据库
  • [2006-09-30] 优派、Intel联手校园极速之旅access数据库
  • [2006-09-17] 体验高清影像 明基液显FP241Waccess数据库

热门产品

  1. 通用票据打印软件

    通用票据打印软件

  2. Access通用开发平台

    Access通用开发平台

  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-2022  www.metinfo.cn