105 respuestas en este tema

[enecumene]

jajaja no hombre el "otro limbo"

[felipe]

Aqui está... puede verse un poco pequeño pero es fácil de arreglar 

Archivos adjuntos

•  77_.zip   59,56KB   7 descargas

[enecumene]

¡Hombre!, Mejor de ahí se daña , ¡Excelente!

[felipe]

¡Hombre!, Mejor de ahí se daña , ¡Excelente!

... bueno, una tarea menos... ahora falta que termines el programa 

[enecumene]

¡Pues claro!, me parece que te será de utilidad , bueno, sólo terminando algunos detalles en la parte donde se migran los datos, es posible que mañana esté disponible la BETA.

Saludos.

[enecumene]

Hola colegas, aquí vuelvo con este asunto, estoy en la fase de migración de datos y estoy teniendo problemas con tipos de conversión de datos, especificamente con fechas, esta es la parte del código donde me da problemas:

delphi

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;
                  ftDate,
                  ftTime,
                  ftDateTime,
                  ftTimeStamp : begin //AQUI EL PROBLEMA
                        if (cdTablas1.Fields[j].AsDateTime = NULL) or (cdTablas1.Fields[j].AsDateTime = 1899-12-30) then
                           ValoresSQL := ValoresSQL+' NULL'
                        else ValoresSQL := ValoresSQL+#39+DateToStr(cdTablas1.Fields[j].AsDateTime)+#39;
                        ValoresSQL := StringReplace(ValoresSQL,'/','.',[rfReplaceAll]);
                  end;
                  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;

y este es el error que me tira:

---------------------------
Debugger Exception Notification
---------------------------
Project MTF.exe raised exception class EIBInterBaseError with message 'conversion error from string "1899-12-30"'. Process stopped. Use Step or Run to continue.
---------------------------
OK  Help 
---------------------------

Una manita por favor.

Saludos.

[enecumene]

Bueno haciendo otros arreglos tengo esto:

                 

delphi

ftDate,
                  ftTime,
                  ftDateTime,
                  ftTimeStamp : begin
                        if DateToStr(cdTablas1.Fields[j].AsDateTime) = '' then
                           ValoresSQL := ValoresSQL+' NULL'
                        else ValoresSQL := ValoresSQL+#39+cdTablas1.Fields[j].AsString+#39;
                        ValoresSQL := StringReplace(ValoresSQL,'/','.',[rfReplaceAll]);
                  end;

¿Resultado?:

---------------------------
Debugger Exception Notification
---------------------------
Project MTF.exe raised exception class EIBInterBaseError with message 'conversion error from string ""'. Process stopped. Use Step or Run to continue.
---------------------------
OK  Help 
---------------------------

Saludos.

[eduarcol]

Espero que esta pequeña modificación te sirva:

                 

delphi

ftDate,
                  ftTime,
                  ftDateTime,
                  ftTimeStamp : begin
                        if DateToStr(cdTablas1.Fields[j].AsDateTime) = '' then
                           ValoresSQL := ValoresSQL+' NULL'
                        else 
                           ValoresSQL := ValoresSQL+#39+FormatDateTime('mm/dd/yyyy', cdTablas1.Fields[j].AsDate)+#39;
                        ValoresSQL := StringReplace(ValoresSQL,'/','.',[rfReplaceAll]);
                  end;

[enecumene]

Muchas gracias Eduardo más tarde lo pruebo

Saludos.

[enecumene]

Hola Eduardo, con tu modificación me da este error:

---------------------------
Debugger Exception Notification
---------------------------
Project MTF.exe raised exception class EIBInterBaseError with message 'conversion error from string "12/30/1899"'. Process stopped. Use Step or Run to continue.
---------------------------
OK  Help 
---------------------------

Voy a separar los campos de tipo time a ver si el problema proviene de ahí.

Saludos.

[egostar]

Hola Eduardo, con tu modificación me da este error:

---------------------------
Debugger Exception Notification
---------------------------
Project MTF.exe raised exception class EIBInterBaseError with message 'conversion error from string "12/30/1899"'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

Voy a separar los campos de tipo time a ver si el problema proviene de ahí.

Saludos.

Que tipo de campo es, Date, Time o DateTime ???

Por otro lado, parece que Firebird solo acepta este formato de fecha 11.12.2008 no se si es pase con MySQL.

Salud OS

[enecumene]

Los campos son Date y Time, ¿A qué te refieres con que sólo acepta formato "11.12.2008"?, ¿que se separan por puntos?.

Saludos.

[egostar]

Los campos son Date y Time, ¿A qué te refieres con que sólo acepta formato "11.12.2008"?, ¿que se separan por puntos?.

Saludos.

En mis programas con firebird ese es el formato que uso porque creo recordar que me enviaba un error en la fecha si usaba "/" de separador.

Salud OS

[enecumene]

Pues corrigiendo aquí y allá, logré pasar esa parte, pero me sucede otro error:

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

No entiendo el error, el campo NO1 sí existe pero me dice que no. 

Saludos.

[eduarcol]

y que fue lo que movistes aqui y alla? por fin como te acepto la fecha?

con respecto a ese error seria bueno que dijeras que instruccion exactamente esta ejecutando cuando sucede, porque de lo contrario seria tratar de adivinar.

[enecumene]

Pues coloqué tu solución y la de Eliseo de colocar los puntos en vez del separador, así pasa sin problemas y graba las fechas correctamente, pero tengo éste último problema, el campo está creado pero no la encuentra.

Saludos.

PD: Llegué a poner un showmessage para ver las SENTENCIAS y hasta ahora está correctamente.

[eduarcol]

pero no has aislado la sentencia que te arroja el error?

[enecumene]

Lo extraño es, que hay varias tablas con ese campo, por ejemplo:

tabla1
tabla2 -> tiene el campo NO1 y se graba Bien
tabla3 -> tiene el campo NO1 y se graba bien
tabla4 -> se graban los datos
tabla5 -> deja de grabar
...
tabla38

Saludos.

[eduarcol]

NO1 = N01??? has verificado eso?

[enecumene]

NO1 = N01??? has verificado eso?

Pues no lo he revisado, aunque dudo que se así, más tarde te comento ya que no lo tengo aquí.

Saludos.