交易的访问

我需要执行多个SQL子句,插入,更新和删除的例子。 如何使用事务中访问它们绑在一起?

DAO是首选。

喜欢:

BeginTrans Excute SQL_1 Excute SQL_2 ..... CommitTrans

谢谢!

--------------解决方案-------------

如果您使用DAO,您可以使用BeginTransCommitTrans全球的方法DBEngine对象:

Dim db As Database
Set db = CurrentDb

DBEngine.BeginTrans
db.Execute SQL_1
db.Execute SQL_2
...
DBEngine.CommitTrans

这里是一个更完整的骨架...

Dim ws As DAO.Workspace
Dim in_trans As Boolean

Sub Transaction()
On Error GoTo Trans_Error
Set ws = DBEngine.Workspaces(0)
in_trans=True
ws.BeginTrans

<do some SQL stuff; maybe use Err.Raise>

ws.CommitTrans
in_trans=False
Trans_Exit:
Set ws = Nothing
Exit Sub
Trans_Error:
If in_trans = True Then
ws.Rollback
EndIf
Resume Trans_Exit
End Sub

分类:MS访问 时间:2012-01-01 人气:0
本文关键词: 的MS Access,VBA,DAO
分享到:

相关文章

  • 通过在MS Access VBA / DAO设置权限 2012-06-03

    我有权限的常量匹配权限属性容器和文件的价值麻烦. (我需要做的,这样我可以通过使用DAO VBA分配权限). 可供选择的(通过立即窗口确定的值)的常数,根据所述VBA帮助,分别是: 对于表的容器中,和表: dbSecCreate:1 dbSecReadDef:4 dbSecWriteDef:65548 dbSecRetrieveData:20 dbSecInsertData:32 dbSecReplaceData:64 dbSecDeleteData:128 对于其他容器(除数据库),以及所有其

  • 我可以使用FSO在MS Access VBA来搜索整个文件中的字符串? 2013-04-26

    在MS Access VBA使用FSO,我知道我可以按行读取文本文件中的行与另一个使用VBA函数REPLACE替换一个字符串. 是否有可能取代在整个文件中的字符串的所有事件,而不必阅读创纪录的记录? --------------解决方案------------- 是. 这样使用TextStream对象: 昏暗的FS作为FileSystemObject的 昏暗的TS2作为文本流 昏暗的TS作为文本流 昏暗strText的作为字符串 组FS =的CreateObject("Scripting.Fil

  • 需要示例代码访问MS Project文件格式的MS Access VBA。 声明,阅读记录,并从记录.__有人能帮助拉出值?__ Steve__ 2014-01-10

    需要示例代码访问MS Project文件格式的MS Access VBA. 声明,阅读记录,并从记录拉出值. 有人能帮忙吗? --------------解决方案------------- 也许你的意思是不同的东西,但如果你的意思是基于MS SQL Server上的访问应用程序,然后将数据存储在MS SQL Server本身,而不是在访问应用程序,其中包含的表单和报表只定义,但基本没有数据本身. 换句话说,不能你只是它是用来"连接"到MS SQL Server数据库? 有引用从Visu

  • 如何创建一个XML字符串,并通过它在MS SQL uisng的MS Access VBA在存储过程中? 2014-07-04

    如何创建一个XML字符串,并通过它在MS SQL uisng的MS Access VBA在存储过程中? --------------解决方案------------- 从它下面的文章看来,要做到这一点的方式就是把它作为一个varchar,让SQL服务器的解析服务器端 http://msdn.microsoft.com/en-us/library/aa224791(SQL.80).aspx "然后,您可以通过一个完整的XML层次结构成一个存储过程为varchar或文本参数并解析层次的SQL Ser

  • 使用的MS Access VBA来创建嵌入视频的问题PPT幻灯片 2014-10-30

    我使用的MS Access VBA代码来创建嵌入式视频PPT幻灯片. 它不插入在我的PPT幻灯片视频,但它表明,"插入媒体",但在完成后,没有视频出现. 我也尝试添加一张图片,它完美的作品. 这是我的VBA代码: 设置OPPT =的CreateObject("PowerPoint.Application") 设置oPres = oPPT.Presentations.Open(路径&".PPTX") 昏暗oSlide以幻灯片 昏暗oPict

  • 事件未触发在MS Access VBA 2012-09-08

    我在MS Access中的形式有一个形象. 该图像具有打开一个模式窗体的Click事件. 模态形式所具有的确定和取消按钮. 当您单击确定按钮,一个事件应该火,告诉哪个按钮被点击的主要形式. (这是为了模拟在C#中的DialogResult功能). 然而,在事件处理程序中的代码永远不会运行. 该模式窗体在一般的声明如下: Public Event OnDialogBoxClose(NewRecordID As Long, DialogResult As DialogResults) 和下面的代码被

  • 的MS Access / VBA,检查桌面锁 2013-04-17

    基本上,我试图找到对的MS Access(2003年)的方式来检测用户是否已经做了按Ctrl + Alt + Del键,并锁定其工作站. 如果出现这种情况,我想打开的数据库关闭. 目前,我有在检查活动的后台运行一个隐藏的形式,但它是不可靠的. 有没有办法在VBA做到这一点,或者我应该这样做的另一种方式(或两者)? 谢谢! --------------解决方案------------- 你不会找到一个可靠的方式来做到这一点从内部访问. 按Ctrl / ALT /德尔实际上并没有锁定计算机,它带来了

  • 当字符串包含分号的MS Access VBA的AddItem 2013-05-02

    要将项目添加到多列列表框,使用的AddItem(),我的理解是,文本的每一列必须用分号分隔. 但是,如果文本走在已经包含了一个分号,其中一列发生什么呢? 有没有一种方式来逃避它,这样的AddItem()把它的字面? 目前,该文本被分布在两列. 我在MS Access使用VBA 2003代码的相关行看起来是这样的:lstResults.AddItem(rstItems("[条目标识号]")";"&rstItems("[说明]"))和rstI

  • 结合的MS Access VBA代码 2014-10-17

    我和我的同事正在开发一个MS Access基础的应用. 我们正在设计和以工作划分不同的编码页/表单. 我们计划以后合并我们的工作. 我们怎样才能做到这一点不喜欢破坏设计和宏什么问题? 我们正在使用的前端和SQLServer 2005年作为数据源的MS Access 2007. 我发现了一个想法某处bytes.com. 我可以导入窗体,报表,查询,数据和表格,我want.I'm要试试这个. 然而,这只是一个idea.So,需要通过试错技术来研究这种方法. --------------解决方案---

  • 如何使用的MS Access / VBA到SharePoint组中获得的用户列表 2015-03-11

    我创建与SharePoint 2010列表作为数据源集成的MS Access 2007的应用程序. 我需要检查的人是一个特定的SharePoint用户组,以支持一些功能我建立到应用程序的成员的用户. 有没有一种方法来确定从VBA代码中的SharePoint用户到组的关系? 谢谢. --------------解决方案------------- 我使用通过SOAP为CAML查询,然后喂响应转换成XML解析器 可能需要一些微调,但是这将让你大多数的方式存在. 我用类似的东西. 它看起来复杂,但一切顺

Copyright (C) 55228885.com, All Rights Reserved.

55228885 版权所有 京ICP备15002868号

processed in 0.276 (s). 10 q(s)