|
ｿｽ@ｿｽｿｽVB6 ADO BeginTransｿｽﾌエｿｽｿｽｿｽ[
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
m 2009/03/16(ｿｽｿｽ) 17:58:55
ｿｽﾂ具ｿｽｿｽｿｽVB6ｿｽﾅゑｿｽｿｽB
OSｿｽFWindowsVistaｿｽ@DBｿｽFSQLServer2005
ADOｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽDBｿｽｿｽJｿｽｿｽｿｽﾛ托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉトｿｽｿｽｿｽｿｽｿｽUｿｽNｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌとゑｿｽｿｽﾉ、ｿｽuｿｽｿｽｿｽﾌセｿｽbｿｽVｿｽｿｽｿｽｿｽｿｽﾅは、ｿｽｿｽｿｽｿｽﾈ擾ｿｽﾌトｿｽｿｽｿｽｿｽｿｽUｿｽNｿｽVｿｽｿｽｿｽｿｽｿｽｿｽJｿｽnｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽvｿｽﾆエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
1ｿｽxｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽiｿｽlｿｽXｿｽgｿｽｿｽｿｽﾄなゑｿｽｿｽjｿｽﾌに擾ｿｽLｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
WEBｿｽﾅ抵ｿｽｿｽﾗてみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽlｿｽXｿｽgｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾍ出ｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽBｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌで、ｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
--- ｿｽRｿｽ[ｿｽh ---
Set adoCnn = New ADODB.Connection
adoCnn.ConnectionString = "ｿｽﾚ托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ"
adoCnn.Open
adoCnn.CommandTimeout = 1000
adoCnn.BeginTrans
adoCnn.Execute "SQLｿｽｿｽ"
adoCnn.CommitTrans
adoCnn.Close
Set adoCnn = Nothing
ｿｽｿｽｿｽ 2009/03/17(ｿｽｿｽ) 17:54:50
ｿｽ‾ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽVｿｽXｿｽeｿｽｿｽｿｽﾌ全ｿｽﾌ托ｿｽｿｽｿｽSQLｿｽｿｽｿｽﾌ難ｿｽeｿｽｿｽｿｽ謔ｭｿｽかｿｽｿｽﾜゑｿｽｿｽが、
ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽﾌほゑｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽZｿｽbｿｽVｿｽｿｽｿｽｿｽｿｽﾅトｿｽｿｽｿｽｿｽｿｽUｿｽNｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ同趣ｿｽｿｽﾉ行ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾂ能ｿｽｿｽｿｽｿｽA
ｿｽGｿｽｿｽｿｽ[ｿｽgｿｽｿｽｿｽbｿｽvｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽRollbackTransｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾌ記ｿｽqｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽA
BeginTransｿｽﾌ鯉ｿｽﾉ会ｿｽｿｽ轤ｩｿｽﾌエｿｽｿｽｿｽ[ｿｽｿｽCommitｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽﾉ、
ｿｽVｿｽｿｽｿｽｿｽBeginTransｿｽｿｽsｿｽﾈゑｿｽｿｽﾄ鯉ｿｽｿｽﾊ的ｿｽﾉネｿｽXｿｽgｿｽﾆ難ｿｽｿｽｿｽｿｽｿｽﾔになゑｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽｿｽﾂ能ｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽﾂ茨ｿｽﾂ要ｿｽｿｽｿｽｿｽﾂぶゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。
