vb如何把选中的access数据进行修改 rt

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.mdbPersist 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重新查询，但使用它是好习惯。

先说点儿别的：

建议不要使用隐式类型转换。

写明确

rs!score

=

Val(Text1.Text)

另外，Do

Loop

用的有点多余。

直接

rs.Move

List1.ListIndex

1

就可以了。

参考：http://www.2cto.com/shouce/ado/mdmthmove.htm

即使真的要遍历，在已知循环次数的情况下应优先使用

For

循环。

可以直接显式的Update单个数据：

rs.Update

score

val(Text1.Text)

如果使用了事务处理，在Update后应使用

CommitTrans

方法。

在程序结尾处，应执行

rs.Close

方法。

---