105 respuestas en este tema

[enecumene]

Retomando el proyecto, sigo con le problema de la migracion de datos, ese problema me esta matando, error que me da:

---------------------------
Debugger Exception Notification
---------------------------
Project MTF.exe raised exception class EIBInterBaseError with message 'Dynamic SQL Error
SQL error code = -206
Column unknown
IDN
At line 1, column 23'. Process stopped. Use Step or Run to continue.
---------------------------
OK  Help 
---------------------------

Ya le he cambiado el nombre y nada.

Saludos.

[enecumene]

Resuelto el asunto, era que al generar el DDL no se creaba un campo porque no estaba reconociendo el tipo de dato que era, solo lo agregue el tipo LargeInt a la lista de campo aquí:

           

delphi

ftLargeint,
             ftAutoInc,
             ftInteger   : begin
                             Memo1.Lines.Add(' '+NombreCampo+' INTEGER'+Separador);
                           end;

Pero ahora me sucede otro error:

XSQLDA index out of range

Ahora, ¿Qué demonios sucede? 

Saludos.

[enecumene]

Ahh, otra cosa que se me olvidó, la base de datos se crea perfecto, pero al estar migrando los datos la misma aumenta de peso al momento de ocurrir la excepción como menciono en el post anterior la base no tiene datos pero sí está aumentado de peso, sin datos pesa normalmente alguno 620 Kb si no me equivoco pero ahora tiene 7.2MB y los datos están nulos .

Saludos.

[eduarcol]

Index out of Range, significa que estas tratando de accesar un item en una lista  y el item no existe, revisa a ver en que linea te da el error

[enecumene]

Bueno, he vuelto a retomar éste proyecto, estoy teniendo problemas con la creación de las tablas en firebird, más abajo dejo la imagen con el error y código:

delphi

procedure TFMain.btCreaFdbClick(Sender: TObject);
var
  i,j: integer;
  CampoPaso,NombreCampo,CamposSQL,ValoresSQL: String;
begin
if cbxTablas.Checked then
  begin
  IBDataBase1.Close;
  IBDatabase1.DatabaseName := edDir.Text;
  if FileExists(edDir.Text) then
    begin
      Mostrar('Ha ocurrido un problema al crear la base de datos.','Esta base de datos ya existe.');
      Abort;
    end;
  IBDatabase1.Params.Clear;
  IBDatabase1.Params.Add('USER '+QuotedStr(edUser.Text)+'');
  IBDatabase1.Params.Add('PASSWORD '+QuotedStr(edPass.Text)+'');
  IBDatabase1.Params.Add('PAGE_SIZE '+edPage.Text+'');
  IBDatabase1.Params.Add('DEFAULT CHARACTER SET '+edChar.Text+'');
  IBScript1.Database.DatabaseName := edDir.Text;
  IBScript1.Script.Clear;
  IBScript1.Script.AddStrings(Memo1.Lines);
  try
    IBDatabase1.CreateDatabase;
    IBScript1.ExecuteScript;
  except
    on E: Exception do
      begin
        if E.ClassNameIs('EIBInterbaseError') then
          begin
            Mostrar('Se ha producido un error al crear la base de datos.', E.Message);
            Abort;
          end;
        if e.ClassNameIs('EDataBaseError') then
          begin
            Mostrar('Se ha producido un error al crear la base de datos.', E.Message);
            Abort;
          end;
        if e.ClassNameIs('EIBClientError') then
          begin
            Mostrar('Se ha producido un error al crear la base de datos.', E.Message);
            Abort;
          end;
      end;
    end;
end;
 
