Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Ayuda para generar evento a traves de RaisError SQL (https://www.clubdelphi.com/foros/showthread.php?t=82527)

Cristhor1982 14-03-2013 23:13:57

Ayuda para generar evento a traves de RaisError SQL
 
Hola amigos, como estan? espero que bien

les cuento tengo lo siguiente
Código SQL [-]
IF EXISTS (
      SELECT  Cod_Sindicato
      FROM     Trabajadores
      WHERE   Vic=@Vic
      AND    Cod_Sucursal<>@Cod_Sucursal
           )
        BEGIN
          SET     @MSG = Char(13) + Char(13) + 'Mensaje'
            RaisError  (@MSG, 11, 1, 0)
          Return
        END

en Delphi lo siguiente

Código Delphi [-]
 fr_clave.TB_Consulta.Close;
      fr_clave.TB_Consulta.sql.Clear;
      fr_clave.TB_Consulta.sql.Add('EXEC_aCTeMPLEADOSsINDICATO 1,');;
      fr_clave.TB_Consulta.sql.Add(''''+ trim(copy(fr_clave.CB_Sucursales.Text, 50,100)) +''',');
      fr_clave.TB_Consulta.sql.Add(''''+ USindicatos.FR_Sindicatos.TX_Codigo.Text +''',');
      fr_clave.TB_Consulta.sql.Add(''''+Tx_Vic.Text +''',');
      fr_clave.TB_Consulta.sql.Add(''''+ fr_clave.TX_Usuario.Text +''',0,0,0');
      fr_clave.TB_Consulta.ExecSQL;


Necesito a lo que se termine de ejecutar en delphi y me envie el mensaje desde sql...Abra un modulo existente, en realidad seria solo llamar en base al mensaje desde SQL...Alguien me puede ayudar, aLGUNA IDEA


Graciias


La franja horaria es GMT +2. Ahora son las 16:50:08.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi