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

sky82聊聊

对了,再问一下,如果不同用户在ACCESS中对同一张表进行添加数据,删除数据,如何能做到一个用户在对表进行操作的同时,其他用户等待(等待时间很短,基本上用户感觉不出)或返回相关的信息??

ycyhjj2865

adUseServer是CursorLocation 属性值 设置或返回游标服务的位置。 使用数据提供者的或驱动程序提供的游标。这些游标有时非常灵活，对于其他用户对数据源所作的更改具有额外的敏感性。但是，Microsoft Client Cursor Provider（如已断开关联的记录集）的某些功能无法由服务器端游标模拟，通过该设置将无法使用这些功能。 又看到第二页还有一个问题，那么将一个ADO帮助资料中的一部代码贴到下面，请自己好好研究。 ———————————————————————————————————————————— 该范例更改数据库的 Titles 表中所有心理学书籍的书籍类型。在 BeginTrans 方法启动事务将所有对 Titles 表的更改隔离后，CommitTrans 方法将保存更改。可使用 Rollback 方法撤销用 Update 方法保存的更改。 Public Sub BeginTransX() Dim cnn1 As ADODB.Connection Dim rstTitles As ADODB.Recordset Dim strCnn As String Dim strTitle As String Dim strMessage As String ' 打开连接。 strCnn = "Provider=sqloledb;" & _ "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; " Set cnn1 = New ADODB.Connection cnn1.Open strCnn ' 打开 Titles 表。 Set rstTitles = New ADODB.Recordset rstTitles.CursorType = adOpenDynamic rstTitles.LockType = adLockPessimistic rstTitles.Open "titles", cnn1, , , adCmdTable rstTitles.MoveFirst cnn1.BeginTrans ' 在记录集中循环并询问是否想要更改指定标题的类型。 Do Until rstTitles.EOF If Trim(rstTitles!Type) = "psychology" Then strTitle = rstTitles!Title strMessage = "Title: " & strTitle & vbCr & _ "Change type to self help?" ' 更改指定雇员的标题。 If MsgBox(strMessage, vbYesNo) = vbYes Then rstTitles!Type = "self_help" rstTitles.Update End If End If rstTitles.MoveNext Loop ' 询问用户是否想提交以上所做的全部更改。********************************** If MsgBox("Save all changes?", vbYesNo) = vbYes Then '*************** cnn1.CommitTrans ' *************** Else '*************** cnn1.RollbackTrans '*************** End If '********************************* ' 打印记录集中的当前数据。 rstTitles.Requery rstTitles.MoveFirst Do While Not rstTitles.EOF Debug.Print rstTitles!Title & " - " & rstTitles!Type rstTitles.MoveNext Loop ' 恢复原始数据，因为这只是演示。 rstTitles.MoveFirst Do Until rstTitles.EOF If Trim(rstTitles!Type) = "self_help" Then rstTitles!Type = "psychology" rstTitles.Update End If rstTitles.MoveNext Loop rstTitles.Close cnn1.Close End Sub _______________________________________________________________________________ 上面有注释星号的部份就是你要达到的效果，这里是设计者给出两个选择答案，用户使用时程序会根据用户所选择的答案来做出是否更改数据。 其实你可以采用制造错误及捕捉错误的办法，并在错误处理语句中完成事务性处理。

[此贴子已经被作者于2006-5-26 14:13:47编辑过]