Hola de nuevo, obtener un campo desde vb una vez hecha la consulta, no hay problema, el problema
se me presenta si tengo que devolver, como es el caso, un "T", o "F" o "0" o "1" o el valor que
sea, pero que no este relacionado con la tabla o nada que se le parezca.
De hecho, lo primero que hice antes de devolver T o F, fue comprobar si estaba o no ingresado
uno de esos datos, ahí no tengo problema en llamar-asignar elcampo a una variable, no sé si me
explico.
Un saludo
Suso
>
>
> El 7 de septiembre de 2009 10:17, suso <jlcubas(at)terra(dot)es
> <mailto:jlcubas(at)terra(dot)es>> escribió:
>
> Hola Cesar, de esa manera no obtengo el valor de retorno, puedo
> obtener cualquier datos del recordset, pero no un return false o
> true o el que sea, es correcto?
>
>
> No, la funcion se delara por ejemplo
>
> CREATE OR REPLACE FUNCTION cl_paciente_inserta(mpc_cod character
> varying, .....)
> RETURNS bigint AS
> $BODY$
>
> BEGIN
> --***************************************
> --INSERTA LOS REGISTROS
> --TABLA PACIENTE
> --***************************************
> INSERT INTO pacientes(
> pc_cod, ....
> )
> VALUES (
> mpc_cod, ....
> );
>
> IF NOT FOUND THEN
> RAISE EXCEPTION 'Error al Tratar de Insertar un NUEVO Registro
> ((%))', mpc_nombre;
> RETURN 0;
> END IF;
>
> --DEVUELVE EL CODIGO DE LA PERSONA INGRESADA, QUE LE ASIGNA EL SISTEMA
>
> RETURN currval('pacientes_pc_id_seq');
>
> END;
> $BODY$
> LANGUAGE 'plpgsql' VOLATILE
> COST 100;
>
> y de visual basic la llamas
>
>
>
> sql = "SELECT * FROM cl_paciente_inserta(parametro1, parametro2,...)
>
> Set RsTemp = New ADODB.Recordset
>
> RsTemp.Open sql, Base, adOpenKeyset, _
> adLockOptimistic, adCmdText
>
> If Not (RsTemp.EOF And RsTemp.BOF) Then
> variablequetomaRetorno = rstemp(0)
>
>
>
> Set RsTemp = Nothing
>
>
>
>
> --
> Sin más que decir se despide de Usted, muy atentamente
>
> Cesar Erices Vergara
> Ingeniero en Gestión Informática
> Analista de Sistema
>
> Santiago - Chile