1、对于选中的记录修改其字段值,然后更新记录集即可。
2、工具:vb6
3、用adodc连接数据库,用find方法(也可以使用其它方法)选中记录,用Fields().Value修改字段值,用update更新记录集,代码示例如下:
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from Categories"
Adodc1.CursorLocation = adUseClient
Adodc1.Refresh
Debug.Print Adodc1.Recordset.RecordCount
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.Find "CategoryID=" & Val(Text1.Text)
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Fields("CategoryName").Value = Text2.Text
Adodc1.Recordset.Update
Adodc1.Recordset.Requery
End Sub
4、注意:本例中可以不使用Requery重新查询,但使用它是好习惯。