1 respuesta en este tema

[fidl117]

Saludos amigos, quisiera saber si me pueden ayudar a convertir un SP de SQL SERVER a uno de Firebird, trate de hacerlo pero no me salio o almenos no hace lo que quiero, el SP que quiero es el siguiente:

SET ANSI_NULLS ON

SET QUOTED_IDENTIFIER ON

GO

ALTER PROCEDURE [dbo].[loginusuario](@identificacion AS varchar(50),@nombreusuario AS varchar(50))

AS

BEGIN

SELECT id,nombre FROM dbo.usuario WHERE id=@identificacion AND nombre=@nombreusuario

END

yo lo intente en Firebird de la siguiente manera:

SET TERM ^ ;

ALTER PROCEDURE LOGINUSUARIO (

NOMBREUSUARIO Varchar(15),

CONTRASENA Varchar(15) )

RETURNS (

USUARIO Varchar(15),

CONTRASENA_USUARIO Varchar(15) )

AS

DECLARE VARIABLE NUSUARIO VARCHAR(15);

DECLARE VARIABLE NPASS VARCHAR(15);

BEGIN

FOR Select NOMBRE,IDENTIFICACION from USUARIOS where IDENTIFICACION=:CONTRASENA and NOMBRE=:NOMBREUSUARIO

INTO :NUSUARIO, :NPASS DO

SUSPEND;

END^

SET TERM ; ^

GRANT EXECUTE

ON PROCEDURE LOGINUSUARIO TO SYSDBA;

ok se me paso, les comento que desde vb.net se van a loguear y si el usuario existe en la tabla, me dejara ingresar., espero y me puedan ayudar , les dejo el codigo en vb.net

cuando trato de loguearme solo pasa a esta linea:  Label1.Text = "El Usuario no Existe"

delphi

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conectar As String = ConfigurationManager.ConnectionStrings("conexion").ConnectionString
        Dim sqlconectar As FbConnection = New FbConnection(conectar)
        Dim cmd As FbCommand = New FbCommand("LOGINUSUARIO", sqlconectar)
        cmd.CommandType = CommandType.StoredProcedure
        cmd.Parameters.Add("@CONTRASENA", FbDbType.VarChar, 10).Value = TextBox2.Text
        cmd.Parameters.Add("@NOMBREUSUARIO", FbDbType.VarChar, 18).Value = TextBox1.Text
        Try
            cmd.Connection.Open()
            Dim dr As FbDataReader = cmd.ExecuteReader
            If dr.Read Then
                Label1.Text = "Bienvenidos Usuario" & " " & TextBox1.Text
                Label1.ForeColor = Drawing.Color.DarkGreen
                FormsAuthentication.RedirectFromLoginPage(TextBox1.Text, False)
            Else
                Label1.Text = "El Usuario no Existe"
                Label1.ForeColor = Drawing.Color.DarkRed
            End If
        Catch ex As Exception
            Label1.Text = ex.Message
 
        End Try
        cmd.Connection.Close()
    End Sub

[Sergio]

Una funcion que devuelve lo mismo que le pasas... hum, curioso cuanto menos, yo preferiria una funcion que le pases user y pass y te devuelva, por ejemplo, el numero de usuarios que coinciden (1 o 0, claro), pero bueno, si funciona, funciona.

Creo que el problema es que en firebird, en lugar de darle valor a las dos variables de respuesta, metes el resultado en variables temporales, es decir:

SET TERM ^ ;
ALTER PROCEDURE LOGINUSUARIO (
NOMBREUSUARIO Varchar(15),
CONTRASENA Varchar(15) )
RETURNS (
USUARIO Varchar(15),
CONTRASENA_USUARIO Varchar(15) )
AS
BEGIN
FOR Select NOMBRE,IDENTIFICACION from USUARIOS where IDENTIFICACION=:CONTRASENA and NOMBRE=:NOMBREUSUARIO
INTO :USUARIO, :CONTRASENA_USUARIO DO
SUSPEND;
END^
SET TERM ; ^
GRANT EXECUTE
ON PROCEDURE LOGINUSUARIO TO SYSDBA;

NOTA: Ops, las etiquetas de firebird no funcionan! Llamen a un moderador!