Pasar datos de IBexpert a SQL

[maxzama]

A ver si te entiendo.

tengo dos base de datos que contienen los mismo campos y las base de datos estan creadas en:

1) En IBexpert

2) PHPAdmin


Y quiero pasar los datos, de una base de dato a la otra base de dato.

es decir: quiero pasar informacion o lo datos (de la base de dato creado en IBexpert), a la base de dato creada en phpadmin.

// repito tienen los mismo campos. las dos base de datos creadas en diferentes servidores o programa.

[Casimiro Noteví]

Empezado por maxzama

tengo dos base de datos que contienen los mismo campos y las base de datos estan creadas en:

1) En IBexpert
2) PHPAdmin

Amigo maxzama, tienes 2 bases de datos iguales, ¿las dos son firebird?

[maxzama]

Gracias, no lo sabia.

entoces como paso la informacion de IBexpert a phpAdmin. Atraves de delphi.


ejemplo:
Asi como muestro en este codigo. donde paso los datos de una base dato a otra base de dato. pero este codigo no me sirve pasar dato de IBexpert a phpAdmin.

Código Delphi [-]
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;

[Casimiro Noteví]

Empezado por Casimiro Notevi

Amigo maxzama, tienes 2 bases de datos iguales, ¿las dos son firebird?

Responde a esto.

[maxzama]

no.

esto es lo que quieres saber:

- firebird : IBexpert (base de dato DIA)

- vertrigo : PHPAdmin (base de dato DIA)

[maxzama]

no uno es de firebird y el otro mySQL.

esto lo que querias saber...

[maxzama]

Tengo un IBDataset que se conecta con la base de dato firebird

Tengo un ZUpdateSQL que esta conectado a un ZQuery (de la libreria zeoslib), que se conecta con la base de dato MySQL.

Como hago a hora para pasar informacion de firebird a MySQL. Alguna idea, de como tendria que hacerlo en codigo.

[[duilioisola]]

"Nuve" ??? Qué dolor de ojos!!!!
Supongo que habrás querido decir nuBe

Pero bueno... al caso...
Después de 16 mensajes, parece que te has explicado:

Pasar datos de una base Firebird a una base MySQL.

Por un lado tienes que poder conectar a ambas bases de datos. A la base de datos Firebird, no tendrás problemas, porque ya lo haces.
En cuanto a la base de datos MySQL es un poco mas complicado.
Primero tendrás que abrir el puerto 3306 en el servidor MySQL.
Luego tendrás que decirle a MySQL que permita conexiones de fuera, creando un usuario y diciéndole que puede conectarse desde una IP externa.
Una vez tengas esto del lado del servidor, puedes conectar mediante las zeoslib o crear una conexión ODBC hacia esa base.
Finalmente te queda hacer el bucle que lea de una base y escriba en la otra...

Código Delphi [-]
// Abrir datos
QOrigen.Open;
// Abrir destino
QDestino.Open;

// Mientras haya datos, los inserto en destino
while (not QOrigen.EOF) do
begin
   QDestino.Insert;
   QDestino.Field.... := QOrigen.Field... ;
   QDestino.Post;
   QOrigen.Next;
end;

// Cierro Datos
QOrigen.Close;
// Abrir destino
QDestino.Close;

[maxzama]

acabo de hacer este codigo:

pero no se como llamo el parametro a travez de un ZUpdateSQL.

Ejemplo: modulo.Dias_M_I.ParamByName('CEDULA').AsString;

Codigo delphi:

Código Delphi [-]
begin
Dmodulo.RegistroMadre2.SQL.Clear ;
Dmodulo.RegistroMadre2.SQL.Add('select * from RegistroMadre ');
DMODULO.RegistroMadre2.Open;

Dmodulo.RegistroMadre2.First;
       while not Dmodulo.RegistroMadre2.Eof do
             begin

                 if DMODULO.RegistroMadre2.FieldByName('NumeroCuenta').AsString>'' then

                 begin
                     Dmodulo.Dias_M_I.SQL.Text:=Dmodulo.Dias_M_I.InsertSQL.Text;
                     Dmodulo.Dias_M_I.ParamByName('CEDULA').AsString:=DMODULO.RegistroMadre2.FieldByName('Cedula').AsStri  ng;
                     Dmodulo.Dias_M_I.ExecSQL;
                     Dmodulo.Dias_M_I.SelectSQL.Text:=('select * from RegistroMadre ');
                     SHOWMESSAGE('A sido Insertado');
                 end;
       Dmodulo.RegistroMadre2.Next;
       end;
       Dmodulo.ibt.Commit;
end;