Tema: SQL y Delphi
Ver Mensaje Individual
  #5  
Antiguo 22-08-2005
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Miembro
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Reputación: 26
vtdeleon Va por buen camino
Saludos
Este hilo es un poco viejor pero...
Cita:
Empezado por roman
Código Delphi [-]
 ADOQuery1.Parameters.ParamByName('nombre').AsString := 'PEREZ%';
 ADOQuery1.Parameters.ParamByName('edad').AsInteger := 24;

Come ves, ParamByName regresa un objeto de tipo TParameter y debes usar el método AS--- que corresponda al tipo de datos.
roman, en realidad en los componentes ado(D7) no existen los metodos AsString, AsInteger,...Solo Existe Value.

Reinicio este hilo ya que estoy teniendo problemas con este componentes y su captura de parametros: Parameters Objects is improperly defined. Incosistent o imcomplete information was provider.

Ese es el error que me tira.
Código Delphi [-]
 with AdoQuery do begin
   sql.Text:='Insert into bvnat01 (contrato, codemp, tipre, fechapre, '+
                 'fechamort, forpag, numsem, montopre, balpre, amopre) '+
                 'values(:contrato, :codemp, :tipre, :fecha, :fecha:, '+
                 ':forpag, :numsem, :monto, :monto, :monto)'
   with Parameters do begin
     inc(contrato);
     ParamByName('contrato').value:=IntToStr(contrato);
     ParamByName('fecha').Value:=Now;
     ParamByName('forpag').Value:='S';
     ParamByName('monto').Value:=edtdesc.Value;
     ParamByName('codemp').Value:=AlignEdit1.Text;
     ParamByName('tipre').Value:='7';
     ParamByName('numsem').Value:=numsem;
   end;
   ExecSQL;
 end;
Hasta luego
__________________
Van Troi De León
(Not) Guía, Code vB:=Delphi-SQL, ¿Cómo?
Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
Responder Con Cita