学生信息管理修改过程

修改过程

一、前言

此功能实现一个修改信息的功能，大概的一个过程就是：在VB输入所要输入的数据，然后在连接数据库，找到所对应的表，把新的数据加载到对应的列中，更新数据，更改成功。

二、具体情况

具体情况就用更改登录账户密码，来举例说明：



在VB中添加想要添加的数据，在添加完成后点击确定
先判断输入的数据是否一致，如果不一致弹出警告窗口，并且清空输入的数据，如果一致则，查询数据库找的user_info这个对应的表，和对应的用户的那一列。

Private Sub cmdOK_Click()
Dim txtSQL, MsgText As String
Dim mrc As ADODB.Recordset
'判断是否为空
If Trim(txtPassword1.Text) <> Trim(txtPassword2.Text) Then
MsgBox "密码输入不正确！", vbOKOnly + vbExclamation, "警告"
txtPassword1.SetFocus
txtPassword1 = ""
Else
txtSQL = "select*from user_Info where user_ID='" & UserName & "'"

Set mrc = ExecuteSQL(txtSQL, MsgText)

连接到公共模块，连接到数据库，然后把VB中输入的值赋到数据库中，进行更新。

Public Function ConnectString() As String
'返回一个数据库连接
ConnectString = "FileDSN=student.dsn;UID=sa;PWD=a19940910"

End Function

然后接上面set mrc= ExecuteSQL(txtSQL,MsgText ),把输入的数据添加到表中对应的列中，进行更新。

mrc.Fields(1) = txtPassword1.Text
mrc.Update
mrc.Close
MsgBox "密码修改成功", vbOKOnly + vbExclamation, "修改密码"
Me.Hide
End If
End Sub

修改成功，这就是学生系统的更新过程。