Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-02-2005
perillan perillan is offline
Miembro
 
Registrado: feb 2005
Posts: 82
Poder: 20
perillan Va por buen camino
pase de datos de access a interbase

Estoy empezando con Interbase y quiero pasar una Tabla en acces a otra con campos diferentes de interbase. Con debase lo he hecho algunas veces, pero a la hora de pasar los datos del ADO de access a interbase me pierdo.
Un saludo
Responder Con Cita
  #2  
Antiguo 02-03-2005
buitrago_listas buitrago_listas is offline
Miembro
 
Registrado: oct 2004
Posts: 33
Poder: 0
buitrago_listas Va por buen camino
While

Por que no haces dos conecciones desde el mismo Delphi, y haces un While pasando todos los datos de un lado a Otro?
Creo que hasta es más rapido que ponerte a usar el DataPump

Saludos

Fer
Responder Con Cita
  #3  
Antiguo 03-03-2005
perillan perillan is offline
Miembro
 
Registrado: feb 2005
Posts: 82
Poder: 20
perillan Va por buen camino
Cita:
Empezado por buitrago_listas
Por que no haces dos conecciones desde el mismo Delphi, y haces un While pasando todos los datos de un lado a Otro?
Creo que hasta es más rapido que ponerte a usar el DataPump

Saludos

Fer
He hecho la aplicación esta, pero solo pasa el primer registo y da un error en interbase, pasa el primer registro y no los siguientes.
Un saludo.

procedure TForm1.Altas1Click(Sender: TObject);
var
las variables que sean
begin

ADOQuery1.active:=true;
ADOQuery1.First;
While not ADOQuery1.Eof do
begin
NNOCa:=ADOQuery1NNOC.value;
CdigodelArtculoa:= ADOQuery1CdigodelArtculo.value;
NombredelMateriala:= ADOQuery1NombredelMaterial.value;
CdigodelArtculoa:= ADOQuery1CdigodelArtculo.value;

ADOQuery1.Next;

//Abro la base de Inerbase

TRY
IBTransaction1.Active:=true;
ibtable1.active:=true;
IBtable1.append;

//Empezamos a pasar datos
IBtable1NOMBRE.AsString:=NombredelMateriala;
IBtable1NNOC.AsString:=NNOCa;
IBtable1NCODIGO.AsString:=CdigodelArtculoa;

IBTransaction1.COMMIT;

EXCEPT
SHOWMESSAGE (' ALGO SALIO MAL ');
IBTransaction1.ROLLBACK;
END;

end;
end;
end.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 01:34:07.


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
Copyright 1996-2007 Club Delphi