Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 19-10-2017
arturoio arturoio is offline
Miembro
NULL
 
Registrado: oct 2017
Posts: 17
Poder: 0
arturoio Va por buen camino
Código SQL [-]
Delimiter $$
DROP PROCEDURE IF EXISTS insertaPaciente;
    CREATE PROCEDURE insertaPaciente (identificador VARCHAR(12), nombre VARCHAR(45), apellidoP VARCHAR(45), apellidoM VARCHAR(45), fecha DATE, telefono VARCHAR(15), celular VARCHAR(15),
    pais INT, estado int, ciudad int, colonia int, calle int, numero VARCHAR(7), profesion VARCHAR(45), estadoC VARCHAR(15), escolaridad VARCHAR(45), sexo int, sangre VARCHAR(2), correo VARCHAR(70)) ##Se definen los parametros que necesitara el SP
    
    BEGIN #Inicia las intrucciones para el SP
    DECLARE direccion INT; #Declaramos una variable y a continuación comprobaremos si ya existe un registro igual
    SET direccion = (Select count(cl08_Id) from cl08 where cl14_Id = pais and cl13_Id = estado and cl12_Id = ciudad and cl09_Id = calle and cl11_Id = colonia and cl08_Numero = numero);
    
    IF direccion = 0 # a traves de este if decidimos si se inserta un nuevo registro o se utiliza el que ya existe
    THEN
        INSERT INTO cl08 values (null,calle,colonia,numero,ciudad,estado,pais);
    END IF;    
    
    SET direccion = (Select cl08_Id from cl08 where cl14_Id = pais and cl13_Id = estado and cl12_Id = ciudad and cl09_Id = calle and cl11_Id = colonia and cl08_Numero = numero);
    insert into cl00 values (null,identificador, nombre, apellidoP, apellidoM, fecha, telefono, celular, profesion, estadoC,escolaridad, sexo, sangre, correo, direccion); # Hacemos nuestra inserción 

END $$

Este es el SP. Desde el gestor de la Base de datos funciona sin problemas
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
direction en TADOStoredProc !! Confucio SQL 2 18-10-2007 14:43:41
Manejo de parametros en sql zvf SQL 3 13-09-2007 16:09:49
Problemas con TADOStoredProc david.rguez Conexión con bases de datos 0 02-07-2006 19:52:23
TADOStoredProc & DBLookupComboBox TriLoCBA Conexión con bases de datos 0 23-09-2005 15:55:52
Locate de TADOStoredProc arantzal Varios 0 09-02-2005 16:19:20


La franja horaria es GMT +2. Ahora son las 12:05:40.


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