ayuda con procedimiento y delphi

[lucasarts_18]

Hola:

Asocias el Datasource después de abrir el procedimiento almacenado ??

Ponlo en tiempo de diseño y ve que sucede...

[Xianto]

Buenas...

Nunca he llamado un procedimiento de MSSQL desde delphi de esa forma, siempre he preferido, poner una query en formulario y indistintamente si es query o procedimiento o lo que sea, ejecutarlo...

Ademas no necesitas usar el EXEC para ejecutar un procedemiento, con tan solo su nombre el procedimiento se ejecuta siempre y cuando este en la DB que estes usando en ese momento.

Intenta algo asi:

Query.SQL.Text := 'mi_procedimiento_con_parametros ' + chr(39) + texto1 + chr(39) +',' + IntToStr(numero1)

[lucasarts_18]

Hola:

Aquí tienes otro ejemplo que puede servirte:

Código Delphi [-]
 
 procedure TFrm_MantenedorClientes.IngresarCliente;
 var Sp:TStoredProc;
 begin
      Sp:=TStoredProc.create(self);
      Sp.DatabaseName:='DBCOMLIMA';
      Sp.StoredProcName:='SP_InsertarCliente';
      Sp.Params.Clear;
 
      //Creacion de Parametros
      Sp.Params.CreateParam(ftInteger,'@nrrut',ptInput);
      Sp.Params.CreateParam(ftString,'@dvrut',ptInput);
      Sp.Params.CreateParam(ftString,'@nmcliente',ptInput);
      Sp.Params.CreateParam(ftString,'@nmdireccion',ptInput);
      Sp.Params.CreateParam(ftString,'@nmcomuna',ptInput);
      Sp.Params.CreateParam(ftString,'@nmciudad',ptInput);
      Sp.Params.CreateParam(ftString,'@nmgiro',ptInput);
      Sp.Params.CreateParam(ftString,'@nrfono',ptInput);
      Sp.Params.CreateParam(ftString,'@nrfax',ptInput);
      Sp.Params.CreateParam(ftString,'@nmemail',ptInput);
      Sp.Params.CreateParam(ftFloat,'@nrcredito',ptInput);
      Sp.Params.CreateParam(ftFloat,'@nrsaldo',ptInput);
   //->AGA 24/08/2005
      SP.Params.CreateParam(ftInteger,'@nrplazo',ptInput);
      SP.Params.CreateParam(ftfloat,'@nrdescuento',ptInput);
      SP.Params.CreateParam(ftString,'@nrfiador',ptInput);
   //<-AGA 24/08/2005
      Sp.Params.CreateParam(ftInteger,'RETURN_VALUE',ptResult);
 
     //Valores que entrega el Servidor
      SP.ParamByName('@nrrut').AsInteger := StrToInt(Copy(Mask_Rut.Text,1,8));
      SP.ParamByName('@dvrut').AsString := Copy(Mask_Rut.Text,9,1);
      SP.ParamByName('@nmcliente').AsString := edt_Nombre.Text;
      SP.ParamByName('@nmdireccion').AsString := edt_Direccion.Text;
      SP.ParamByName('@nmcomuna').AsString := edt_Comuna.Text;
      SP.ParamByName('@nmciudad').AsString := edt_Ciudad.Text;
      SP.ParamByName('@nmgiro').AsString := edt_Giro.Text;
      SP.ParamByName('@nrfono').AsString := edt_Fono.Text;
      SP.ParamByName('@nrfax').AsString := edt_Fax.Text;
      SP.ParamByName('@nmemail').AsString := edt_Email.Text;
      Sp.ParamByName('@nrcredito').AsFloat := StrToFloat(edt_credito.Text);
      Sp.ParamByName('@nrsaldo').AsFloat := 0;
   //->AGA 24/08/2005
      SP.ParamByName('@nrplazo').AsInteger := StrToInt(edt_Plazo.Text);
      SP.ParamByName('@nrdescuento').AsFloat := StrToFloat(edt_Descuento.Text);
      SP.ParamByName('@nrfiador').AsString := edt_Fiador.Text;
   //<-AGA 24/08/2005
 
      try
         SP.ExecProc;
         Case SP.ParamByName('RETURN_VALUE').AsInteger of
         0:MessageDlg('Cliente Ingresado',mtInformation,[mbOk],0);
         1:MessageDlg('Ya Existe Cliente',mtWarning,[mbOk],0);
         90:MessageDlg('Error en la BD',mtWarning,[mbOk],0);
         end;
      Except
         MessageDlg('Procedimiento no pudo ser Ejecutado',mtWarning,[mbOk],0);
      end;
      FormActivate(Self);
 end;
 
 Espero que te oriente en algo..

[lgarcia]

Hola:

Me parece que la variante mas optima es utilizar un ADOStoreProcedure y en la propiedad ConnectionString configurar la conexion con la BD de SQL, una vez realizado esto lo unico que tienes que hacer es ejecutarla en el evento OnActivate del formulario donde esta el DBGrid con un codigo como este

with BuscarDocente do
begin
   Close;
   Parameters.ParamByName('@var').Value:= Trim(EditUsuario.Text);
   Parameters.ParamByName('@sw').Value:= Trim(EditContrasena.Text);
   Open;
end;

Por otro lado el DataSource lo asocias al ADOStoreProcedure y el DBGrid lo asocias al DataSource, para que el ADOStoreProcedure te muestre los campos debes ponerle los parametros y darle click derecho y seleccionar Field Editor y sobre la ventana que te sale nuevamente click derecho y seleccionar Add all field ya que con esto cuando en la propiedad Column del DBGrid podras escoger los campos.

Espero haberte ayudado en algo

Saludos
Luis Garcia

_____________________________
La mejor manera de decir es hacer