学生信息管理修改过程

修改过程

一、前言

    此功能实现一个修改信息的功能，大概的一个过程就是：在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

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