Como utilizar SqlTransaction

[Cubino]

Saludos!
Haber si alguien puede ayudarme.
Estoy trabajando con una tabla que la cargo en un "datatable", en el que puede añadir una fila o modificar otra.
El caso es que al añadirla utilizo el siguiente código donde:
---------------------------------------------------------------------------------------------
'Guarda linea
(dtasql es el SqlDataAdapter , dtbsql es el Datatable)
Dim trans as sqltransaction
Dim cmdSql as new SqlCommand


trans = cnn.BeginTransaction(IsolationLevel.ReadCommitted)
cmdSQL.Transaction = trans

FilaNueva = dtbSQL.NewRow
FilaNueva!IdCentro = NumCentro
FilaNueva!Ip = MiIP
FilaNueva!Lin = lngLinea
FilaNueva!IdArticulo = Me.txtCod.Text
FilaNueva!NombreArticulo = Me.txtDesc.Text
FilaNueva!NomColor = Me.txtColor.Text
FilaNueva!NomTalla = Me.txtTalla.Text
FilaNueva!Cantidad = CLng(txtUni.Text)
dtbSQL.Rows.Add(FilaNueva)

dtaSQL.Update(dtbSQL)
dtbSQL.AcceptChanges()
trans.Commit()
---------------------------------------------------------------------------------------------

El problema es que abro el programa, guardo una linea y no hay problemas, pero cuando intento guardar las siguientes me sale el famoso error: "executenonquery requiere que el comando tenga una transaccion...."
Cierro el programa lo vuelvo abrir y otra vez, la primera la guarda pero las siguientes no.
He visto que cuando llega a dtasql.Update(dtbsql) salta el error.
Alguien podría echarme una mano?
muchas gracias y que paséis un buen día.

[drako_darpan]

Hola que tal, bueno el Begin Transaction lo que hace es un bloque en el servidor para que el pueda realizar una accion y en ese tiempo el servidor sera ocupado por dicha transaccion.

Yo te recomendaria, aunque suene algo monotono, usa SP lo cual te facilita mas la vida y no tienes que hacer mucha carga de codigo en el fuente.

Una cosas, una vez que creaste el BEGIN TRANSACTION T1 ( en SQL ), tiene que haber un COMMIT TRANSACTION T1 o ROLLBACK TRANSACTION T1, esto es por que sino la transaccion sigue retenida y no puede hacer nada mas.

El T1 es un alias

[Cubino]

Gracias por la respuesta pero por me gustaría hacerlo por código ya que me parece extraño que me salga ese error.
Como tu dices es necesario que haya un COMMIT O ROLLBACK y yo en ese caso utilizo el COMMIT como puedes ver arriba y en la parte de controlar errores lanzo el ROLLBACK. Queda de esta manera
Dim cnn as new SqlConnection
Dim dtbSql as new DataTable
Dim trans as sqltransaction
Dim cmdSql as new SqlCommand

try
trans = cnn.BeginTransaction(IsolationLevel.ReadCommitted)
cmdSQL.Transaction = trans

FilaNueva = dtbSQL.NewRow
FilaNueva!IdCentro = NumCentro
FilaNueva!Ip = MiIP
FilaNueva!Lin = lngLinea
FilaNueva!IdArticulo = Me.txtCod.Text
FilaNueva!NombreArticulo = Me.txtDesc.Text
FilaNueva!NomColor = Me.txtColor.Text
FilaNueva!NomTalla = Me.txtTalla.Text
FilaNueva!Cantidad = CLng(txtUni.Text)
dtbSQL.Rows.Add(FilaNueva)

dtaSQL.Update(dtbSQL)
dtbSQL.AcceptChanges()
trans.Commit()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Mensaje de error")
Try
trans.Rollback()
Catch err As Exception
MsgBox(err.Message, MsgBoxStyle.Exclamation, "Mensaje de error")
End Try
End Try

Es como si solo pudiera pasar una vez por el código. Una vez funciona pero dos ya no....
Si me pudieran decir al menos porque causa el error.
Gracias de antemano y lo siento por la tardanza en contestar pero ya se sabe. Estamos en fiestas y eh estado liado

[drako_darpan]

Hola que tal, lo que puedes hacer es que una vez que ya se ejecuto la operacion cierres la conexion y cuando ocupes volver a grabar el registro la abras de nuevo .

Lo que puede estar pasando es que la conexion se este quedando pegada.

Encontre esta pagina, haber si te sirve:

http://www.elguille.info/colabora/pu...asEnAccess.htm

[edbc92]

Haber, para empezar el lugar adecuado del rollback es colocarlo a la hora que te agarra la excepción, para que no uses doble try...

Y bueno un ejemplo de una transacción es esta:

Código vb:

Dim cn as new sqlconnection(strcn)
dim tx as sqltransaction
 
try
cn.open
 
tx=cn.begintransaction
 
sql="insert into encabezadoFact values (@cod,@etc)"
 
