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 Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-05-2010
nextor nextor is offline
Miembro
 
Registrado: abr 2010
Posts: 31
Poder: 0
nextor Va por buen camino
Thumbs up capacidad del tquery?

Hola de nuevo amigos del mejor foro de delphi!!

Primera mente quiero agradecer por toda su ayuda, ya que por medio de esta pagina he solucionado muchos problemas.

pero mi problema es el siguiente: en un proyecto de delphi tengo un form con los siguientes componentes:
Código Delphi [-]
  Table1: TTable;
    Table2: TTable;
    Database1: TDatabase;
    Database2: TDatabase;
    Button1: TButton;
    Query1: TQuery;
    Query2: TQuery;
lo que estoy tratando de hacer es que de una base de datos pasar datos de una tabla a otra base de datos mediante un querys
algo asi:
Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
var cont:integer;
begin
cont:=0;
showmessage('iniciado');
with database2 do
  begin
    Close;
    Open;
  end;
with query2 do
  BEGIN
    close;
    SQL.Text:='select * from vw_movimientos';
    open;
    first;
    database1.Close;
    database1.Open;
    showmessage(IntToStr(RecordCount));
    for cont:=0 to RecordCount -1 do
    begin
      query1.Close;
      query1.SQL.Text:='insert into vw_movimientos(fecha) values (''' +fields[0].AsString + ''') ';
      query1.ExecSQL;
      query1.Close;
      query2.Next;
    end;
    database1.Close;
    close;
  end ;
 showmessage('finalizado');
end;
pero solo me copia 65,904 registros de 2,300,000 alguien tiene idea de por que pasa esto?

Gracias

Última edición por marcoszorrilla fecha: 27-05-2010 a las 19:03:49.
Responder Con Cita
  #2  
Antiguo 27-05-2010
elarys elarys is offline
Miembro
 
Registrado: abr 2007
Posts: 94
Poder: 17
elarys Va por buen camino
que base de datos estas usando

igual echale un ojo a esto
http://www.google.com.ar/#hl=es&q=+s...2c21fd806ac625

Última edición por elarys fecha: 27-05-2010 a las 20:13:21.
Responder Con Cita
  #3  
Antiguo 27-05-2010
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Si no encuentras la solución en los enlaces que ha indicado elarys, entonces danos más información y procuraremos ayudarte, aunque en principio veo varias cosas "raras" en tu código.
Responder Con Cita
  #4  
Antiguo 27-05-2010
nextor nextor is offline
Miembro
 
Registrado: abr 2010
Posts: 31
Poder: 0
nextor Va por buen camino
Gracias

gracias por responder

estoy utilizando el ms sql server y mysql, estoy pasando datos de mysql a sql server

Gracias de nuevo
Responder Con Cita
  #5  
Antiguo 28-05-2010
Avatar de Faust
Faust Faust is offline
Miembro
 
Registrado: abr 2006
Ubicación: México D.F.
Posts: 930
Poder: 18
Faust Va por buen camino
Saludos, he estado viendo tu código y para recorrer tu tabla origen sería mejor hacer un while, te incluyo un ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var cont:integer;
begin
cont:=0;
showmessage('iniciado');
with database2 do
  begin
    Close;
    Open;
  end;
with query2 do
  BEGIN
    close;
    SQL.Text:='select * from vw_movimientos';
    open;
    first;
    database1.Close;
    database1.Open;
    showmessage(IntToStr(RecordCount));
{    for cont:=0 to RecordCount -1 do
    begin
      query1.Close;
      query1.SQL.Text:='insert into vw_movimientos(fecha) values (''' +fields[0].AsString + ''') ';
      query1.ExecSQL;
      query1.Close;
      query2.Next;
    end;
}
    
    while not Eof do
    begin
      query1.Close;
      query1.SQL.Text:='insert into vw_movimientos(fecha) values (''' +fields[0].AsString + ''') ';
      query1.ExecSQL;
      query1.Close;
      Next
    end;
    
    database1.Close;
    close;
  end ;
 showmessage('finalizado');
end;

Y así no te limita ni el conteo... inténtalo y nos cuentas.
__________________
Herr Heins Faust
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Capacidad de firebird ivantech Firebird e Interbase 13 07-03-2010 23:14:17
Capacidad de Paradox irvingcm Tablas planas 3 13-04-2005 01:41:59
Capacidad QReport marila Impresión 4 05-05-2004 17:22:06
Capacidad del QReport marila Impresión 2 22-04-2004 17:02:47
Capacidad No soportada con BDE GIVO Conexión con bases de datos 3 27-08-2003 04:10:09


La franja horaria es GMT +2. Ahora son las 09:09:49.


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