在VB中用了DATAGRID 所以就使用了ADODC控件。
然后用ADO操作:
Dim dbc As New adodb.Connection
Dim dbr As New adodb.Recordset
dbc.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path "\db1.mdb;mode=share deny none;Persist Security Info=False"
dbr.Open "select * from temp"
dbr.AddNew
dbr!id2 = c(Combo1.ListIndex)
dbr!日期 = DTPicker1.Value
dbr!价格 = Text1(4)
dbr!数量 = Text1(3)
dbr.Update结果报:当前记录不支持更新,这可能是提供程序的限制,也可能是选定锁定类型的限制
然后用ADO操作:
Dim dbc As New adodb.Connection
Dim dbr As New adodb.Recordset
dbc.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path "\db1.mdb;mode=share deny none;Persist Security Info=False"
dbr.Open "select * from temp"
dbr.AddNew
dbr!id2 = c(Combo1.ListIndex)
dbr!日期 = DTPicker1.Value
dbr!价格 = Text1(4)
dbr!数量 = Text1(3)
dbr.Update结果报:当前记录不支持更新,这可能是提供程序的限制,也可能是选定锁定类型的限制
dbr.LockType = 适当的锁定类型
dbr.Open "select * from temp"锁定类型常量说明:
adLockBatchOptimistic
指示开放式批更新。需要批更新模式。
adLockOptimistic
指示逐个记录开放式锁定。提供者使用开放式锁定,仅在调用 Update 方法时锁定记录。
adLockPessimistic
指示逐个记录保守式锁定。提供者要确保记录编辑成功,通常在编辑之后立即在数据源锁定记录。
adLockReadOnly
指示只读记录。无法改变数据。
adLockUnspecified
未指定锁定类型。创建副本时,副本与源对象使用相同的锁定类型。