在VB6中可以以下代码进行排它操作,这个方法怎么能在ACCESS程序中实现?

sky82聊聊 · 发表于 2006-5-24 11:29

在VB6中,为了避免不同用户对同一数据库进行添加,删除数据而造成数据紊乱,可进行排他操作具体VB6排他代码请看下面,但在ACCESS相关操作如何能实现啊? Set MyConn=Sever.CreateObject(“ADODB.Connection”) MyConn.Open “ByktDB.dsn” MyConn.BeginTrans //事务处理开始 MyConn.Execute “INSERT DataTable(Num) Values(‘3628’)” MyConn.Execute “INSERT Shipping (Address) VALUES(‘Paris,France’)” MyConn.CommitTrans //事务处理结束 MyConn.Close

ycyhjj2865 · 发表于 2006-5-24 13:32

事务性处理，这样的ADO操作应用在ACCESS中完全可以。

不过上面的代码不能拿来主义，因为上面代码的运行环境是ASP的VBS，其对象是WEB服务器上的server，创建的是后期绑定ADO链接。

在ACCESS中必须先声明，后使用，即使是同样采用后期绑定的方式。

sky82聊聊 · 发表于 2006-5-24 13:35

那请问在ACCESS中数据库和程序能否在一个文件中?

sky82聊聊 · 发表于 2006-5-24 16:51

XXcuEhN9.rar (67.78 KB, 下载次数: 7) conn.BeginTrans Set accountnumber = New ADODB.Recordset With accountnumber Set .ActiveConnection = conn .Source = "select top 1 * from 店铺报销记录 order by 编号 desc" .Open End With accountnumber.MoveFirst sql = "insert into 店铺报销记录(编号,制单人) values (" sql = sql & accountnumber![编号] + 1 & "," & "'" & Me.Label制单人.Caption & "'" sql = sql & ")" conn.Execute sql conn.CommitTrans conn.Close Me.Listdata1.RowSource = "select top 10 * from 店铺报销记录 order by 编号 desc" MsgBox "信息添加成功！" ''注释:以下不是用的是排他作用的格式啊,怎么没用啊 ? ''------------conn.BeginTrans '''' ''-----------....................... ''----------conn.CommitTrans

sky82聊聊 · 发表于 2006-5-24 16:55

顺便问一下2楼的,你说的在ACCESS中声明,怎么声明啊?

ycyhjj2865 · 发表于 2006-5-25 11:01

请注意：

关键：

RollbackTrans - 取消当前事务中所作的任何更改并结束事务。它也可能启动新事务。也就是所说的事务回滚,如果出现任何一项错误，则当前所做的所有操作全都失效即当前操作失败。例如对10个数据更新，如果有任何1个数据更新时发生错误（可能有其他用户正在对其进行编辑），那么这10个数据都不进行更新操作，就是说事务回滚，更新失败。

你用的则是：

CommitTrans - 保存任何更改并结束当前事务。（它也可能启动新事务）

其功能是在事务处理的所有数据操作中，即使发生局部数据操作问题
也不影响其他任何一项正常的操作的执行。例如10个数据同时更新，用此事务处理结果是有6个数据可以正常更新（只要没有错误发生，这6个数据就会被更新保存），而4个数据不能更新（可能是当前有其他用户正在编辑这4个数据，因此不能成功更新）。

而事务的应用，并不是排他，却是含有排己意思。

.无忧. · 发表于 2006-5-25 11:03

：）

sky82聊聊 · 发表于 2006-5-25 17:38

晕,感觉怎么conn.BeginTrans(conn.CommitTrans/RollbackTrans )感觉怎么没用啊?是不是要在ACCESS申明啊?好象找不到啊?

Renco · 发表于 2006-5-26 08:02

Dim con As ADODB.Connection
Dim iLevel As Integer
Set con = New ADODB.Connection
con.CursorLocation = adUseServer
'con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\" & CurrentProject.Name & ";"
Set con = CurrentProject.Connection
con.BeginTrans

*****

con.CommitTrans

sky82聊聊 · 发表于 2006-5-26 09:26

这条语句起什么作用啊?con.CursorLocation = adUseServer

		自动登录	找回密码
密码			免费注册

在VB6中可以以下代码进行排它操作,这个方法怎么能在ACCESS程序中实现?

在使用以下代码后还会出现不同用户同时对数据库操作时出现问题