如何让绑定数据的datagrid在执行某个命令时才一次保存所有的修改数据.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 24 行

批 更 新 打 开 ADODB.Recordset. 
    Project: Form1、 Command1、 Command2、 DataGrid1 
    Ref: ADO 
    代 码 : 
    Option Explicit 
    Dim adoConnection As ADODB.Connection 
    Dim adoRecordset As ADODB.Recordset 
    Private Sub Command1_Click() 'Save Commit 
    adoRecordset.UpdateBatch 
    End Sub 
    Private Sub Command2_Click() 'Cancel Rollback 
    adoRecordset.CancelBatch 
    End Sub 
    Private Sub Form_Load() 
    Set adoConnection = New ADODB.Connection 
    'adoConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=northwindcs" 
    'adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\MyVBP\DBData\NWind2K.mdb;Persist Security Info=False" 
    adoConnection.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=E:\MyVBP\DBData\NWind97.mdb;Persist Security Info=False" 
    Set adoRecordset = New ADODB.Recordset 
    adoRecordset.CursorLocation = adUseClient 'Access需 要 
    adoRecordset.Open "产 品 ", adoConnection, adOpenKeyset, adLockBatchOptimistic 
    Set DataGrid1.DataSource = adoRecordset 
    End Sub 
<END>