Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-08-2011
Avatar de jafera
jafera jafera is offline
Miembro
 
Registrado: may 2007
Ubicación: Llagostera (Girona)
Posts: 582
Poder: 18
jafera Va por buen camino
Script para crear tablas

Hola a todos.

He creado un IBScript para crear unas tablas que no existe en mi aplicacion y para agrgar unos campos nuevos en tablas existentes.

Código SQL [-]
 
CREATE TABLE "RE0012"
(
  "ID_USUARI" INTEGER NOT NULL,
  "USUARI" VARCHAR(15) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "PASWORD" VARCHAR(15) CHARACTER SET ISO8859_1 COLLATE ES_ES
);
CREATE TABLE "RE0006TOTAL"
(
  "ID_REBUT" INTEGER NOT NULL,
  "DATA" DATE,
  "TITOL" VARCHAR(50) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "C_POSTAL" INTEGER,
  "CODI_CLUB" INTEGER,
  "ARBITRES" INTEGER,
  "MATERIAL" NUMERIC(9, 2),
  "I1" VARCHAR(1),
  "I2" VARCHAR(1),
  "I3" VARCHAR(1),
  "I4" VARCHAR(1),
  "I5" VARCHAR(1),
  "TI1" NUMERIC(9, 2),
  "TI2" NUMERIC(9, 2),
  "TI3" NUMERIC(9, 2),
  "TI4" NUMERIC(9, 2),
  "TI5" NUMERIC(9, 2),
  "TOTAL_REBUT" NUMERIC(9, 2),
  "IMPORT" NUMERIC(9, 2),
  "TEXTE" VARCHAR(50) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "SUSPENSIO" VARCHAR(1),
  "KM_TOTALS" INTEGER,
  "ASPIRANT" VARCHAR(1),
  "HORA_CONS" TIME,
  "HORA_SORT" TIME,
  "NUM_CORREDORS" INTEGER,
  "ID_ARBITRE" INTEGER,
  "ID_METGE" INTEGER,
  "DIR_CURSA" VARCHAR(50) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "CATEGORIA" VARCHAR(50) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "ZONA" INTEGER,
  "KM_CURSA" NUMERIC(9, 2),
  "TRANSP" VARCHAR(1),
  "GRAVAT" VARCHAR(1),
  "ACUMULAT" VARCHAR(1),
  "PREU_FIX" VARCHAR(1),
  "ID_USUARI" INTEGER
);
ALTER TABLE RE0006 ADD PREU_FIX VARCHAR(1);
ALTER TABLE RE0006 ADD ID_USUARI INTEGER;
ALTER TABLE RE0006FP ADD SUSPENSIO VARCHAR(1);
ALTER TABLE RE0006FP ADD I10 VARCHAR(1);
ALTER TABLE RE0006FP ADD TI10 NUMERIC(9, 2);
ALTER TABLE RE0006FP ADD TI11 NUMERIC(9, 2);
UPDATE RE0006 SET PREU_FIX = 'N';

El script se ejecuta perfectamente pero cuando abro la aplicación, parece que no se ha refrescado la base de datos y me da un error de tabla no existe o campo no existe y no me ejecuta el Update.

Si salgo y vuelvo a entrar, las tablas estan ahí sin mayor problema.

En la accion básica de la Transaction tengo TACommit, he probado con TACommitRetaining y tampoco se actualiza.

Alguien me puede ayudar para hacer que se refresquen los datos en la base de datos?

Si ejecuto el script desde IBConsole, no da ningun error pero las tablas tampoco se actualizan al momento tengo que salir y entrar.

Saludos
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
como hacer para crear reporte con 9 tablas diferentes RedVenom Impresión 3 07-04-2011 16:28:33
Script para Tablas Maestro detalle. JXJ MySQL 1 10-05-2007 16:58:11
crear alias por codigo para tablas dbase y que quede grabado en idapi32.cfg Wonni Conexión con bases de datos 2 06-02-2007 15:29:39
Quiero crear mi propio Script! PiornoCKA&G Varios 4 02-01-2007 17:39:19
¿Cómo conecto las tablas de paradox para crear un instalador con Inno Setup?? nuri Varios 4 08-08-2005 18:56:36


La franja horaria es GMT +2. Ahora son las 12:25:16.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi