105 replies to this topic

[enecumene]

¿y específicamente donde debo ponerlo?, porque lo he puesto en todas las posibles ubicaciones y me da el mismo resultado.

Saludos.

[eduarcol]

si logro ver bien, deberia ir entra la 113 y 114

si el ClientDataSet, esta abierto no lo cierras antes de asignar la tabla en el ZQuery.  No se como funcionaria el clientdataset, pero no veo donde lo cierras y si ya esta abierto no creo que se refresque

[enecumene]

Efectivamente esas fueron los dos primeros lugares que lo coloqué y me dio el mismo resultado, ¿considera que antes del next debería cerrar el ClientDataset?.

Saludos.

[eduarcol]

no creo que antes del next, pero si lo deberias antes de reasignar la nueva tabla al query, deberias cerrar el query y el clientdateset...

ZTablas.Close;
cdTablas.Close;

[enecumene]

He dado con todo y no logro cambiar el resultado, siempre es el mismo, lo he puesto luego de cada for haciendo pruebas y siempre me lanza el mismo resultado          

[eduarcol]

prueba ejecutando paso a paso, y fijate si el clientdataset actualiza los datos.

[enecumene]

Efectivamente colega, el problema se trataba de un Close al ClientDataset debajo de ZTablas.close, muchas gracias compadre.

Saludos.

[eduarcol]

de nada, estamos para ayudar

[enecumene]

Bueno, retomando el proyecto, he estado tratando de agregar una barra de progreso en donde se va creando la DDL de Firebird y no he logrado correrlo, con tantos ciclos for no sé cual tomo como referancia para la posición de la misma, ¿alguien me puede dar una mano?.  :$

Saludos.

[Caral]

Hola
Y cual es el problema que tienes con el progress?.
Saludos

[enecumene]

Pues no sé con cuál ciclo debo colocarlo como position mientras se vaya creando el script.  :^)

[Caral]

Hola
Pues no se donde me perdi, Cual ciclo, donde?.
No veo el codigo.
Saludos

[enecumene]

delphi

procedure TFMain.Button4Click(Sender: TObject);
Var
  Lineas,I,J,Idx: Integer;
  Separador: String;
  NombreCampo,Indice: String;
begin
  Memo1.Clear;
  for i := 0 to Tablas.Items.Count - 1 do begin
    ZTablas.Close;
    cdTablas.Close;
    ZTablas.TableName := Tablas.Items[i].Text;
    Try
      ZTablas.Open;
      cdTablas.Open;
    except
      ShowMessage('se produjo un problema al abrir');
      Exit;
    End;
    cdTablas.First;
 
    Memo1.Lines.Add('CREATE TABLE '+UpperCase(Tablas.Items[i].Text));
    Memo1.Lines.Add('(');
 
    for J := 0 to cdTablas.FieldCount-1 do begin
 
        if J < cdTablas.FieldCount-1 then Separador := ','
        else begin
               if (J = cdTablas.FieldCount-1) and
                  (cdTablas.IndexFieldCount > 0) then begin
                  Separador := ',';
               end
               else Separador := ' ';
        end;
        if cdTablas.Fields[j].IsIndexField then Separador := ' NOT NULL' + Separador;
        NombreCampo := cdTablas.Fields[j].FieldName;
        If UpperCase(NombreCampo) = 'PASSWORD' Then
           NombreCampo := 'PASSCODE';
        If UpperCase(NombreCampo) = 'SIZE' Then
           NombreCampo := 'SIZE1';
 
        //Elimine estas lineas porque agregué caracteres a las constantes
        //usadas por la función TranslateChars() de Federico Firenze
        //NombreCampo := StringReplace(NombreCampo,' ','_',[rfReplaceAll]);
        //NombreCampo := StringReplace(NombreCampo,'ñ','n',[rfReplaceAll]);
        //NombreCampo := StringReplace(NombreCampo,'Ñ','N',[rfReplaceAll]);
 
        NombreCampo := StringReplace(NombreCampo,'(','',[rfReplaceAll]);
        NombreCampo := StringReplace(NombreCampo,')','',[rfReplaceAll]);
        NombreCampo := TranslateChars(NombreCampo, CHARS_ACENTUADOS, CHARS_SINACENTO);
        case cdTablas.Fields[j].DataType of
             ftString,
             ftWideString: begin
                            Memo1.Lines.Add(' '+NombreCampo+' VARCHAR('+
                                            inttostr(cdTablas.Fields[j].DisplayWidth)+')'+
                                            Separador);
                           end;
             ftFloat     : begin
                             Memo1.Lines.Add(' '+NombreCampo+' FLOAT'+Separador);
                           end;
             ftCurrency  : begin
                             Memo1.Lines.Add(' '+NombreCampo+' NUMERIC(10,2)'+Separador);
                           end;
             ftTime      : begin
                             Memo1.Lines.Add(' '+NombreCampo+' TIME'+Separador);
                           end;
             ftDate      : begin
                             Memo1.Lines.Add(' '+NombreCampo+' DATE'+Separador);
                           end;
             ftDateTime,
             ftTimeStamp  : begin
                             Memo1.Lines.Add(' '+NombreCampo+' TIMESTAMP'+Separador);
                           end;
             ftAutoInc,
             ftInteger   : begin
                             Memo1.Lines.Add(' '+NombreCampo+' INTEGER'+Separador);
                           end;
             ftMemo      : begin
                             Memo1.Lines.Add(' '+NombreCampo+' BLOB SUB_TYPE 1'+Separador);
                           end;
             ftBlob,
             ftTypedBinary,
             ftGraphic   : begin
                             Memo1.Lines.Add(' '+NombreCampo+' BLOB SUB_TYPE 0'+Separador);
                           end;
             ftBoolean,
             ftSmallint	 : begin
                             Memo1.Lines.Add(' '+NombreCampo+' SMALLINT'+Separador);
                           end;
         end;
    end;
 
    if cdTablas.IndexFieldCount > 0 then begin
       for Idx := 0 to cdTablas.IndexDefs.Count - 1 do begin
           Indice := cdTablas.IndexDefs[Idx].Fields;
           If UpperCase(Indice) = 'PASSWORD' Then
              Indice := 'PASSCODE';
           If UpperCase(Indice) = 'SIZE' Then
              Indice := 'SIZE1';
           Indice := StringReplace(Indice,'(','',[rfReplaceAll]);
           Indice := StringReplace(Indice,')','',[rfReplaceAll]);
           Indice := TranslateChars(Indice, CHARS_ACENTUADOS, CHARS_SINACENTO);
           with cdTablas.IndexDefs[Idx] do begin
                if ixPrimary in Options then begin
                   Memo1.Lines.Add(' CONSTRAINT PK_'+Tablas.Items[i].Text+' PRIMARY KEY ('+Indice+')');
                   Memo1.Lines.Add(');');
                   Memo1.Lines.Add('');
                end;
                if ixCaseInsensitive in Options then begin
                   Memo1.Lines.Add('CREATE INDEX '+Tablas.Items[i].Text+'_IDX'+inttostr(Idx)+
                                   ' ON '+Tablas.Items[i].Text+' ('+Indice+');');
                   Memo1.Lines.Add('');
                end;
           end;
       end;
    end
    else begin
           Memo1.Lines.Add(');');
           Memo1.Lines.Add('');
    end;
  end;
