如何让绑定数据的DataGrid在执行某个命令时才一次保存所有的修改数据
http://go1.163.com/~askpro/msg24/qa07.htm
批 更 新 打 开 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
http://go1.163.com/~askpro/msg24/qa07.htm
批 更 新 打 开 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
解决方案 »
- StatusBar控件小问!
- 串口怎么发送16进制?
- 公开VB6代码窗口中键滚轮支持的代码!是自己捉摸出来的!大家看看!
- 如何断开与excel文件的联系?
- 哪位大虾能否提供VB+DIRECTX的学习资料啊?
- mschart中ColumnLabel属性为什么没用。在线等待?
- 请教高手:用WEBBROWSE或者是IE类对某个服务器操作后,怎么样才能检测服务器返回的是什么信息?比如是404或者是505等等之类的.换句话就是怎
- 用ado进行addnew时,产生“实时错误,多部操作产生错误,请检查每步状态”的错误!
- 各位VB爱好者:简单问题就送分!!!!!
- Ado问题!,请帮忙!
- vb提问:如何通过VB调用EXCEL中的函数。
- 如何判定区分Adodc1的新增记录或修改记录状态?
我用SQL语句查询出一些记录用SET DATAGRID1.DATASORRCE="RECORDSET记录语句"显示在
表格中
我想在表格中能够修改一些数据后然后执行一条语句就把原数据修改,表格中不能修改,我用一文本框代替一栏,鼠标点其他栏时,文本框移动到新栏,而原来栏的数据改为我在文本框中
输的数据