Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 13-06-2007
Avatar de sitrico
[sitrico] sitrico is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Caracas, Venezuela
Posts: 295
Poder: 22
sitrico Va por buen camino
Entonces te toca irte a mano:

No tengo en este equipo el ejemplo que queria mostrarte pero de memoria :


Código Delphi [-]
Var
SQLText : tStringList;
s : String;
i : Integer;
Begin
SQLText := tStringList.create;
While not tabla.eof do
   Begin
   s := 'Insert Into '+TableName+' (';
   // Los Campos
   for i := 0 to Tabla.fieldcount-1 do
      s := s + Tabla.Fields.field[i].FieldName+', ';
   SetLength(s,Length(s-2); // para quitar el último ', '
   s := s+') Values (';
   // Los Valores
// Aqui hay que tener claro los tipos de datos
   for i := 0 to Tabla.fieldcount-1 do
      s := s + Tabla.Fields.field[i].AsString+', '; 
   SetLength(s,Length(s-2); // para quitar el último ', '
   s := s+'); ';  // el ; al final se usa en los scripts de firebird
   SQLText.Add(s);
   tabla.Next;
   End;
SqlText.SaveToFile('TuArchivoScript.sql');
SQLText.Free;

Te recomiendo que exportes primero tu tabla con IBExpert Y veas el script que se genera para que ajustes este método para que te quede igualito al de IBExpert.
__________________
Sitrico
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Exportacion de datos... chux Varios 6 10-05-2006 11:54:57
Quiero Generar un Script Migpal MS SQL Server 3 02-12-2005 17:16:27
Mas dudas para generar un Script MySQL bustio SQL 1 10-02-2005 03:44:32
Generar Script MySQL bustio MySQL 12 09-02-2005 14:56:13


La franja horaria es GMT +2. Ahora son las 00:12:23.


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