请问vb的多数据库事物处理是如何处理的？

[peaty]

多谢！

[lihonggen0]

VB的事务处理包括以BeginTrans开始,
以CommitTrans或Rollback结尾的多条数据库操作指令.
事务处理除了能很好的保证数据库的完整性以外.同时能大大提高数据库批量更新的效率.这是因为如果数据库更新操作没有使用事务处理,则每次Update操作都会引起数据库写盘一次.
使用事务处理后,更新只在内存缓冲区内进行,执行CommitTrans时才将所有修改一次写回到磁盘中.使用事务处理要注意一下几点:
(1)事务处理要有很完善的错误检查机制;
(2)因为VB在事务处理结束前对数据库使用了页面锁.所以在多用户环境中,如果事务被挂起,则其他用户将无法访问上锁的数据.

[peaty]

多谢二位，不过我要的是

多 数据库 的事务处理
单数据库的我是知道的

[wdwd05]

多数据库就用多个事务来处理，事务的多少和数据库的多少没有关系~

你如果有什么问题，在具体分析吧~

其余的与楼上相同~

[yijiansong]

支持楼上

[ybcaa]

connA.begintrans '开始事务A
connB.begintrans '开始事务B
connA.execute " ..."
connB.execute " ..."
connA.committrans '提交事务A
connB.committrans '提交事务B
exit sub
errsave:
connA.rollbacktrans '回滚事务A
connB.rollbacktrans '回滚事务B
msgbox "数据提交失败!"
exit sub
end sub

[peaty]

多数据库就多事务 怕不行吧，我需要一个事务处理，如果某个数据库操作失败，其他的要全部退回，多个事务行吗？

至于事务嵌套我试了，系统提示：不能嵌套事务
第一个事务未结束开始第二个事务是不行的
我的环境：vb6,sql server2000/
不知道哪位清楚，多谢多谢

[peaty]

up

[KJ_Wang]

如果你正在用的是SQL Server数据库，你可以链接服务器，然后再在你操作的SQL Server服务器时写事务就可以了，包括文本也可以做到，但是如果你操作的时Access,Txt,Excel文件的话，就不行了，哈哈！！
如果数据库全是SQL Server肯定没问题。Sybase与Orcale我不知道能不能行，反正没做过。

[dary_zhou]

做一个变量，如果有一个数据库处理不成功，的话退回所有的不就可以 了

[cansum396]

给你一个例子.数据库有两个:分别是WS,WSCH;此存储过程在WS中
--生成WS中业务员汇总销售
SELECT CREATE_BY,
SUM(QTY*CAST(PRICE AS MONEY)*CUR_RATE/(1+TAX_RATE)) AS SIAMOUNT,
SUM(QTY*CAST(AVG_COST AS MONEY)) AS SICOST,
(SUM(QTY*CAST(PRICE AS MONEY)*CUR_RATE/(1+TAX_RATE)) -SUM(QTY*CAST(AVG_COST AS MONEY))) AS SINP
FROM SI AS H ,SI_DETAIL AS D
WHERE H.SI_NO=D.SI_NO AND DATE_CREATE BETWEEN @BEGINDATE AND @ENDDATE
GROUP BY CREATE_BY

--生成WSCH中业务员汇总销售
SELECT CREATE_BY,
SUM(QTY*CAST(PRICE AS MONEY)*CUR_RATE) AS SIAMOUNT,
SUM(QTY*CAST(AVG_COST AS MONEY)) AS SICOST,
(SUM(QTY*CAST(PRICE AS MONEY)*CUR_RATE) -SUM(QTY*CAST(AVG_COST AS MONEY))) AS SINP
FROM WSCH.DBO.SI AS H ,WSCH.DBO.SI_DETAIL AS D
WHERE H.SI_NO=D.SI_NO AND DATE_CREATE BETWEEN @BEGINDATE AND @ENDDATE
GROUP BY CREATE_BY
请注意看"FROM WSCH.DBO.SI AS H ,WSCH.DBO.SI_DETAIL AS D"这一句.
你可以把存储过程改成VB程序代码.这个不用我教你了吧???
:)

[peaty]

你这个倒是多数据库
可是好象没有 事务在里面吧

[strongfisher]

第一：
private sub TSave()
cn.begintrans
on error goto InsertErr
cn.execute(SQL语句）
cn.CommitTrans
exit sub
InsertErr:
cn.RollbackTrans
msgbox "ERROR",vbinformation,"AAA"
end sub
第二：
private sub TSave()
dim rsMain as new adodb.recordset‘主表
dim rsDetail as new adodb.recordset’明细表
连接自己写
cn.begintrans
on error goto InsertErr
　with rsmain

[strongfisher]

.addnew
.fields(0).value=text1.text
.................
.update
end with
for i=0 to txt.count-1
with rsdetail
.addnew
.fields(i).value=txt(i).text
...........
.update
end with
next
cn.CommitTrans
exit sub
InsertErr:
cn.RollbackTrans
msgbox "ERROR",vbinformation,"AAA"
end sub
第三：（大型数据库SQL Server）
private sub TSave()
dim sqlstr as string
sqlstr="Begin trans insert into table(field1,....fieldn) values(value1,value2.....valuen) comm trans"
cn.execute(sqlstr)
end sub

[peaty]

这是多数据库吗？

[yijiansong]

多数据库用多个连接分别处理即可

[peaty]

多个数据库，一个事务，分别连接怎么做？

[peaty]

多谢你的解答
不过我还有疑问 ：
1、我同时操作多个数据库，确实是多个连接
2、未结束第一个事务开始第二个事务，系统 给我的提示是 ：不能嵌套事务
所以我还是无法实现我的目的
希望能得到你更详细的帮助，多谢多谢！

[junwhj]

1、一个事务只对当前联接有效；
2、同时操作多个数据库，应当使用多个联接；
3、这不是事务嵌套；
4、当其中一个数据库操作失败时，将所有事务RoolBack。

[cansum396]

你加一个事务就可以了
BEGIN TRAN
--生成WS中业务员汇总销售
SELECT CREATE_BY,
SUM(QTY*CAST(PRICE AS MONEY)*CUR_RATE/(1+TAX_RATE)) AS SIAMOUNT,
SUM(QTY*CAST(AVG_COST AS MONEY)) AS SICOST,
(SUM(QTY*CAST(PRICE AS MONEY)*CUR_RATE/(1+TAX_RATE)) -SUM(QTY*CAST(AVG_COST AS MONEY))) AS SINP
FROM SI AS H ,SI_DETAIL AS D
WHERE H.SI_NO=D.SI_NO AND DATE_CREATE BETWEEN @BEGINDATE AND @ENDDATE
GROUP BY CREATE_BY

--生成WSCH中业务员汇总销售
SELECT CREATE_BY,
SUM(QTY*CAST(PRICE AS MONEY)*CUR_RATE) AS SIAMOUNT,
SUM(QTY*CAST(AVG_COST AS MONEY)) AS SICOST,
(SUM(QTY*CAST(PRICE AS MONEY)*CUR_RATE) -SUM(QTY*CAST(AVG_COST AS MONEY))) AS SINP
FROM WSCH.DBO.SI AS H ,WSCH.DBO.SI_DETAIL AS D
WHERE H.SI_NO=D.SI_NO AND DATE_CREATE BETWEEN @BEGINDATE AND @ENDDATE
GROUP BY CREATE_BY
COMMIT TRANSACTION

[yoki]

你将这些关联的数据库操作（也就是你所谓得多数据库）放在一个事务里就可以啊