4 respuestas en este tema

[luk2009]

Hola a todos

haciendo algunas investigaciones sobre los problemas con mi base de datos, la cual estaba creando de nuevo.
Encontre este programa en delphi al limite, el cual se encarga de darme la informacion sobre las diferentes tablas
y sus metadatos.

Deberia indicarme por ejemplo:

ID        integer not null,
Nombre  varchar(100),

y asi sucesivamente, pero solo me da:

ID
Nombre

Quisiera revisaran este programita para ver cual es el error que estoy cometiendo.

Archivos adjuntos

•  686_895325cecb3e4f11bd979a1e930ad9af83f7dc82.zip   10,88KB   2 descargas

[luk2009]

ya lo corregi, habia un error en la primera linea donde faltaba sumar la apertura del parentesis

delphi

Memo.Lines.Add( 'CREATE TABLE ' + TABLAS.Text + ' (' ); 

arregle el codigo del arriba, por si le sirve a alguien.  La idea es poder copiar las extructuras de las tablas.

[egostar]

Hola

Tu problema es que no encuentra ningún valor en la comparación que estas haciendo con:

delphi

fielddefs.Items[i].FieldClass.ClassName

En su lugar debes de comparar el tipo de dato contra el DataType y no contra el nombre de la clase.

delphi

fielddefs.Items[i].DataType

Así­ quedarí­a mas o menos tu procedimiento:

delphi

procedure TForm1.MOSTRARClick(Sender: TObject);
VAR
  i:integer;
  sTipo:string;
begin
  with IBQuery1 do begin
    memo.Lines.Add( 'CREATE TABLE ' + TABLAS.Text);
    SQL.Clear;
    SQL.Add(' select * from ' + TABLAS.Text);
    Open;
    for I :=0 to fieldDefs.Count -1 do begin
        sTipo := '';
        case fielddefs.Items[i].DataType of
             ftString,
             ftWideString : Stipo := ' VarChar(' +
                                Inttostr(fieldbyname(fieldDefs.Items[i].Name ).Size )+
                                 ') ';
             ftFloat      : Stipo := ' DOUBLE PRECISION ';
             ftInteger    : Stipo := ' INTEGER ';
             ftDate       : Stipo := ' DATE ';
             ftTime       : Stipo := ' TIME ';
             ftDateTime,
             ftTimeStamp  : Stipo := ' TIMESTAMP ';
             ftBlob       : Stipo := ' BLOB ';
        end;
        // Es un campo Obligatorio?
        if FieldByName(fieldDefs.Items[i].name).Required then
           stipo :=stipo + ' NOT NULL';
        memo.Lines.Add('  ' + fieldDefs.Items[i].Name + ' ' + stipo);
        // si no es el ultimo campo añadimos una cosa al final
        if i < fieldDefs.Count -1 then
           memo.Lines[memo.lines.Count-1] := memo.Lines[memo.Lines.count-1] + ',';
    end;
    memo.Lines.Add( ')' );
    close;
    Transaction.Active :=false;
  end;
end;

Salud OS

PD, te hacen falta mas tipos de datos.

[luk2009]

gracias egostar, Voy a probar tu codigo y ademas se ve mejor.
Pero en la version ultima cheque que si funciona, solo faltaba el parentesis.

[egostar]

gracias egostar, Voy a probar tu codigo y ademas se ve mejor.
Pero en la version ultima cheque que si funciona, solo faltaba el parentesis.

Ah bueno, si te funciona así­ como lo diseñaste, me parece muy bien,

Salud OS