Programación General > Visual Basic 6.0 e inferiores

 Error En Transaccion Con Visual

<< < (2/2)

F_Tanori:

--- Código: Text --- ...Cnn.Open(&#34;conectionstring&#34;)Cnn.CursorLocation = adClient... if Ejecutar(&#34;DELETE FROM tabla1&#34;) then  Msgbox(&#34;&#34;,&#34;Datos eliminados&#34;)end if  

--- Código: Text --- Function Ejecutar(sSQL as string) as Boolean On Error Goto xError   Dim sSQL as string  Dim bTransaccionActiva as Boolean,bExito as Boolean   bTransaccionActiva=False  bExito=False   With Cnn    bTransaccionActiva=.BeginTrans &#62;0           .Execute(sSQL)           .CommitTrans            bTransaccionActiva=False            bExito=True  End If   xError:  if bTransaccionActiva then      Cnn.RollBack    end if    if Err.Number&#62;0 then    MsgBox (Err.Number,Err.Description)    end if      Ejecutar=bExitoEnd Function  
asi le hago yo no lo compile poque aqui no tengo VB :P pero ahi esta la idea puede haber errores de sintaxis porque tengo tiempo que no uso VB y pues como no lo pude probar :P


Saludos Espero ayude

Navegación

[0] Índice de Mensajes

[*] Página Anterior