大家帮忙看下我的VB代码，在DataGrid中修改的内容，在数据库中更新不了，谢谢了，在线等
Private Sub Command3_Click() Dim rs As New ADODB.RecordsetDim sql As StringDim answer As Stringsql = "select * from 维护管理信息" rs.Open sql, conn, adOpenKeyset, adLockPessimistic answer = MsgBox("确定要更新吗?", vbYesNo, "") If answer = vbYes Then MsgBox "更新成功!", vbOKOnly + vbExclamation, "" Set DataGrid1.DataSource = Nothing rs.Update rs.RequerySet DataGrid1.DataSource = rsDataGrid1.RefreshEnd IfEnd Sub
