Hola amigos estoy usando Delphi 7, FireBird 2 y las FIBPlus. Estoy haciendo un programa para migrar de una base a otra, tabla por tabla y campo por campo por si no se llaman igual siempre que sean del mismo tipo (aun esta en pañales el sistema
).
en la parte básica que llevo genero varias lineas insert p/e:
Código SQL
[-]Insert into CLIENTES (ID, NOMBRE, RFC, DIRECCION, COLONIA, LOCALIDAD, REPRESENTANTE, TELEFONO_1, TELEFONO_2, FAX) values (0, 'inicial', Null, 'inicial', 'inicial', Null, Null, Null, Null, Null);
Insert into CLIENTES (ID, NOMBRE, RFC, DIRECCION, COLONIA, LOCALIDAD, REPRESENTANTE, TELEFONO_1, TELEFONO_2, FAX) values (1, 'BRAVO AUTOMOTRIZ S.A. DE C.V.', 'BAU -831123-T86', 'BLVD. MIGUEL ALEMAN Y MONTES DE OCA', 'BLVD. MIGUEL ALEMAN Y MONTES DE OCA', 'COSAMALOAPAN, VER.', 'SRA. ESTELA BRAVO ACOSTA', '288-20142', '288-21718', '288-22199');
Insert into CLIENTES (ID, NOMBRE, RFC, DIRECCION, COLONIA, LOCALIDAD, REPRESENTANTE, TELEFONO_1, TELEFONO_2, FAX) values (2, 'CIA. AGRICOLA GANADERA DE TABASCO, S.A. DE C.V.', 'AGT -921219-5W5', 'AVENIDA H. COLEGIO MILITAR Nø 108, COLONIA ATASTA', 'AVENIDA H. COLEGIO MILITAR Nø 108, COLONIA ATASTA', 'VILLAHERMOSA, TABASCO', 'SRITA. RITA', Null, Null, Null);
Insert into CLIENTES (ID, NOMBRE, RFC, DIRECCION, COLONIA, LOCALIDAD, REPRESENTANTE, TELEFONO_1, TELEFONO_2, FAX) values (3, 'CIA. AZUCARERA INDEPENDENCIA, S.A. DE C.V.', ' AIN-960314-960', 'BLVD. MANUEL AVILA CAMACHO S/N', 'BLVD. MANUEL AVILA CAMACHO S/N', 'VILLA INDEPENDENCIA, VER.', Null, Null, Null, Null);
Insert into CLIENTES (ID, NOMBRE, RFC, DIRECCION, COLONIA, LOCALIDAD, REPRESENTANTE, TELEFONO_1, TELEFONO_2, FAX) values (4, 'ASOC. LOCAL DE CA¥EROS CNPR INGENIO LA GLORIA', ' - -', 'DOMICILIO CONOCIDO: "INGENIO LA GLORIA"', 'DOMICILIO CONOCIDO: "INGENIO LA GLORIA"', 'MPIO. DE URSULO GALVAN, VER.', Null, Null, Null, Null);
Insert into CLIENTES (ID, NOMBRE, RFC, DIRECCION, COLONIA, LOCALIDAD, REPRESENTANTE, TELEFONO_1, TELEFONO_2, FAX) values (5, 'SOC. VENUSTIANO CARRANZA, S.A. DE C.V.', ' - -', 'DOM. CONOCIDO POBLADO C23, PLAN CHONTALPA', 'DOM. CONOCIDO POBLADO C23, PLAN CHONTALPA', 'CARDENAS, TAB.', Null, Null, Null, Null);
Insert into CLIENTES (ID, NOMBRE, RFC, DIRECCION, COLONIA, LOCALIDAD, REPRESENTANTE, TELEFONO_1, TELEFONO_2, FAX) values (6, 'AUTOTRACTORES DE MORELOS, S.A. DE C.V.', ' ATM-730612-7P4', 'AV. REFORMA NO. 205 COL. EMILIANO ZAPATA', 'AV. REFORMA NO. 205 COL. EMILIANO ZAPATA', 'CUAUTLA, MOR.', Null, Null, Null, Null);
Insert into CLIENTES (ID, NOMBRE, RFC, DIRECCION, COLONIA, LOCALIDAD, REPRESENTANTE, TELEFONO_1, TELEFONO_2, FAX) values (7, 'TRACTORMAYA, S. A. DE C.V.', ' TRA-880107-HW4', 'AV. RUIZ CORTINES ESQ. DO¥A FIDENCIA', 'AV. RUIZ CORTINES ESQ. DO¥A FIDENCIA', 'VILLAHERMOSA, TABASCO', 'SR. MIGUEL ANGEL CORTES', '93 - 12013', '142670', Null);
Insert into CLIENTES (ID, NOMBRE, RFC, DIRECCION, COLONIA, LOCALIDAD, REPRESENTANTE, TELEFONO_1, TELEFONO_2, FAX) values (8, 'ING. EDUARDO GALVAN CARPINTERO', ' - -', 'AV. BENITO JUAREZ Nø 19, MPIO. DE EMILIANO ZAPATA', 'AV. BENITO JUAREZ Nø 19, MPIO. DE EMILIANO ZAPATA', 'MORELOS', Null, Null, Null, Null);
commit;
.......
este código lo asigno ya sea a un pFIBQuery, pFIBStoredproc o a un pFIBUpdateObject y en todos estos al intentar ejecutar las sentencias me marca error de sintaxis en la linea 2 columna 1 la sentencia INSERT, si copio todas estas sentencias a ibexpert y las ejecuto funciona de forma correcta.
Alguien me pude decir como hacer que delphi ejecute todas las lineas seguidas y no tener que ejecutar linea por linea.
Gracias
p.d. encontré este
tema en el foro pero esa estructura del insert no funciona en firebird