[LuisHatake]

Empezado por Caral

Hola
Lo que no veo es que bd usas ?
Saludos

Hola Caral, les escribo para pedir ayuda pues pasa algo con mi programa. Lo que pasa es que no puedo realizar una consulta select con mas de dos campos. todo el codigo a continuacion lo tengo en el onclick de un boton. Si ejecuto la linea que esta comentada funciona perfectamente. strngrd1 es un TStringGrid. Mi base de datos esta en sql Workbench y utilizo los componentes TADOQuery. Gracias!

Código Delphi [-]
procedure TForm8.btn1Click(Sender: TObject);
var
lb, contador, i : Integer;
campo, campo2 : TField;
nombreCampo : string;
nombreCampo2 : string;
begin

  qryFinal.Close;
  qryFinal.SQL.Clear;
  qryFinal.SQL.Add('SELECT idarticulo, categoria');
  //qryFinal.SQL.Add('SELECT idarticulo');
  qryFinal.SQL.Add('  FROM articulo');
  qryFinal.SQL.Add('ORDER BY idarticulo');
  qryFinal.Open;
  contador:=1;
  while not qryFinal.Eof do
  begin
    for i:=0 to qryFinal.FieldCount -1 do
    begin
      nombreCampo:= qryFinal.Fields[i].FieldName;
      nombreCampo2:= qryFinal.Fields[i].FieldName;
      campo:=qryFinal.FieldByName(nombreCampo);
      campo2:=qryFinal.FieldByName(nombreCampo2);
      strngrd1.Rows[contador][i]:=campo.AsString;
      strngrd1.Rows[contador+1][i]:=campo2.AsString;
    end;
    inc(contador);
    qryFinal.Next;
  end;
end;