105 replies to this topic

[enecumene]

Hola amigos, estoy haciendo una aplicación cuya función es migrar bases de datos MySQL a Firebird, estoy usando los componentes ZEOS para conectarme con MySQL y IBX para crear las bases de datos Firebird y un proyecto de Eliseo como punto de referencia, la cosa va quedando así:



A medida que avanzo la cosa se verá mejor, el que quiera ayudarme con este proyecto, será sumamente bienvenido .

Saludos.

[enecumene]

A ver, tengo un pequeñito problema, estoy tratando de sacar los índices de la tabla con ZEOS, ya para colmo ZEOS no tiene la propiedad IndexDefs como los IBX, ¿Y ahora quién podrá defenderme?  :.

Saludos.

[eduarcol]

los ibx nunca me han trabajado bien con Firebird, vaya dios a saber porque, pero Firebird tiene tablas del sistema por alli podrias sacar los indices, de pronto mySql tambien las tenga seria cuestion de averiguar cuales son

[enecumene]

Sé que en MySQL puedo listar todos los índices de una tabla de la siguiente manera:

sql

SHOW INDEX FROM tabla FROM basededatos

Ahora lo que no sé si haciendo con un query funcionaría como la propiedad IndexDefs de las IBX, haré la prueba y luego les comento.

Saludos.

[eduarcol]

aja, pero el show index te devuelve un conjunto de registros o que cosa?

[enecumene]

No amigo eduarcol, el show index muestra los campos que son índices de una tabla, por ejemplo, si tengo una tabla con una clave primaria y un índice, el show index me muestra esos dos campos la clave primaria y el índice.

Saludos.

[eduarcol]

¿pero como te los muestra?  :  ¿podrias colocar un ejemplo?

[enecumene]

Pues claro compadre .

sql

mysql> SHOW INDEX FROM reg_pedidos FROM sigesped;
+-------------+------------+----------+--------------+-------------+-----------+
-------------+----------+--------+------+------------+---------+
| TABLE       | Non_unique | Key_name | Seq_in_index | Column_name | Collation |
 Cardinality | Sub_part | Packed | NULL | Index_type | Comment |
+-------------+------------+----------+--------------+-------------+-----------+
-------------+----------+--------+------+------------+---------+
| reg_pedidos |          0 | PRIMARY  |            1 | no          | A         |
        4185 |     NULL | NULL   |      | BTREE      |         |
+-------------+------------+----------+--------------+-------------+-----------+
-------------+----------+--------+------+------------+---------+
1 ROW IN SET (0.00 sec)

Saludos.

[eduarcol]

no se a ti, pero eso me parece un conjunto de registros, si lo lanzas en un query, ¿que obtienes de vuelta?

[enecumene]

A mí sólo me interesa el campo column_name donde me especifíca el nombre del campo índice, para usarlo cuando cree el DDL, no sé, a mí gustaría usar los MyDAC que sí tienen la propiedad IndexDefs, pero la hostia es de pago, de todos modos en la tarde haré el intento con querys a ver qué sucede.

Saludos.

[joseme]

Amigo, estuve investigando algo y encontré esta página:
http://www.oreillyne...ndexes_usi.html
donde me enteré que existe un view llamado STATISTICS que contiene toda la información de índices, entre otras cosas. En la misma página podrás ver algunos ejemplos de querys, tal vez eso te pueda ayudar.

[enecumene]

¡Vaya!, Interesante link amigo, me has dado una serie de ideas que aplicaré a este proyecto, muchíssimas gracias compañero.

Saludos.

[enecumene]

Bueno, siguiendo con este proyecto, he agregado el componente SynEdit para el resaltado de syntaxis de MySQL, muy bueno por cierto, así va quedando la cosa:



El SynEdit al parecer es un descendiente del TMemo y hay algo que no me convence, y es que cada salto de línea lo sustituye con un cuadrito si se fijan en la imagen anterior ya comprenderán a lo que me refiero, en un RichEdit, eso no sucede. ¿Alquien me puede decir cómo corregir eso?.

Un Saludos compañeros.

[enecumene]

Bueno, problema resuelto, sólo era una burrada, estaba cargando el SynEdit de esta forma:

delphi

mysqlDDL.lines.Add(ZShowCreate.Fields[1].AsString);

De esa forma no me calculaba el salto de línea, así que lo resolví haciendolo de esta manera:

delphi

mysqlDDL.text := ZShowCreate.Fields[1].AsString;

Hasta el momento estoy terminando la parte del muestreo de información de datos MySQL para luego entrar a la migración a DDL de Firebird.

