首先通过查询按钮,查询出需要修改的数据库信息显示在已经设置好的文本框中,然后在文本框中修改查询出的数据后,点击保存按钮,将更新数据库中的原记录.请问如何实现保存?请高手写一下代码.以下是我的代码:
1.点修改记录按钮后的代码
Command1(0).Enabled = False: Command1(2).Enabled = False: Command1(3).Enabled = False: Frame2.Enabled = True
    Text2.SetFocus
    k = MsgBox("请输入你要修改信息的学生学号或姓名", vbInformation + vbOKOnly, "修改")
    Call Command3_Click
Command3_Click是实现查询的代码:
Private Sub Command3_Click()
  Data1.RecordSource = "select * from Student where ((Student.学号 like " + Chr(34) + Text2.Text + "*" + Chr(34) + ")or(Student.姓名 like " + Chr(34) + Text2.Text + "*" + Chr(34) + "))"
    Data1.Refresh
    Text1(0).Text = Data1.Recordset.Fields("学号")
    Text1(1).Text = Data1.Recordset.Fields("姓名")
    Combo1(0).Text = Data1.Recordset.Fields("性别")
    Text1(2).Text = Data1.Recordset.Fields("民族")
    Text1(3).Text = Data1.Recordset.Fields("籍贯")
    Combo1(1).Text = Data1.Recordset.Fields("层次")
    Combo1(2).Text = Data1.Recordset.Fields("专业")
    Text1(4).Text = Data1.Recordset.Fields("出生日期")
    Text1(5).Text = Data1.Recordset.Fields("文化程度")
    Text1(6).Text = Data1.Recordset.Fields("毕业学校")
    Text1(7).Text = Data1.Recordset.Fields("工作单位")
    Text1(8).Text = Data1.Recordset.Fields("E-mail")
    Text1(9).Text = Data1.Recordset.Fields("联系电话")
    Text1(10).Text = Data1.Recordset.Fields("入学时间")
    Text1(11).Text = Data1.Recordset.Fields("免修课程")
    Text1(12).Text = Data1.Recordset.Fields("录取通知书号")
End Sub