Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-05-2006
Avatar de AGAG4
AGAG4 AGAG4 is offline
Miembro
 
Registrado: ago 2004
Ubicación: Los Mochis, Sinaloa, México
Posts: 1.420
Poder: 21
AGAG4 Va por buen camino
Problema con Control de Versiones

Uso Firebird 1.53, estoy empezando a llevar un control de versiones de mis Bases de Datos, es decir, si se realiza algún cambio en la Estructura de estos, voy añadiendo los Script's a 1 archivo de texto para Ejectutarlos en Otras Sucursales donde también vayan a ocupar dicha Modificación, pero tengo el siguiente Problema, ejecuto los Script's dentro del Script EXECUTE del IBEXPERT en la primer línea Ejecuto un Store Procedure para comparar de que Sistema se Trata, la Versión y la Fecha de Versión si la Versión ó la Fecha de Versión es Diferente con la que tiene actualmente la Base de datos se lanza una excepción pero el problema es que se continua con las demás Instrucciones del archivo y es lo que no quiero, pongo un ejemplo del contenido del archivo de texto:
Código SQL [-]
/*Llamamos Versión Actual si se lanza una Excepción DESEARÍA QUE NO CONTINUARÁ HACÍA ABAJO*/

EXECUTE PROCEDURE REVISA_VERSION('FAC',1.010,'20.04.2006') ;
 
/*Actualizamos SISTEMA*/
Update TSISTEMAS set Version = 1.010,Fec_Ver='02.05.2006' where Clave='FAC' ;
 
/*Agregamos Campo en Tabla*/
ALTER TABLE TCOMPUTADORAS
ADD CVEUSUARIO ENTERO_N ;

El Contenido del Procedimiento Almacenado es:
Código SQL [-]
CREATE PROCEDURE REVISA_VERSION(
    SISTEMA VARCHAR(3),
    VERSION_SIS FLOAT,
    FECHA_VERSION DATE)
RETURNS (
    ERROR SMALLINT)
AS
DECLARE VARIABLE XVERSION FLOAT;
DECLARE VARIABLE XFEC_VER DATE;
begin
  Select Version,Fec_Ver from tsistemas
  where
    Clave = : Sistema
  into
    :xVersion ,:xFec_Ver;
  if (:xVersion <> :Version_Sis or :xFec_Ver <> :Fecha_Version) then 
    Exception EX_VERSION_DIFERENTE;
end

Como ven la excepción se lanza y me la muestra pero que tengo que hacer para que se detenga????

Tendré que hacer una aplicación en delphi para cachar dicha Excepción????

Agradezco cualquier sugerencia.
Responder Con Cita
  #2  
Antiguo 03-05-2006
Avatar de lpmlpm
lpmlpm lpmlpm is offline
Miembro
 
Registrado: ago 2005
Posts: 136
Poder: 19
lpmlpm Va por buen camino
para controlar la estructura de tu base de datos, no te sirve mejor un sincronizador de metadatos??

Asi te evitas estar aplicando uno a uno los scripts a una versión muy vieja de tu sistema, con estas herramientas directamente actualizas a la última versión todo el esquema de tu base de datos, puede ser que solo mantengas un script con el metadata "actual" para que desde ese puedas actualizar cualquier base de datos...

Saludos
__________________
"Lo mejor de no saber hacer nada es que se tiene mucho tiempo libre."
Responder Con Cita
  #3  
Antiguo 03-05-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.286
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Tal vez deberías utilizar una transacción para realizar todos los cambios. Si es que te interesa que se realizen todos o no se realize ninguno.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #4  
Antiguo 27-05-2006
Avatar de AGAG4
AGAG4 AGAG4 is offline
Miembro
 
Registrado: ago 2004
Ubicación: Los Mochis, Sinaloa, México
Posts: 1.420
Poder: 21
AGAG4 Va por buen camino
ok

Gracias por sus respuestas....

Opte por hacer una aplicación para ejecutar Scritp's

Que tengan buen día.
Responder Con Cita
Respuesta



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
Versiones de Delphi woody Varios 7 22-02-2016 00:19:34
Control de Versiones JorgeBec Varios 1 27-01-2005 04:49:45
Microsoft y sus versiones eduarcol Debates 15 24-01-2004 13:10:50
Control de Versiones cone220 Varios 1 20-01-2004 19:58:01
Control de numeracion de versiones erickperez6 Varios 2 14-05-2003 17:10:28


La franja horaria es GMT +2. Ahora son las 18:23:49.


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