grid y base de datos

[esublim]

Código Delphi [-]
form2.query_consulta_pc.Close;
                    form2.query_consulta_pc.SQL.Clear;
                    form2.query_consulta_pc.SQL.Add('Select * from articulos_compuestos where cod_compuesto = '''+Articulos_Compuestos.Edit_codArt.text+'''');
                    form2.query_consulta_pc.Execute;
                    for buscar := 0 to form2.query_consulta_pc.FieldCount do
                    begin

                           form2.query_consulta_pc.SQL.Clear;
                           form2.query_consulta_pc.SQL.Add('Select * from articulos_compuestos where cod_compuesto = '''+Articulos_Compuestos.Edit_codArt.text+'''');
                           form2.query_consulta_pc.Execute;

                            a:= Articulos_Compuestos.gridproductos.RowCount;
                            Articulos_Compuestos.gridproductos.RowCount := a +1;
                            Articulos_Compuestos.gridproductos.Cells[ 0, a ] := form2.query_consulta_pc.FieldByName('cod_terminado').AsString ;
                            form2.query_consulta_pc.Next;
                    end;

me podrian ayudar no se q estoy haciendo. tengo una tabla prooducto_compuesto. alli guardo de la siguiente manera:

Cod_ compuesto codigo terminado
1 123
1 345
1 456

y qye me llene el grid con todos los codigos terminados que corresponden al codigo compuesto

[esublim]

ayudaaaaaaaaaaaaaaaaaaaaaaa

[esublim]

Código Delphi [-]
form2.query_consulta_pc.Close;
                    form2.query_consulta_pc.SQL.Clear;
                    form2.query_consulta_pc.SQL.Add('Select * from articulos_compuestos where cod_compuesto = '''+Articulos_Compuestos.Edit_codArt.text+'''');
                    form2.query_consulta_pc.Execute;
                    for buscar := 0 to form2.query_consulta_pc.FieldCount do
                    begin
                            a:= Articulos_Compuestos.gridproductos.RowCount;
                            Articulos_Compuestos.gridproductos.RowCount := a +1;
                            Articulos_Compuestos.gridproductos.Cells[ 0, a ] := form2.query_consulta_pc.FieldByName('cod_terminado').AsString ;
                            form2.query_consulta_pc.Next;
                    end;

pero no me cuenta la cantidad de columnas a agregar

[Casimiro Notevi]

Por favor, vuelve a revisar nuestra guía de estilo, gracias

[[duilioisola]]

FieldCount es la cantidad de campos que devuelve la consulta.
Yo creo que a lo que te refieres es a RecCount (o RecordCount, no recuerdo bien), que devuelve la cantidad de registros.

En el ejemplo que mencionas:

Cod_ compuesto codigo terminado
       1               123
       1               345
       1               456

FieldCount = 2
RecCount = 3

[esublim]

Código Delphi [-]
form2.query_consulta_pc.Close;
                    form2.query_consulta_pc.SQL.Clear;
                    form2.query_consulta_pc.SQL.Add('Select * from articulos_compuestos where cod_compuesto = '''+Articulos_Compuestos.Edit_codArt.text+''' group by cod_terminado');
                    form2.query_consulta_pc.Execute;

                    for buscar := 0 to form2.query_consulta_pc.RecordCount-1 do
                    begin
                            a:= Articulos_Compuestos.gridproductos.RowCount;
                            Articulos_Compuestos.gridproductos.RowCount := a +1;
                            Articulos_Compuestos.gridproductos.Cells[ 0, a ] := form2.query_consulta_pc.FieldByName('cod_terminado').AsString ;
                            form2.query_consulta_pc.Next;
                    end;

este me esta funcionando.. muchisimas gracias