ADO - como carregar campos MEMO na dbgrid e mostrar dados?

Delphi

16/02/2006

Seguinte, estou carregando um banco de dados meu em access em uma dbgrid... estou usando o ADO e talz...

carregar eu carrego blz... soh q tipo os campos mesmos...
nao aparecem o conteudo...
soh aparecem escritos .. MEMO

alguem sabe oq fao pra q ele mostre o conteudo da lista qndo eu der um SELECT * From tabela .. pra ele carregar na dbgrid os registros?


valeu :P


Salsa

Salsa

Curtidas 0

Respostas

Paullsoftware

Paullsoftware

16/02/2006

tenta assim..
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  R : TRect;
begin
  (*exibe campo memo*)
  R:=Rect; // declara uma variável local R : TRect
  Dec(R.Bottom,2);
  if Column.Field=ClientDataSet1OBS then
  begin
    if not (gdSelected in State) then
      DBGrid1.Canvas.FillRect(Rect);
    DrawText(DBGrid1.Canvas.Handle,
      pchar(ClientDataSet1OBS.AsString),
      length(ClientDataSet1OBS.AsString),
      R,DT_WORDBREAK);

  end;



GOSTEI 0
Salsa

Salsa

16/02/2006

o que eh o:

ClientDataSet1OBS


???


GOSTEI 0
Paullsoftware

Paullsoftware

16/02/2006

o que eh o: ClientDataSet1OBS ???


seria o nome de SuaTabelaCampoObervacoes..


GOSTEI 0
Salsa

Salsa

16/02/2006

Query.FieldByName(´campo´).AssString

c tah dizendo?


GOSTEI 0
Salsa

Salsa

16/02/2006

nao tem como eu pegar automaticamente se o campo eh memo e fazer ele executar esse eskema no nome da coluna?

eh q tipo trabalho com varias tabelas... ae queria pegar se fosse uma coluna memo..!!!


GOSTEI 0
Rafael Gomes

Rafael Gomes

16/02/2006

amigo, basta colocar esse codigo no evento [b:e0908a6da7]OnGetText[/b:e0908a6da7] do seu filed Memo.

procedure TDmRE.AuxdescEnquadramentoGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  Text:= DmRe.Aux.fieldByName(´DescEnquadramento´).AsString;
end;


adapte o codigo de acordo com sua necessidade ...
abraços!!


GOSTEI 0
POSTAR