end;

Saludos.

[enecumene]

Pregunta, "No" ¿es una palabra reservada de Firebird?, porque al agregar las tablas con el IBScript me tira el siguiente error:

---------------------------
Debugger Exception Notification
---------------------------
Project MTF.exe raised exception class EIBInterBaseError with message 'Dynamic SQL Error
SQL error code = -104
Token unknown - line 3, column 2
No'. Process stopped. Use Step or Run to continue.
---------------------------
OK  Help 
---------------------------

La primera tabla se crea bien pero al llegar a la segunda el primer campo es No y ahí me dispara el error. Alguien por Favor me confirme eso.

Saludos.

[felipe]

Hola que tal...
Como va el proyecto ... ¿algunos pequeños problemas?... Fernando, según el IBExpert "no" si es una palabra reservada en Firebird.

[enecumene]

Ah Joder, ya me lo imaginaba  , ya me costará hacer una pequeña rutina con eso de las palabras reservadas, muchas gracias Felipe.

Saludos.

PD. Alguien me Ayude con la barra de progreso que posteé en varios hilos atrás.

[eduarcol]

Yo personalmente agregaria dos barras de progreso, una para las tablas y otra para los campos(pbTablas, pbCampos)

delphi

procedure TFMain.Button4Click(Sender: TObject);
Var
  Lineas,I,J,Idx: Integer;
  Separador: String;
  NombreCampo,Indice: String;
