qury dinamica - tdbgrid

[ffabio]

Ho un campo memo, dove scrivo le mia query .

la mando in esecuzione vorrei creare un grid dinamica .
dinamica nel senso che i campi possono variare .

 Come faccio a sapere i campi inseriti nella select ?? per crearmi una grid con lo stesso numero di campi??

esiste un metodo ??


grazie a tutti

[xinyiman]

basta che all'esecuzione della tua query quindi magari sul click del tasto che dovrebbe farti vedere il risultato nella DBGrid tu chiuda l'oggetto Query con Query.Close, gli cambi la proprieta Query.SQL.Text='nuova query'  e poi riapri la Query con Query.Open; dovrebbe riapparirti quello che cerchi!

[ffabio]

quello si .  era il numero di colonne della grid che non so come fare .

[xinyiman]

Ma non te ne devi preoccupare tu, fa tutto la DBGrid in automatico!

[ffabio]

spettacolo :-)

[ffabio]

funziona ci pensa lei devo solo capire come ridimensionare le colonne se non so quli sono .

con le colonne predefinite avevo usato il tuo suggerimento :

Grid1.Columns[0].width:=85;

adesso idee ??

[xinyiman]

Bhe basta che fai un ciclo su tutte le colonne e le ridimensioni tutte. Così:

for i:=0 to Grid1.DataSource.DataSet.FieldCount-1 do
begin
     Grid1.Columns.width:=85;
end;

Ricordati solo di dichiarare i come un intero! Fammi sapere se ti funziona!

[ffabio]

non so la dimensione della colonna anche quella è in base al testo contenuto.


se lo scrivo senza ciclo mi pernde la dimensione del campo del db.

[xinyiman]

Questo dovrebbe fare al caso tuo!

Grid1.AutoSizeColumns;

[ffabio]

non funziona 

ho trovato questa procedura

procedure SetGridColumnWidths(Grid: Tdbgrid);
const
  DEFBORDER = 10;
var
  temp, n: Integer;
  lmax: array [0..30] of Integer;
begin
  with Grid do
  begin
    Canvas.Font := Font;
    for n := 0 to Columns.Count - 1 do
      //if columns[n].visible then
      lmax[n] := Canvas.TextWidth(Fields[n].FieldName) + DEFBORDER;
    grid.DataSource.DataSet.First;
    while not grid.DataSource.DataSet.EOF do
    begin
      for n := 0 to Columns.Count - 1 do
      begin
        //if columns[n].visible then begin
        temp := Canvas.TextWidth(trim(Columns[n].Field.DisplayText)) + DEFBORDER;
        if temp > lmax[n] then lmax[n] := temp;
        //end; { if }
      end; {for}
      grid.DataSource.DataSet.Next;
    end; { while }
    grid.DataSource.DataSet.First;
    for n := 0 to Columns.Count - 1 do
      if lmax[n] > 0 then
        Columns[n].Width := lmax[n];
  end; { With }
end; {SetGridColumnWidths  }

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetGridColumnWidths(dbgrid3);
end;


pero' mi da un errore

 lmax[n] := Canvas.TextWidth(Fields[n].FieldName) + DEFBORDER;

mi segna errore Fields ? ideee

[xinyiman]

Prova a cambiarlo da

Canvas.TextWidth(Fields[n].FieldName) + DEFBORDER;

a

Canvas.TextWidth(Grid.Fields[n].FieldName) + DEFBORDER;

[ffabio]

no , mi dice

error: identifier no member "Fields"

altre idee

[xinyiman]

Si hai ragione, questa è la sintassi corretta

      lmax[n] := Canvas.TextWidth(Grid.DataSource.DataSet.Fields[n].FieldName) + DEFBORDER;

[ffabio]

si funziona grandeee 


grazie

[xinyiman]

figurati