Club Delphi  
    Paypal   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

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 01-09-2004
Avatar de Cabanyaler
Cabanyaler Cabanyaler is offline
Miembro
 
Registrado: jun 2003
Ubicación: País Valencià
Posts: 339
Poder: 24
Cabanyaler Va por buen camino
Puedes crearla en tiempo de diseño en un directorio donde siempre tengas la estructura de las tablas. Despues ejecutar este fragmento de código extraido de nuevo de Trucomania, que hace copia de ficheros entre directorios:

Código Delphi [-]
 procedure CopyDirectory(Origen, Desti : string);
 var
     Files : integer;
     FOrigen, FDesti : string;
     ok     : boolean;
     Search : TSearchRec;
 begin
      Files := FindFirst(Origen + '\*.*', faAnyFile, Search);
      while Files = 0 do
       begin
            if Search.Attr <> faDirectory then
             begin
                  FOrigen := Origen + '\' + Search.Name;
                  FDesti := Desti + '\' + Search.Name;
                  ok := CopyFile(PChar(FOrigen),PChar(FDesti),false);
                  if not ok then ShowMessage('No se pudo copiar el fichero: '+
                                                                Search.Name);
             end
            else
             begin
                  if (Search.Name <> '.') and (Search.Name <> '..') then
                   begin
                        ok := CreateDir(Desti + '\' + Search.Name);
                        if not ok then ShowMessage('No se pudo crear el directorio: '+
                                                                          Search.Name)
                        else CopiaDirectori(Origen+'\'+Search.Name,Desti+'\'+Search.Name);
                   end;
             end;
            Files := FindNext(Search);
       end;
      FindClose(Search);
 end;

y aplicar la misma técnica descrita en el siguiente enlace:

http://www.clubdelphi.com/foros/showthread.php?t=13807

Donde tampoco se inventa nada, entre otras cosas.

Quizá existan más técnicas, pero esta es la primera que se me ocurre.
Espero haberte ayudado.
__________________
El meu país és tan petit, que des de dalt d'un campanar es pot veure el campanar veí.

Última edición por __cadetill fecha: 01-09-2004 a las 09:56:24. Razón: Poner etiqueta Delphi
Responder Con Cita
 



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 20:14:02.


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