begin
  Memo1.Clear;
  
  (*** INCIALIZA EL DE LAS TABLAS ***)
  pbTablas.max := Tablas.Items.Count;
  pbTablas.Position := 0;
 
  for i := 0 to Tablas.Items.Count - 1 do begin
    (*** INCREMENTA EL DE LAS TABLAS ***)
    pbTablas.Position := pbTablas.Position + 1;
    ZTablas.Close;
    cdTablas.Close;
    ZTablas.TableName := Tablas.Items[i].Text;
    Try
      ZTablas.Open;
      cdTablas.Open;
    except
      ShowMessage('se produjo un problema al abrir');
      Exit;
    End;
    cdTablas.First;
 
    Memo1.Lines.Add('CREATE TABLE '+UpperCase(Tablas.Items[i].Text));
    Memo1.Lines.Add('(');
    
    (*** INCIALIZA EL DE LOS CAMPOS ***)
    pbCampos.Max :=  cdTablas.FieldCount;
    pbCampos.Position := 0;
 
    for J := 0 to cdTablas.FieldCount-1 do begin
 
        (*** INCREMENTA EL DE LOS CAMPOS ***)
        pbCampos.Position := pbCampos.Position + 1;
 
        if J < cdTablas.FieldCount-1 then Separador := ','
        else begin
               if (J = cdTablas.FieldCount-1) and
                  (cdTablas.IndexFieldCount > 0) then begin
                  Separador := ',';
               end
               else Separador := ' ';
        end;
        if cdTablas.Fields[j].IsIndexField then Separador := ' NOT NULL' + Separador;
        NombreCampo := cdTablas.Fields[j].FieldName;
        If UpperCase(NombreCampo) = 'PASSWORD' Then
           NombreCampo := 'PASSCODE';
        If UpperCase(NombreCampo) = 'SIZE' Then
           NombreCampo := 'SIZE1';
 
        //Elimine estas lineas porque agregué caracteres a las constantes
        //usadas por la función TranslateChars() de Federico Firenze
        //NombreCampo := StringReplace(NombreCampo,' ','_',[rfReplaceAll]);
        //NombreCampo := StringReplace(NombreCampo,'ñ','n',[rfReplaceAll]);
        //NombreCampo := StringReplace(NombreCampo,'Ñ','N',[rfReplaceAll]);
 
        NombreCampo := StringReplace(NombreCampo,'(','',[rfReplaceAll]);
        NombreCampo := StringReplace(NombreCampo,')','',[rfReplaceAll]);
        NombreCampo := TranslateChars(NombreCampo, CHARS_ACENTUADOS, CHARS_SINACENTO);
        case cdTablas.Fields[j].DataType of
             ftString,
             ftWideString: begin
                            Memo1.Lines.Add(' '+NombreCampo+' VARCHAR('+
                                            inttostr(cdTablas.Fields[j].DisplayWidth)+')'+
                                            Separador);
                           end;
             ftFloat     : begin
                             Memo1.Lines.Add(' '+NombreCampo+' FLOAT'+Separador);
                           end;
             ftCurrency  : begin
                             Memo1.Lines.Add(' '+NombreCampo+' NUMERIC(10,2)'+Separador);
                           end;
             ftTime      : begin
                             Memo1.Lines.Add(' '+NombreCampo+' TIME'+Separador);
                           end;
             ftDate      : begin
                             Memo1.Lines.Add(' '+NombreCampo+' DATE'+Separador);
                           end;
             ftDateTime,
             ftTimeStamp  : begin
                             Memo1.Lines.Add(' '+NombreCampo+' TIMESTAMP'+Separador);
                           end;
             ftAutoInc,
             ftInteger   : begin
                             Memo1.Lines.Add(' '+NombreCampo+' INTEGER'+Separador);
                           end;
             ftMemo      : begin
                             Memo1.Lines.Add(' '+NombreCampo+' BLOB SUB_TYPE 1'+Separador);
                           end;
             ftBlob,
             ftTypedBinary,
             ftGraphic   : begin
                             Memo1.Lines.Add(' '+NombreCampo+' BLOB SUB_TYPE 0'+Separador);
                           end;
             ftBoolean,
             ftSmallint	 : begin
                             Memo1.Lines.Add(' '+NombreCampo+' SMALLINT'+Separador);
                           end;
         end;
    end;
 
    if cdTablas.IndexFieldCount > 0 then begin
       for Idx := 0 to cdTablas.IndexDefs.Count - 1 do begin
           Indice := cdTablas.IndexDefs[Idx].Fields;
           If UpperCase(Indice) = 'PASSWORD' Then
              Indice := 'PASSCODE';
           If UpperCase(Indice) = 'SIZE' Then
              Indice := 'SIZE1';
           Indice := StringReplace(Indice,'(','',[rfReplaceAll]);
           Indice := StringReplace(Indice,')','',[rfReplaceAll]);
           Indice := TranslateChars(Indice, CHARS_ACENTUADOS, CHARS_SINACENTO);
           with cdTablas.IndexDefs[Idx] do begin
                if ixPrimary in Options then begin
                   Memo1.Lines.Add(' CONSTRAINT PK_'+Tablas.Items[i].Text+' PRIMARY KEY ('+Indice+')');
                   Memo1.Lines.Add(');');
                   Memo1.Lines.Add('');
                end;
                if ixCaseInsensitive in Options then begin
                   Memo1.Lines.Add('CREATE INDEX '+Tablas.Items[i].Text+'_IDX'+inttostr(Idx)+
                                   ' ON '+Tablas.Items[i].Text+' ('+Indice+');');
                   Memo1.Lines.Add('');
                end;
           end;
       end;
    end
    else begin
           Memo1.Lines.Add(');');
           Memo1.Lines.Add('');
    end;
  end;
end;

Espero te sirva

[enecumene]

¡Muchissimas Gracias Eduardo!, ¡Me funcionó de pelos!

Saludos.

[enecumene]

Bueno, ya casi está saliendo la versión BETA de este proyecto, sólo me falta afinar unos cuantos detalles, mientras, dejo la interface terminado del proyecto:



[img width=640 height=461]http://img185.imageshack.us/img185/9977/mt4zm1.jpg[/img]

Saludos.

[felipe]

Luce muy bien ... te felicito por el trabajo, cuentas con el apoyo de nosotros para crear la versión 1.0