Ver Mensaje Individual
  #12  
Antiguo 23-12-2017
LuisHatake LuisHatake is offline
Miembro
NULL
 
Registrado: oct 2017
Posts: 14
Reputación: 0
LuisHatake Va por buen camino
Post Error al ejecuar select en adoquery

Cita:
Empezado por Caral Ver Mensaje
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;
Responder Con Cita