头晕了,DataGrid不能更新

Question

一个按钮,一个DataGrid代码如下:Dim CN   As New ADODB.Connection 
Dim Rs As New ADODB.RecordsetPrivate Sub Form_Load()
Dim strPath As String
strPath = App.Path & "\ZBGL.MDB"
DataGrid1.AllowAddNew = True
DataGrid1.AllowDelete = True
DataGrid1.AllowUpdate = True
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & ";Persist Security Info=False"
CN.OpenRs.CursorLocation = adUseClient
Rs.Open "select * from zonghe", CN, adOpenDynamic, adLockBatchOptimisticSet DataGrid1.DataSource = RsEnd SubPrivate Sub Command1_Click()
Rs.Update
DataGrid1.Refresh
End Sub按下按钮后没有任何错误提示,表格的指针移到当前所在行,可是就是不能更新到数据库,请高手指点.

Answer 1

看看UPDATA后面有参数，再试下

Answer 2

Rs.Open "select * from zonghe", CN, adOpenDynamic, adLockBatchOptimistic
中的adLockBatchOptimistic是指樂觀性批次更新.
你把Rs.Update改成Rs.UpdateBatch

Answer 3

将字段值传给表中的字段然后再更新
Private Sub Command1_Click()
rs("字段名")=值
Rs.Update
DataGrid1.Refresh
End Sub
如果是选取datagrid中修改完的数据
Private Sub Command1_Click()
rs("字段名")=datagrid.(列值).value 行值自动返回
Rs.Update
DataGrid1.Refresh
End Sub

Answer 4

rs.Open "select * from zonghe", cn, adOpenStatic, adLockOptimistic, adCmdText试试看!

Answer 5

Rs.Open "select * from zonghe", CN, adOpenDynamic, adLockBatchOptimistic你是批更新的方式需要：
Rs.Update
Rs.UpdateBatch

Answer 6

Rs.Open "select * from zonghe", CN, adOpenDynamic, adLockOptimistic你如果这样打开就用一句
Rs.Update就可更新