if cbxDatos.Checked then
begin
 
  IBDatabase1.DatabaseName := edDir.Text;
  
  for i := 0 to Tablas.Items.Count - 1 do begin
      ZTablas1.Close;
      cdTablas1.Close;
      CampoBlob  := False;
      ZTablas1.TableName := Tablas.Items[i].Text;
      Try
        ZTablas1.Open;
        cdTablas1.Open;
      except
        on E: Exception do
        begin
          if E.ClassNameIs('EZSQLException') then
            begin
              Mostrar('Se ha producido un problema al intentar abrir una de las tablas.',E.Message);
              Abort;
            end;
          if E.ClassNameIs('EDataBaseError') then
            begin
              Mostrar('Se ha producido un problema al intentar abrir una de las tablas.',E.Message);
              Abort;
            end;
        end;
      End;
 
      cdTablas1.First;
      while not cdTablas1.Eof do begin
         CamposSQL  := '';
         ValoresSQL := '';
         for j := 0 to cdTablas1.FieldCount-1 do begin
             NombreCampo := cdTablas1.Fields[j].FieldName;
             NombreCampo := StringReplace(NombreCampo,'(','',[rfReplaceAll]);
             NombreCampo := StringReplace(NombreCampo,')','',[rfReplaceAll]);
             NombreCampo := TranslateChars(NombreCampo, CHARS_ACENTUADOS, CHARS_SINACENTO);
             If UpperCase(NombreCampo) = 'PASSWORD' Then
                NombreCampo := 'PASSCODE';
             If UpperCase(NombreCampo) = 'SIZE' Then
                NombreCampo := 'SIZE1';
             If UpperCase(NombreCampo) = 'NO' Then
                NombreCampo := 'IDN';
             If UpperCase(NombreCampo) = 'USER' Then
                NombreCampo := 'USER1';
             If UpperCase(NombreCampo) = 'DATE' Then
                NombreCampo := 'DATE1';
             CamposSQL := CamposSQL + NombreCampo;
             case cdTablas1.Fields[j].DataType of
                  ftString,
                  ftWideString: begin
                        CampoPaso  := cdTablas1.Fields[j].AsString;
                        CampoPaso  := StringReplace(CampoPaso,'''','´',[rfReplaceAll]);
                        ValoresSQL := ValoresSQL+#39+CampoPaso+#39;
                  end;
                  ftMemo,ftBlob,
                  ftTypedBinary,
                  ftGraphic   : begin
                        ValoresSQL := ValoresSQL+' NULL';
                        //ValoresSQL := ValoresSQL+' :BLOB'+inttostr(i);
                        CampoBlob  := True;
                  end;
                  ftTime      : begin
                        if TimeToStr(cdTablas1.Fields[j].AsDateTime) = '' then
                           ValoresSQL := ValoresSQL+' NULL'
                        else ValoresSQL := ValoresSQL+#39+FormatDateTime('hh:mm:ss', cdTablas1.Fields[j].AsDateTime)+#39;
                  end;
                  ftDate,
                  ftDateTime,
                  ftTimeStamp : begin
                        if DateToStr(cdTablas1.Fields[j].AsDateTime) = '' then
                           ValoresSQL := ValoresSQL+' NULL'
                        else ValoresSQL := ValoresSQL+#39+FormatDateTime('dd.mm.yyyy', cdTablas1.Fields[j].AsDateTime)+#39;
                        ValoresSQL := StringReplace(ValoresSQL,'-','.',[rfReplaceAll]);
                  end;
                  ftLargeint,
                  ftInteger,
                  ftSmallint	: begin
                         if cdTablas1.Fields[j].AsString = '' then
                            ValoresSQL := ValoresSQL+'0'
                         else ValoresSQL := ValoresSQL+cdTablas1.Fields[j].AsString;
                  end;
                  ftFloat,
                  ftCurrency  : begin
                         if cdTablas1.Fields[j].AsString = '' then
                            ValoresSQL := ValoresSQL+'0.00'
                         else ValoresSQL := ValoresSQL+cdTablas1.Fields[j].AsString;
                  end;
                  ftBoolean   : begin
                         if cdTablas1.Fields[j].Value = True then
                            ValoresSQL := ValoresSQL+'1'
                         else ValoresSQL := ValoresSQL+'0';
                  end;
                  else begin
                         ValoresSQL := ValoresSQL+cdTablas1.Fields[j].AsString;
                  end;
             end;
             if j < cdTablas1.FieldCount-1 then begin
                CamposSQL  := CamposSQL + ',';
                ValoresSQL := ValoresSQL + ',';
             end;
         end;
         IBQuery1.SQL.Text := 'INSERT INTO '+ Tablas.Items[i].Text+
                              ' ('+CamposSQL+')'+
                              ' VALUES ('+ValoresSQL+')';
 
 
         // Si se desea se puede generar un log de las inserciones a la
         // base de datos. Solo habilite las siguientes lineas.
 
         //AssignFile(Arch,'Query.log');
         //If FileExists('Query.log') then
         //   Append(Arch)
         //else Rewrite(Arch);
         //Writeln(Arch,IBQuery1.SQL.Text);
         //CloseFile(Arch);
      try
         IBQuery1.ExecSQL;
      except
        on E: Exception do
         begin
          if E.ClassNameIs('EIBInterBaseError') then
            begin
            Mostrar('Ha ocurrido un problema en la migración de datos.', E.Message);
            Abort;
            end;
          if E.ClassNameIs('EIBClientError') then
            begin
            Mostrar('Ha ocurrido un problema en la migración de datos.', E.Message);
            Abort;
            end;
         end; //E: Exception
      end;   //Except
         cdTablas1.Next;
      end;
      cdTablas1.Close;
      ZTablas1.Close;
  end;
end;
  ShowMessage('Proceso de creación Finalizado');
end;

Tremendo choclo ¿no?, bueno, me está sucediendo lo siguiente, estoy probando con una BD de 45 tablas, me crea 38 y se detiene en la no. 39, en la imagen aparece el error, si necesitan algo más me lo dicen.

Saludos.

[egostar]

Hola amigo

El error es porque quieres crear una tabla con un campo de nombre numérico, para esos menesteres yo te sugiero que verifiques (cosa rara en una base) si el campo es numérico, en este caso 799, y en ese caso debes de agregarle comillas al nombre del campo para que no genere la excepción.

Por ejemplo:

sql

CREATE TABLE PRUEBA (
    "799"  INTEGER,
    ACT_PATERNO  VARCHAR(10),
    ACT_MATERNO  VARCHAR(10),
    ACT_NOMBRES  VARCHAR(20),
    ACT_FICHA_A  INTEGER
);

Espero que te ayude.

Salud OS

[enecumene]

Gracias Egostar, efectivamente ese era mi problema, muchas gracias .

Saludos.

[egostar]

Hola

Hice una prueba con mi code y no tuve problema para generar el campo con comillas.

Este es el code

delphi

        if trystrtoint(NombreCampo,CampoNumerico) then
           NombreCampo := '"'+NombreCampo+'"';
 
        NombreCampo := StringReplace(NombreCampo,'(','',[rfReplaceAll]);
        NombreCampo := StringReplace(NombreCampo,')','',[rfReplaceAll]);
        NombreCampo := TranslateChars(NombreCampo, CHARS_ACENTUADOS, CHARS_SINACENTO);

Salud OS

[enecumene]

Gracias Eliseo, me funcionó, estoy ahora en otra fase que es la de la migración de Datos a la BD ya creada anteriormente y me está ocurriendo el siguiente error:

---------------------------
Debugger Exception Notification
---------------------------
Project MTF.exe raised exception class EIBInterBaseError with message 'Your user name and password are not defined. Ask your database administrator to set up a Firebird login'. Process stopped. Use Step or Run to continue.
---------------------------
OK  Help 
---------------------------

¿Alguien me podría ayudar a qué se debe eso?, el código está aquí.

Saludos.

[Kipow]

La forma como estas asignando los parametros al IBDatabase no es la correcta ya que deben de llevar el signo "=" al contrario de ejecutar el codigo DDL directamente. quedaria y el parametro de usuario cambialo por USER_NAME para que quede asi:

delphi

IBDatabase1.Params.Add('USER_NAME =  '+QuotedStr(edUser.Text));
IBDatabase1.Params.Add('PASSWORD =  '+QuotedStr(edPass.Text));
IBDatabase1.Params.Add('PAGE_SIZE = '+edPage.Text+'');

Aunque viendolo bien no seria mas facil ejecutar el codigo en un IBScript? algo como:

delphi

IBScript1.Script.Add('SET SQL DIALECT 3;');
IBScript1.Script.Add('SET NAMES ISO8859_1;');
IBScript1.Script.Add('CREATE DATABASE '+QuotedStr(RutaBaseIB));
IBScript1.Script.Add('USER '+QuotedStr(edUser.Text)+' PASSWORD '+QuotedStr(edPass.Text));
IBScript1.Script.Add('PAGE_SIZE '+edPage.Text);
IBScript1.Script.Add('DEFAULT CHARACTER SET ISO8859_1;');
 
IBScript1.ExecuteScript;

por cierto interesante proyecto, funcionara tambien a la inversa?  Firebird To MySQL?

[Ayla]

Hola,

Creo que el usuario que estás utilizando, no está definido en Firebird. Para mí que los tiros van por ahí, aunque no estoy del todo segura.

Para tema de usuarios y demás parámetros utilizo el componente TIBSegurityService, en la paleta de InterbaseAdmin.

Un ejemplo de como doy de alta un usuario en FireBird, TIBSegurityService (IBAdmin) :

Rellenar las propiedas del TIBSegurityService: ServerName, Protocol y colocar en SegurityAction la opción ActionAddUser

delphi

  IBAdmin.UserName := 'tu_usuario';
  IBAdmin.Password := 'tu_password';
  IBAdmin.Attach;
  IBAdmin.AddUser;
  IBAdmin.Detach;

Espero que te sirva 

Un saludo.

[enecumene]

Gracias Kipow, había probado el USER_NAME al crear las tablas pero me dió problemas al abrirlas, con USER no, haré la prueba con el signo "=" y USER_NAME a ver qué sucede, también he pensado hacerlo a la inversa FBD a MySQL, cuando termine con ésta, haré una versión dual.

Ayla, Muchas gracias también, nunca he usado u oído de ese componente cuando tenga una apertura lo estudiaré.

¡Gracias!, Saludos.

[egostar]

Hola

Yo creo que lo que está pasando es que tienes habilitada la propiedad loginprompt del IBDataBase.

pon esto:

delphi

  IBDatabase1.LoginPrompt := false;

antes de:

delphi

  IBDatabase1.CreateDatabase;

Salud OS

[enecumene]

Gracias Egostar, con esa línea me evitará que me pida User y pass, ya pude resolver mi problema y migrar los datos a la BD, cambié el IBQuery que estaba utilizando por el IBSQL y un IBTransaction, al parecer IBQuery tiene algunos problemas con las versiones de Firebird mayores de 1.5 (en mi caso el 2.0).

Luego les seguiré comentando sobre proyecto, pronto estaré publicando el programa en su versión beta beta .

Saludos.

[enecumene]

Bueno aquí dejo el ejecutable de mi primera versión BETA 0.1 del MTF, pruebenlo, haganle pruebas lo que sea, ponganlo a sudar , y me comentan sus críticas, luego pondré el código fuentes en los siguientes días.

Saludos

Archivos adjuntos

•  442_.zip   1,18MB   5 descargas

[root]

master and cheef

no se por que pero cada que kiero bajar algo me marca error al momento de abrirlo
sera que puedes resubir la version beta beta beta

digo para ponerlo a sudar como decias

[egostar]

master and cheef

no se por que pero cada que kiero bajar algo me marca error al momento de abrirlo
sera que puedes resubir la version beta beta beta

digo para ponerlo a sudar como decias

Ah vaya, el archivo esta corrupto, espero que enecumene actualice el archivo que por alguna causa se corrompio en la mudanza

Salud OS

[enecumene]

En lo más pronto posible lo subiré de nuevo.

Saludos.

[enecumene]

Actualizado el link de descarga, amigo Arroyoj puedes descargarte mi proyecto aquí­, ten libertad de comentar y criticar sobre este proyecto, debes tomar en cuenta que es una versión beta, espero que te sea de utilidad.

Saludos.

[root]

master and cheef

una pregunta
digo

no se pero solo trae un ejecutable dos carpetas vacias un dll y un ini
me pide las librerias de mysql

ya comenzo el criticon