Eso es todo por hoy,

Saludos.

[eduarcol]

por fin que resolvistes con los indices???







[move]Miren que lindo se mueve esta linea ...[/move]

[enecumene]

por fin que resolvistes con los indices???

Lo de los índices viene en la parte de generar el DDL de firebird, decidí hacerlo por parte para ir programando organizadamente, ya casi llego a esa parte, es probable que hoy trabaje con ese asunto.

Saludos.

[enecumene]

¿Alguien me podría explicar cómo funciona el IndexDefs, qué datos se obtiene con ella?, lo pregunto antes de aventurarme sin saber, así sé como aplicar alternativas (ZEOS no tiene esa propiedad  ), por favor se lo agradecería que me explicaran .

Saludos.

[enecumene]

Mientras, me explican lo del IndexFields, decidí usar el ClientDataset conjuntamente con ZEOS, pero estoy teniendo problemas en el recorrido de los campos, estoy seguro de que algo se me escapa, usando un código de nuestro compañero Egostar, lo estuve adaptandolo a mis necesidades quedando de esta manera:

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;
    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;

El resultado es este:

CREATE TABLE AREA
(
area VARCHAR(25)
);

CREATE TABLE CAJACHICA
(
area VARCHAR(25)
);

CREATE TABLE CARTADETALLES
(
area VARCHAR(25)
);

CREATE TABLE CARTASORDEN
(
area VARCHAR(25)
);

CREATE TABLE CAT_USER
(
area VARCHAR(25)
);

CREATE TABLE COMPCAJA
(
area VARCHAR(25)
);

CREATE TABLE CUENTAS
(
area VARCHAR(25)
);

CREATE TABLE DEPARTAMENTO
(
area VARCHAR(25)
);

CREATE TABLE DESPEXP
(
area VARCHAR(25)
);

CREATE TABLE DOCUMENTO
(
area VARCHAR(25)
);

CREATE TABLE FACTURAS
(
area VARCHAR(25)
);

CREATE TABLE FONDO
(
area VARCHAR(25)
);

CREATE TABLE HIST_TRA
(
area VARCHAR(25)
);

CREATE TABLE HISTORICO
(
area VARCHAR(25)
);

CREATE TABLE ITEMS
(
area VARCHAR(25)
);

CREATE TABLE MODALIDAD
(
area VARCHAR(25)
);

CREATE TABLE MONEDA
(
area VARCHAR(25)
);

CREATE TABLE ORDENES
(
area VARCHAR(25)
);

CREATE TABLE ORDENGAS
(
area VARCHAR(25)
);

CREATE TABLE ORDGASDETALLES
(
area VARCHAR(25)
);

CREATE TABLE PED_DETALLES
(
area VARCHAR(25)
);

CREATE TABLE REG_PEDIDOS
(
area VARCHAR(25)
);

CREATE TABLE REPOSICION
(
area VARCHAR(25)
);

CREATE TABLE RESPONSABLES
(
area VARCHAR(25)
);

CREATE TABLE RESPONSABLES1
(
area VARCHAR(25)
);

CREATE TABLE RUBROS
(
area VARCHAR(25)
);

CREATE TABLE SISTEMA
(
area VARCHAR(25)
);

CREATE TABLE STATUS
(
area VARCHAR(25)
);

CREATE TABLE STATUS_ORDEN
(
area VARCHAR(25)
);

CREATE TABLE STATUS_OUT
(
area VARCHAR(25)
);

CREATE TABLE STATUS_PAGO
(
area VARCHAR(25)
);

CREATE TABLE SUPLI_RUBRO
(
area VARCHAR(25)
);

CREATE TABLE SUPLIDORES
(
area VARCHAR(25)
);

CREATE TABLE TRAMITES
(
area VARCHAR(25)
);

CREATE TABLE URGENCIA
(
area VARCHAR(25)
);

CREATE TABLE USERS
(
area VARCHAR(25)
);

CREATE TABLE USERS_LOGGED
(
area VARCHAR(25)
);

CREATE TABLE USERS_LOGS
(
area VARCHAR(25)
);

Como pueden ver, no está recorriendo correctamente los campos de cada tabla pero si las tablas contenidas en un TreeView, asume el único campo de la primera tabla y la asigna a todas.

Saludos.

[enecumene]

¿Qué pasa?, ¡Se están durmiendo!    :^)  (a)  :-#   

[egostar]

Amigo enecumene

Y no te hace falta esto ? ? ?

delphi

cdTablas.next;

Salud OS