 |
用vb与sql server如何实现登录密码的修改? |
热 ★★★ |
| 用vb与sql server如何实现登录密码的修改? |
|
| 作者：佚名 文章来源：Access开发者 点击数： 本日：{$DayHits} 更新时间：2006-10-29 21:33:53 |
举例数据库为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
|
| |
| 文章录入：tm 责任编辑：tm |
|
上一篇文章： SQL Server 7.0数据库的六种数据移动方法
下一篇文章： SQL数据的基本操作（时间和日期） |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）