como paso parametros con TAdoQuery ..?

[[Caral]]

Hola
Lo que no veo es que bd usas ?
Saludos

[LuisHatake]

hola chicos como les comento lo que quiero hacer es mostrar todos los datos de una tabla en un dbgrid.
lo primero que tengo es un TADOConnection, despues tengo un TADOQuery ("qry6") asociado en su atributo de conexion al TADOConnection, despues tengo un TDataSetProvider el cual esta asociado al query en su propiedad dataset, depues tengo otro componente TClientDataSet el cual se encuentra asociado en su propiedad ProviderName al TDataSetProvider, y al final tengo un TDataSource que esta asociado en su ppropiedad DataSet al TClientDataSet. tambien tengo un boton en el cual al dar click se ejecuta el siguiente codigo:

Código Delphi [-]
procedure Tfrm1.btn1Click(Sender: TObject);
begin
  qry6.SQL.Clear;
  qry6.SQL.add('select idarticulo from articulo');
  qry6.Open;
  Buscar(edt1.Text);
end

;

//esto es lo que tiene el metodo buscar:

Código Delphi [-]
procedure Tfrm1.Buscar(idarticulo : string);
begin
  ds2.close;
  ds2.params.paramByName('idarticulo').asString := idarticulo;
  ds2.open;
end;

ds2 es el nombre del TClientDataSet.
en el codigo tiene idarticulo por que de esa forma almenos me muestra la columna de los id pero lo que quiero es ver todas las columnas de esa tabla y cuando pongo el asterisco o cualquier otro nombre de otra columna me marca el siguiente error: 'access violation at 0x05f9....: read of address'. gracias!!

[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;

[[Caral]]

Hola
No entiendo muy bien lo que estas haciendo


nombreCampo:= qryFinal.Fields[i].FieldName;
nombreCampo2:= qryFinal.Fields[i].FieldName
Donde se diferencia en nombrecampo 1 y 2 ?
Me parece que por eso solo ve el primer campo
Saludos