瑞星卡卡安全论坛技术交流区系统软件 VB数据库编程问题求高手解答.

1   1  /  1  页   跳转

VB数据库编程问题求高手解答.

VB数据库编程问题求高手解答.

首先通过查询按钮,查询出需要修改的数据库信息显示在已经设置好的文本框中,然后在文本框中修改查询出的数据后,点击保存按钮,将更新数据库中的原记录.请问如何实现保存?请高手写一下代码.以下是我的代码:
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
最后编辑2005-09-22 15:16:52
分享到:
gototop
 

偶用网格多点~~MSHFlexGrid
SQL语句用得update
gototop
 

insert
gototop
 

用UPDATE吧.
gototop
 

Adodc控制好些, UPdate
gototop
 

插入新数据用insert,修改用Update

insert into
gototop
 
1   1  /  1  页   跳转
页面顶部
Powered by Discuz!NT