Ver Mensaje Individual
  #6  
Antiguo 06-04-2010
Avatar de microbiano
microbiano microbiano is offline
Miembro
 
Registrado: sep 2008
Ubicación: Mexico D.F
Posts: 349
Reputación: 18
microbiano Va por buen camino
Unhappy no he podido resolver el problema de este procedimiento

tengo el procedimiento que se supone tendria que cargar los datos en un combobox, para ello tengo el siguiente codigo.
Código Delphi [-]
procedure llena_claves();
  var licitac: variant;
begin
     licitac:='00641321-030-09'; //trim(fpropuestas.txtlicitacion.Text);
     With fModulo.Q_licitac2 Do
     Begin
          Sql.Clear;
          Sql.Add('select licitacion,gpo,gen,esp,dif,var from requerimiento');
          Sql.Add('where licitacion=:licit');
          Parameters.ParamByName('licit').Value:=Trim(Licitac);
          Try
             Open;
             While Not Eof Do
             Begin
                 fPropuestas.cb_clave.Items.Add(Fields['gpo'].Value);
                 Next;
             End;
             Close;
          Except
             On E:EOleException Do
             Begin
                MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
             End;
          End;
     End;

sin embargo al ejecutar el programa me muestra el siguiente error, en la linea de color rojo es decir:

fPropuestas.cb_clave.Items.Add(Fields['gpo'].Value); y este es el error:

[Error] f_propuestas.pas(109): Incompatible types: 'Integer' and 'String'

ya verifique y el tipo de dato de la tabla es varchar de 3, no entiendo por que el error alguien podria ayudarme.

ya intenten con

fPropuestas.cb_clave.Items.Add(Fields['gpo'].AsString);
fPropuestas.cb_clave.Items.Add(Fields['gpo'].asVariant);

pero nada funciona

Última edición por microbiano fecha: 06-04-2010 a las 17:01:50. Razón: aclarar el problema
Responder Con Cita