ayuda con el procedimiento almacenado

[pipecato]

tengo este codigo para crear un usuario con sql server 2000, con parametro

CREATE PROCEDURE creacion_usuario (@usuario varchar(30), @pass varchar(30) ) AS

exec sp_addlogin @usuario,@pass
GO

desde delphi quiero ingresar el usuario y la password.

este es el siguiente codigo.

Datamodulo.adoconsulta.SQL.Clear;
Datamodulo.adoconsulta.SQL.Add('select * from creacion_usuario(:usuario,ass)');
datamodulo.adoconsulta.Parameters.ParamValues['usuario']:=edtusuario.Text;
datamodulo.adoconsulta.Parameters.ParamValues['pass']:=edtcontrasena.Text;
datamodulo.adoconsulta.ExecSQL;


me sale error. alguien me ayude nunca he echo un procedimiento alamcenado.

gracias

[lucasarts_18]

Hola:

Código Delphi [-]
procedure TFrm_EliminarDocumento.ActualizarEstadoGuiaPendienteDetalle;
var Sp:TStoredProc;
begin
     Sp:=TStoredProc.create(self);
     Sp.DatabaseName:='DBCOMLIMA';
     Sp.StoredProcName:='SP_ActualizarCondicionGuia';
     Sp.Params.Clear;

     //Creacion de Parametros
     Sp.Params.CreateParam(ftInteger,'@guia_numero',ptInput);
     Sp.Params.CreateParam(ftString,'@tgui_tipo',ptInput);
     Sp.Params.CreateParam(ftInteger,'RETURN_VALUE',ptResult);

    //Valores que entrega el Servidor
     Sp.ParamByName('@guia_numero').AsInteger := CeldaToInt(grd_Detalle.Cells[1,lv_i]);
     Sp.ParamByName('@tgui_tipo').AsString:= 'P';
     try
        Sp.ExecProc;
     Except on E:EDataBaseError do
        MessageDlg('Procedimiento Almacenado no pudo ser ejecutado Correctamente.'+#13+
                   'Mensaje del Servidor de Datos: '+e.message,mtInformation,[mbOk], 0);
     end;
end;

Con un ejemplo debería quedar bien, cierto

Hasta Luego -