Ver Mensaje Individual
  #1  
Antiguo 26-01-2015
maxzama maxzama is offline
Miembro
NULL
 
Registrado: jun 2011
Posts: 126
Reputación: 13
maxzama Va por buen camino
Pasar datos de IBexpert a SQL

Hola.

Quiero saber, como puedo madar datos de IBexpert a SQL(base de dato 'Nuve').

Se esta utilizando:

-Firebird 2.5
-Delphi xe2

aqui le muestro un codigo, el cual solo envia de SQL a SQL o IB a IB. Por su forma de como esta diseñado, claro. pero e estado buscando hacer algo parecido. pero no encuentro un resultado, que me haga de SQL a IB o viceversa.

Codigo:

Código Delphi [-]
if application.MessageBox('DESEA GUARDAR?','guardar un Registro',
     MB_ICONQUESTION OR MB_YESNO) = ID_YES then
       begin
           Dmodulo.ASISTENCIA_COBRAR.Close;
           Dmodulo.ASISTENCIA_COBRAR.SQL.Text:='insert into ASISTENCIA_COBRAR select * from ASISTENCIA_Madre';
           Dmodulo.ASISTENCIA_COBRAR.ExecSQL;
               Dmodulo.ibt.Commit;  // ibt ibtrasaction
               Dmodulo.ASISTENCIA_COBRAR.SQL.Clear ;
               Dmodulo.ASISTENCIA_COBRAR.SQL.Add('select * from ASISTENCIA_COBRAR ');
               Dmodulo.ASISTENCIA_COBRAR.Open;

               Dmodulo.ASISTENCIA_Madre1.selectSQL.clear;
               Dmodulo.ASISTENCIA_Madre1.selectSQL.Text:=('delete from ASISTENCIA_Madre');
               Dmodulo.ASISTENCIA_Madre1.ExecSQL;
               Dmodulo.ASISTENCIA_Madre1.selectSQL.clear;
               Dmodulo.ASISTENCIA_Madre1.selectSQL.Text:=('select * from ASISTENCIA_Madre');
               Dmodulo.ASISTENCIA_Madre1.Open;
               Dmodulo.ibt.Commit;

           SHOWMESSAGE('A sido Insertado');
       end;

Espero su respuesta, pr fvr y grcs...
Responder Con Cita