dim cmd as new sqlcommand(sql,cn,tx) 'Fijate que se pasan estos 3 valores
cmd.parameters.addwithvalue("@cod",lblcod.text)
cmd.parameters.addwithvalue("@etc",txtetc.text)
 
cmd.executenonquery
 
tx.commit
 
catch ex as exception
tx.rollback
msgbox(ex.message)
finally
cn.close
end try
 

Quizás te aparezca algunos de esos con subrayado verde, algo que diga parecido a esto: Se hará caso omisa a la hora de ejecución; algo asi recuerdo...Ejecuta tu programa no pasa nada si es que aparece eso...

En fin, espero que te sirva...

[Cubino]

Iniciado por edbc92

Haber, para empezar el lugar adecuado del rollback es colocarlo a la hora que te agarra la excepción, para que no uses doble try...

Y bueno un ejemplo de una transacción es esta:

Código vb:

Dim cn as new sqlconnection(strcn)
dim tx as sqltransaction
 
try
cn.open
 
tx=cn.begintransaction
 
sql="insert into encabezadoFact values (@cod,@etc)"
 
dim cmd as new sqlcommand(sql,cn,tx) 'Fijate que se pasan estos 3 valores
cmd.parameters.addwithvalue("@cod",lblcod.text)
 
 
 
cmd.parameters.addwithvalue("@etc",txtetc.text)
 
cmd.executenonquery
 
tx.commit
 
catch ex as exception
tx.rollback
msgbox(ex.message)
finally
cn.close
end try
 

Quizás te aparezca algunos de esos con subrayado verde, algo que diga parecido a esto: Se hará caso omisa a la hora de ejecución; algo asi recuerdo...Ejecuta tu programa no pasa nada si es que aparece eso...

En fin, espero que te sirva...

Gracias por la respuesta.
Veras hice lo que me dijeron y tampoco. Cierro la conexión, la vuelvo abrir pero sigue saliendo el error de:
"ExecuteNonQuery requiere que el comando tenga una transacción cuando la conexión asignada al mismo esta en una transacción local pendiente. No se ha inicializado la propiedad transaction del comando"
La verdad es que no entiendo porque me pone esto si justo antes de asignar los valores del DataRow le digo a la base de datos que voy a comenzar una transacción y al command le asigno la transacción.
Porque me dice que el comando requiere una transacción si ya se la asigno.
El programa trabaja con un tabla que se muestra en un datagridview asociado a un DataAdapter en el que inserto una fila o cambio los valores de una fila i luego lanzo el DataAdapter.Update(DataTable)
A lo mejor esto puede seros de ayuda.
Gracias a todos por ayudarme

[drako_darpan]

Hola que tal, puedes debugear el programa y ver donde o en que momento sale la Excepcion.

Yo creo que el error puede estar en los 2 try.

Código VB:

Try
    dtaSQL.Update(dtbSQL)
    dtbSQL.AcceptChanges()
    trans.Commit()
    
    Catch err As Exception
        trans.Rollback()
        MsgBox(err.Message, MsgBoxStyle.Exclamation, "Mensaje de error")
End Try
 

Intenta dejandolo asi, a lo mejor tienes un error por algun catch. La otra es puedes identificar con

Código VB:

Try
    dtaSQL.Update(dtbSQL)
    dtbSQL.AcceptChanges()
    trans.Commit()
    Catch ex As Exception
    MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Mensaje de error...1")
    
        Catch err As Exception
            trans.Rollback()
            MsgBox(err.Message, MsgBoxStyle.Exclamation, "Mensaje de error...2")
End Try
 

Para ver cual es el error que se esta ejecutando primero.

[Cubino]

Iniciado por drako_darpan

Hola que tal, puedes debugear el programa y ver donde o en que momento sale la Excepcion.

Yo creo que el error puede estar en los 2 try.

Código VB:

Try
    dtaSQL.Update(dtbSQL)
    dtbSQL.AcceptChanges()
    trans.Commit()
    
    Catch err As Exception
        trans.Rollback()
        MsgBox(err.Message, MsgBoxStyle.Exclamation, "Mensaje de error")
End Try
 

Intenta dejandolo asi, a lo mejor tienes un error por algun catch. La otra es puedes identificar con

Código VB:

Try
    dtaSQL.Update(dtbSQL)
    dtbSQL.AcceptChanges()
    trans.Commit()
    Catch ex As Exception
    MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Mensaje de error...1")
    
        Catch err As Exception
            trans.Rollback()
            MsgBox(err.Message, MsgBoxStyle.Exclamation, "Mensaje de error...2")
End Try
 

Para ver cual es el error que se esta ejecutando primero.

El error lo da cuando lanzo el Update al DataAdapter. Y tampoco me permite colocar los dos catch. La verdad es que al final lo haré a través de consultas de acción porque no consigo eliminar el error. Si alguien supiera porque pasa esto lo agradecería de verdad.
Feliz Año