FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Tengo algunos campos que en la DB son de tipo Char(1) y en mi aplicación son de tipo AnsiChar.
Para pasar el valor lo ago con AsAnsiString=AnsiChar, no sé si es correcto La otra duda es que el Id en mi aplicación es de tipo Int64 y en la DB es de tipo BigInt Para pasar el valor lo ago con AsLargeInt=Int64. No sé si el error puede estar aquí? |
#2
|
||||
|
||||
Por favor, pon el código
|
#3
|
|||
|
|||
Antes de empezar a leer del archivo fuente *.csv:
Donde: Id en Delphi es de tipo Int64 y en DB BigInt Value1 en Delphi es de tipo AnsiChar y en DB Char(1) Value2 en Delphi es de tipo SmallInt y en DB También Value3 en Delphi es de tipo Boolean y en DB también En Delphi estos campos se agrupan en un Record. En cada inserción:
Pongo un BreakPoint en la primera asignación, no da ningún error hasta llegar a ExecSQL. |
#4
|
|||
|
|||
Perdona es:
|
#5
|
||||
|
||||
Y el record?
__________________
El malabarista. |
#7
|
||||
|
||||
Lo de leer el .csv y pasarlo a un record y luego del record a la base de datos... es un paso que te puedes ahorrar perfectamente.
Lo lees del csv y lo guardas en la BD, nada más. Este código carga el archivo CSV en un objeto TStringList, luego abre una transacción y un conjunto de datos utilizando los componentes IBTransaction y IBDataSet, respectivamente. Luego, itera sobre cada línea del archivo CSV y separa los campos utilizando el método CommaText del objeto TStringList. Finalmente, inserta cada registro en la base de datos utilizando el método Insert y asignando los valores de los campos correspondientes. |
#8
|
||||
|
||||
Con respecto a los tipos de dato yo no me preocupo mucho.
El componente de Delphi hará las conversiones necesarias. Todos los enteros (smallint, integer, bigint) .AsInteger Todos los textos (char(), varchar()) .AsString Todos las fechas (date, time, ...) .AsDateTime Todos los decimales (double precision, numeric(x,x), ...) .AsFloat Para trabajar con booleanos en Firebird 2.5 debes tratarlos como un smallint con valores (0,1) o como un char/varchar() con valores ('S','N') Por lo tanto deberás hacer la conversión necesaria
|
#9
|
|||
|
|||
Gracias Casimiro, lo pruebo todo y te comento.
Buen finde. |
#10
|
|||
|
|||
Bueno Casimiro, estoy a punto de tirar la toalla.
He creado una tabla en una DB Firebird con la siguiente estructura.
Y he implementado un nuevo proyecto Delphi 2010, copiando, pegando y adaptando tu última recomendación.
Cómo puedes ver en el código he añadido un indicador <<<<<<<<<<< dónde y qué error me da. Si puedes mirarlo y decirme done lo hago mal, te lo agradeceré infinito. |
#11
|
||||
|
||||
Veamos, esto es fácil, te he preparado un sencillo proyecto y te lo adjunto aquí.
No sé qué versión usas de firebird, yo ahora mismo tengo la 2.5 y no existen los campos boolean, así que utilizo integer con 0/1 (0=false 1=true) Código:
CREATE TABLE PRUEBAS ( ID BIGINT DEFAULT 0 NOT NULL, MYINT INTEGER DEFAULT 0 NOT NULL, MYFLOAT FLOAT DEFAULT 0 NOT NULL, MYBOOL integer DEFAULT 0 NOT NULL, MYSTRING CHAR(1) DEFAULT '!' NOT NULL); Fíjate en los parámetros del IBDatabase y en los del IBTransaction. El IBDatabase le pongo la propiedad "login prompt" a false, para que no pregunte el password cada vez. Código:
user_name=sysdba password=masterkey Código:
read_committed rec_version nowait Y si lo ejecutas, obviamente, esto es una broma para firebird, en mi equipo tarda menos de 2 segundos. |
#12
|
|||
|
|||
Buenos días,
Lo he probado y funciona perfectamente. Muchísimas gaciass. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Insercion masiva desde Paradox a Firebird | MartinS | SQL | 5 | 22-12-2011 14:55:10 |
insercion masiva | Alfredo | Firebird e Interbase | 3 | 12-11-2008 20:34:46 |
Insercion masiva de una BD a otra BD | oscjae | Firebird e Interbase | 5 | 15-12-2006 20:25:49 |
Insercion masiva de registros MUY LENTA | Balda | Firebird e Interbase | 10 | 24-03-2004 21:40:21 |
Inserción masiva en MySQL | Morfo | MySQL | 3 | 09-01-2004 18:05:33 |
|