Problema con procedimiento almacenado (dbexpress)

[ElMug]

Empezado por ecfisa

Hola liito16.

No puedo opinar sobre la declaración del procedimiento en MySQL ya que uso Firebird.

Pero de este modo el componente TSQLStoredProc tendría que funcionarte sin ningún problema:
Código Delphi [-]... var res: Integer; begin ... with SQLStoredProc1 do begin SQLConnection := SQLConnection1; StoredProcName := 'VALIDAR'; Params.ParamByName('USUARIO').AsString := Edit1.Text; Params.ParamByName('CLAVE').AsString := Edit2.Text; ExecProc; res := Params.ParamByName('RES').AsInteger; end; ... end;

(Las propiedades SQLConnection y StoredProcName las configuré por código para dar mas claridad al ejemplo)

Te dejo un enlace al manual de referencia de MySQL: [CREATE PROCEDURE y CREATE FUNCTION]
Tal vez también te pueda ser útil este: [MySQL Stored procedure Tutorial]

Saludos.

Tal vez parte del problema sea esto:

En el stored procedure Clave es Integer y en el codigo del boton Clave, parece ser que es texto:
Params.ParamByName('clave').Value:=edt_clave.Text;

[liito16]

nono, va la clave la puse varchar(6), osea el campo con el cual se iguala es key_user varchar(6) y asi también declare la variable de entrada in clave varchar(6) porque es en realidad un login de usuario como "pedorro" por asi decirlo, es solo para ver si existe el usuario y si existe que entre al sistema.

lo que voy a hacer ahora es probar con interbase haber que pasa,
solo que me tira error en el if. -.-! me dice precompiler error: me dice que es el if pero busque y se hace asi. ahora estoy bajando otro EMS interbase manager para probar.

muchas gracias, cualquier ayuda es bienvenida.

[ecfisa]

Hola liito16.

Si lo vas a hacer en Interbase o Firebird (es casi lo mismo) ya la cosa cambia....

Esto si te funcionará correctamente:

Código SQL [-]
/* Devuelve 0 si no hay coincidencia o mayor que 0 si la hay */
SET TERM ^;

CREATE OR ALTER PROCEDURE VALIDAR (USUARIO VARCHAR(10), CLAVE VARCHAR(6))
RETURNS (RESULT INTEGER)
AS
BEGIN
  SELECT COUNT(*) FROM TABLA
  WHERE (NOM_USER = :USUARIO) AND (KEY_USER = :CLAVE) INTO :RESULT;
END^

SET TERM ;^

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with SQLStoredProc1 do
  begin
    SQLConnection := SQLConnection1;
    StoredProcName := 'VALIDAR';
    ParamByName('USUARIO').AsString := Edit1.Text;
    ParamByName('CLAVE').AsString   := Edit2.Text;
    ExecProc;
    if ParamByName('RESULT').AsInteger > 0 then
      ShowMessage('Usuario encontrado')
    else
      ShowMessage('Usuario incorrecto');
  end;
end;

Y puedo asegurártelo por que está probado.

Saludos.

[liito16]

Si muchas gracias estaba pensando algo asi. justamente. el tema ahora es que no me deja conectar con la base de datos delphi -.-! me tira error
yo tengo windows 7 - 64 bits. así que capas reinstalo todo de nuevo. muchas gracias!!!, y ni bien pruebe pongo como corresponde la respuesta de como me fue. saludos!

[liito16]

Revivo, porque nose como solucionarlo ese es el error que aparece, e intentado por forma de metodo de ejecucion y por propiedades del componente y no funciona y probado con un dataset de dbexpress y tampoco, pero eh probado traer campos y mostrarlos en un grid y funciona todo.

Desde ya muchas gracias