Kra no DBgrid é só ligar o DataSource do DBGRID com um componente TDataSource e
a opção DataSet do DataSource liga o AdoTable seu.
No evento show do form, vc dá um open no AdoTable, pronto seus dados estão na
grid.
----- Original Message -----
From: Gustavo André de Freitas
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, April 17, 2007 10:38 AM
Subject: [delphi-br] Re: String Grid com banco de dados Access
Quem puder ajuda então, como faço para inserir esses dados que estão
indo pro string grid num dbGrid?
segue o código atual:
procedure TForm1.Monitorar;
var
hprinter:thandle;
bytesneeded,numjobs,i,ii:cardinal;
pj:pjobs;
begin
hprinter := getcurrentprinterhandle(SGPrinter.Cells
[0,linhaprinterselecionada]);
try
// EnumJobs(hprinter,0,100,1,nil,0,bytesneeded,numjobs);
EnumJobs(hprinter,0,1000,2,nil,0,bytesneeded,numjobs);
pj := AllocMem(bytesneeded);
if not EnumJobs(hprinter,0,1000,2
{1},pj,bytesneeded,bytesneeded,numjobs) then
RaiseLastWin32Error;
// if numjobs = 0 then
// else begin
for i := 0 to StringGrid1.ColCount -1 do
for ii := 0 to StringGrid1.RowCount -1 do StringGrid1.Cells
[i,ii] := '';
StringGrid1.Cells[0,0] := 'Nome do documento';
StringGrid1.Cells[1,0] := 'Status';
StringGrid1.Cells[2,0] := 'Proprietário';
StringGrid1.Cells[3,0] := 'Páginas';
StringGrid1.Cells[4,0] := 'Enviado';
StringGrid1.Cells[5,0] := 'Tamanho';
StringGrid1.Cells[6,0] := 'Cód. Status';
if numjobs<>0 THEN BEGIN
StringGrid1.RowCount := numjobs+1;
for i := 0 to pred(numjobs) do begin
StringGrid1.Cells[0,i+1] := pj^[i].pDocument;
StringGrid1.Cells[1,i+1] := getstatus(pj^[i].status);
StringGrid1.Cells[2,i+1] := pj^[i].pUserName;
StringGrid1.Cells[3,i+1] := inttostr(pj^[i].TotalPages);
StringGrid1.Cells[4,i+1] := getdatajob(pj^[i].Submitted);
StringGrid1.Cells[5,i+1] := copy(FloatTostr(pj^
[i].Size/1024),1,1+pos(',',FloatTostr(pj^[i].Size/1024)))+'
KB'; //FormatFloat('###,##0.0 KB',trunc((pj^[i].Size/1024)/0.1)/10);
jobids[i+1] := pj^[i].JobId;
StringGrid1.Cells[6,i+1] := inttostr(pj^[i].Status);//+' -
'+inttostr(jobids[i]);
end;
end;
// end;
finally
ClosePrinter(hprinter);
end;
end;
--- Em delphi-br@yahoogrupos.com.br, "Rubem Nascimento da Rocha"
<[EMAIL PROTECTED]> escreveu
>
> Companheiro, a experiência diz, e também quem trabalha com grandes
> quantidades de dados comprova isso, que fazer a carga e a
apresentação dos
> dados de forma manual, sem fazer uso de controles data-aware (que
são
> próprios para isso), é uma prática questionável, uma vez que isto
impacta
> diretamente no tempo de resposta que sua aplicação terá.
>
> Prefira usar TDBGrid ao invés de TStringGrid, pois o TDBGrid é um
controle
> de grid preparado para exibição de dados a partir de um dataset
proveniente
> (ou não) de uma conexão com um banco de dados.
>
> Sds.
>
>
> >From: Gustavo André de Freitas <[EMAIL PROTECTED]>
> >Reply-To: delphi-br@yahoogrupos.com.br
> >To: delphi-br@yahoogrupos.com.br
> >Subject: [delphi-br] String Grid com banco de dados Access
> >Date: Mon, 16 Apr 2007 20:28:52 -0000
> >
> >Pessoal,
> >
> >tenho uma StringGrid que recebe alguns dados na minha aplicação e
> >queria que esses dados fossem gravados num banco de dados, a
princípio
> >esse banco seria o Access, gostaria de saber como faço para linkar
(?),
> >essa StringGrid com o banco de dados. estou usando adoconection e
> >adotable...
> >
> >Desde já agradeço a ajuda de todos!
> >
> >Gustavo André de Freitas
> >
>
> __________________________________________________________
> MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com
>
[As partes desta mensagem que não continham texto foram removidas]
