如何在VB6.0数据库中修改某项数据

ADO+DataGrid1例子先点击DataGrid1要修改的数据项,调用DataGrid1_click事件，把点击该项数据在Textbox中显示出来（运行状态下）DataGrild_click()Text2

=

Adodc1.Recordset(7)

Text3

=

Adodc1.Recordset(9)

Text4

=

Adodc1.Recordset(10)

Text5

=

Adodc1.Recordset(3)然后在Textbox中修改数据后，点击"保存"按扭

执行保存command_save

click()Adodc1.Recordset(11)

=

DTPicker1.Value

Adodc1.Recordset(1)

=

Text1.Text

Adodc1.Recordset(6)

=

DTPicker2.Value

Adodc1.Recordset(7)

=

Text2.Text

Adodc1.Recordset(8)

=

Text_taobiao.Text

Adodc1.Recordset(9)

=

Text3.Text

Adodc1.Recordset.UpdateBatch

adAffectAllChapters添加new_click()Adodc1.Recordset.AddNew

Adodc1.Recordset(0)

=

Combo1.Text

Adodc1.Recordset(1)

=

Text_name.Text

Adodc1.Recordset(2)

=

Combo__kh_name.Text

Adodc1.Recordset(3)

=

Combo_xd.Text

Adodc1.Recordset(4)

=

Combo_tel.TextAdodc1.Recordset.UpdateBatch

Dim conn As Object

Set conn = CreateObject("adodb.connection")

conn.Open "provider=Microsoft.Jet.OLEDB.4.0 Data Source=" & App.Path & "\成绩.mdb"

conn.Execute "update [高二学生] set [数学成绩]=90 where [姓名]='李明'"

conn.Close

Set conn = Nothing

MsgBox "数据已修改！"

---