數據更新問題﹐在線等待

Question

數據更新問題﹐在線等待
dim csConnection As ADODB.connection
dim rs as adodb.recordsetSet csConnection = New ADODB.connectioncsConnection.Open IMS_CONNECTION_STRING  '后為邊接的數據源
csConnection.CursorLocation = adUseClient
     
set rs = adodb.recordset           
set rs=csConnection.Execute(query)  'query為select語句
set datagrid.datasource=rs
csConnection.Execute query2   'query為insert語句
執行后為何datagrid里面的數據不能更新

Answer 1

再用一条
set datagrid.datasource=rs
看看

Answer 2

set datagrid.datasource=rs
csConnection.Execute query2   'query為insert語句
'再帮定一次
set datagrid.datasource=rs

Answer 3

set rs = adodb.recordset
改成set rs = new adodb.recordset
rs.CursorType = adOpenDynamic
rs.LockType = adLockPessimistic

Answer 4

自己查了一下﹐應該是數據源沒有更新﹐代碼具體是這樣的
set rs= 函數返加記錄集
set datagrid.datasource=rs