TTable - Enteros positivos no se muestran correctamente

[elaguna]

Qué tal, saludos a todos.

Tengo una tabla DBF con 3,600,000 registros aproximadamente, me solicitan un programa que se ejecute desde CD (es decir que no se tenga que instalar nada) para realizar consultas a esos registros.

No me quedo con la tabla DBF porque habría que distribuir e instalar el BDE; entonces estoy en el proceso de pasar todos los datos a Firebird. Hasta ahí todo parecía ir bien pero...

Para pasar los datos estoy usando TTable para manejar DBF y para guardar los registros en Firebird IBQuery. Al ejecutar el programa al llegar al IBQuery1.ExecSQL me sale el mensaje:

'Dynamic SQL Error SQL error code = -303 arithmetic exception, numeric overflow, or string truncation'

Revisé los valores de los campos que estoy pasando y es cuando me doy cuenta que la tabla DBF en los valores enteros me muestra negativos, ejemplo: el número 9, en la tabla lo pone como -1996488704.

Esta misma tabla si la visualizo con Foxpro o con DBF Manager me muestra (y maneja) correctamente los valores enteros.

¿Habrá alguna propiedad para que me muestre los valores correctos?

De antemano muchas gracias.



Eduardo Laguna

[Casimiro Noteví]

Empezado por elaguna

la tabla DBF en los valores enteros me muestra negativos, ejemplo: el número 9, en la tabla lo pone como -1996488704.

¿Seguro que 9 lo almacena como -1996488704 ?

[elaguna]

Qué tal. Gracias por responder.

No. Precisamente ese es el problema.

Si visualizo la tabla con Foxpro o con DBF Manager los datos están bien (el 9 es 9).

Coloqué un DBGrid para visualizar los datos de la misma tabla y efectivamente, en Delphi los enteros se muestran como ya lo mencioné (negativos).

En la tabla el campo ENT_FED es el entero, los demás son texto.

No estoy agregando datos a la tabla DBF, lo que quiero es leerlos para pasarlos a Firebird.

Utilizo Delphi XE.

Gracias por contestar.


Eduardo Laguna.

[Casimiro Noteví]

¿Y con qué conectas a la tabla dbf desde delphi?
¿De qué tipo de campo lo has puesto en firebird?


Acabo de probar con una pequeña dbf que tengo por aquí y sale correctamente :s


Edito, veo que con BDE, usa otra cosa, ya verás como se soluciona.

[elaguna]

Lo estoy conectando con TTable del BDE.

Código Delphi [-]
DataSource1.DataSet := Table1;

Table1.DatabaseName := 'Z:\QRYCRM\';
Table1.TableName := 'crm_2.dbf';
Table1.Active := True;

dbGrid1.DataSource := DataSource1;

En Firebird el campo es Smallint, pero todavía no hago el paso de los datos. Las dos imágenes que subí son de la misma tabla visualizado en Delphi y DBF Manager.

Gracias.


Eduardo Laguna.

[marcoszorrilla]

Pues algo raro está pasando, porque yo he hecho algo similar hace poco, aunque solamente eran 4.000 registros y no he tenido ningún problema.

un saludo.