com CommitTrans, RoolbackTrans

[Glauber Victor 0]

Olá pessoal!

 

Estou com uma duvida com usar o BeginTrans, RoobackTrans e CommitTrans em um procedimento que está desta forma:

 

set spGrava = Server.CreateObject("ADODB.Command")	spGrava.ActiveConnection = conexao	spGrava.CommandText = "spGRAVA_INFO"	spGrava.CommandType = 4	spGrava.CommandTimeout = 3000	spGrava.Prepared = true	spGrava.Parameters.Append spGrava.CreateParameter("@RETURN_VALUE", 3, 4,50)	spGrava.Parameters.Append spGrava.CreateParameter("@var1", 3, 1,50,var1)	spGrava.Parameters.Append spGrava.CreateParameter("@var2", 3, 1,50,var2)	spGrava.Parameters.Append spGrava.CreateParameter("@var3", 3, 1,50,var3)	spGrava.Parameters.Append spGrava.CreateParameter("@var4", 3, 1,50,var4)	spGrava.Parameters.Append spGrava.CreateParameter("@var5", 3, 1,50,var5)	spGrava.Parameters.Append spGrava.CreateParameter("@var6", 129, 1,50,var6)	spGrava.Parameters.Append spGrava.CreateParameter("@var7", 129, 1,50,var7)	spGrava.Parameters.Append spGrava.CreateParameter("@var8", 200, 1,50,var8)	spGrava.Parameters.Append spGrava.CreateParameter("@var9", 3, 1,50,var9)	spGrava.Parameters.Append spGrava.CreateParameter("@var10", 200, 1,50,var10)	spGrava.Parameters.Append spGrava.CreateParameter("@var11", 3, 1,50,var11)	spGrava.Parameters.Append spGrava.CreateParameter("@var12", 3, 1,50,var12)	spGrava.Execute()

Desde já agradeço a todos!!

[jrcardozo 4]

utilize a busca do forum antes de postar: http://forum.imasters.com.br/index.php?showtopic=33701

[Glauber Victor 0]

Sim eu já olhei este tuto, mesmo assim não funcionou...

 

 

Fiz assim

 

 

set spGrava = Server.CreateObject("ADODB.Command")	spGrava.BeginTrans	spGrava.ActiveConnection = conexao	spGrava.CommandText = "spGRAVA_INFO"	spGrava.CommandType = 4	spGrava.CommandTimeout = 3000	spGrava.Prepared = true	spGrava.Parameters.Append spGrava.CreateParameter("@RETURN_VALUE", 3, 4,50)	spGrava.Parameters.Append spGrava.CreateParameter("@var1", 3, 1,50,var1)	spGrava.Parameters.Append spGrava.CreateParameter("@var2", 3, 1,50,var2)	spGrava.Parameters.Append spGrava.CreateParameter("@var3", 3, 1,50,var3)	spGrava.Parameters.Append spGrava.CreateParameter("@var4", 3, 1,50,var4)	spGrava.Parameters.Append spGrava.CreateParameter("@var5", 3, 1,50,var5)	spGrava.Parameters.Append spGrava.CreateParameter("@var6", 129, 1,50,var6)	spGrava.Parameters.Append spGrava.CreateParameter("@var7", 129, 1,50,var7)	spGrava.Parameters.Append spGrava.CreateParameter("@var8", 200, 1,50,var8)	spGrava.Parameters.Append spGrava.CreateParameter("@var9", 3, 1,50,var9)	spGrava.Parameters.Append spGrava.CreateParameter("@var10", 200, 1,50,var10)	spGrava.Parameters.Append spGrava.CreateParameter("@var11", 3, 1,50,var11)	spGrava.Parameters.Append spGrava.CreateParameter("@var12", 3, 1,50,var12)	spGrava.Execute()'Verifico se ocorreu algum Erro, caso tenha ocorrido algum erro, 'eu desfaço as operaçõesIf Err <> 0 ThenspGrava.RollbackTransResponse.Write Err.DescriptionelsespGrava.CommitTransEnd If