Dbgrid como pegar os dados?

Question

Awe pessoal fmz?Tipo Tava querendo sabe uma coisaTem um dbgrid com os dados de uma tabelaDai eu queria que ele clicasse em um dos dados do dbgrid e ai eu ia mostra os dados relacionados em outro dbgri...

Fabio.hc · Answer

Tente assim:DBGrid1 -> Table1DBGrid2 -> Query1 (�Select * from tabela where campo=:param1�)[code:1:4c9665f6af]procedure TForm1.DBGrid1CellClick(Column: TColumn);begin   Query1.Close;   Query1.Params&#91;0&93;.Value:=Table1Codigo.Value;   Query1.Open;end;[/code:1:4c9665f6af]...

Snipa · Answer

Mais o problema eh que os dados que tao na dbgrid1 sao de uma querynao de uma tableentende?...

Aroldo Zanela · Answer

Colega,O conceito � o mesmo, apenas troque os nomes dos objetos de acordo com sua necessidade....

Snipa · Answer

Bom pessoal vlw ae a ajudaMais pelo que eu tentei aqui ele tah dando um erro estranhaoEnfim acho qeu to fazendo alguma coisa errada to fazendo assim:[code:1:b111d58fa8]procedure TFrmPesCond.DBGrid2CellClick(Column: TColumn);var valor:integer;beginvalor := QryCont.DataSource.DataSet.FieldList.Fields&#91;0&93;.Value;with qrygastos dobeginclose;Sql.Clear;Sql.Add(�SELECT * FROM Contas WHERE CodCond = :PE�);Parambyname(�PE�).AsInteger := valor;Open;end;end;[/code:1:b111d58fa8]O erro que aparece ehAccess violation at address 004C0701 in module admin.exe. Read of address 00000030Entao se alguem soube ae fala ae :) vlw fui...

Vinicius2k · Answer

Colega,Acho q seu problema est� aqui :[code:1:48f9dc352e]valor := QryCont.DataSource.DataSet.FieldList.Fields&#91;0&93;.Value;[/code:1:48f9dc352e]O correto seria :[code:1:48f9dc352e]valor := QryCont.Fields&91;0&93;.Value;[/code:1:48f9dc352e]espero ter ajudado...T+...

Aroldo Zanela · Answer

[quote:23eb181a67=�vinicius2K�]Colega,Acho q seu problema est� aqui :[code:1:23eb181a67]valor := QryCont.DataSource.DataSet.FieldList.Fields&#91;0&93;.Value;[/code:1:23eb181a67]O correto seria :[code:1:23eb181a67]valor := QryCont.Fields&91;0&93;.Value;[/code:1:23eb181a67]espero ter ajudado...T+[/quote:23eb181a67]Na verdade, eu acho que QryCont � o nome da dbGrid e n�o seria o problema. Pela mensagem, talvez n�o exista algum objeto que est� sendo manipulado no c�digo....

Fabio.hc · Answer

[quote:a91f02175a=�Snipa�]Bom pessoal vlw ae a ajudaMais pelo que eu tentei aqui ele tah dando um erro estranhaoEnfim acho qeu to fazendo alguma coisa errada to fazendo assim:[code:1:a91f02175a]procedure TFrmPesCond.DBGrid2CellClick(Column: TColumn);var valor:integer;beginvalor := QryCont.DataSource.DataSet.FieldList.Fields&#91;0&93;.Value;with qrygastos dobeginclose;Sql.Clear;Sql.Add(�SELECT * FROM Contas WHERE CodCond = :PE�);Parambyname(�PE�).AsInteger := valor;Open;end;end;[/code:1:a91f02175a]O erro que aparece ehAccess violation at address 004C0701 in module admin.exe. Read of address 00000030Entao se alguem soube ae fala ae :) vlw fui[/quote:a91f02175a]Olhando os codigos e nomes dos objetos:qrycont esta linkado no DBGrid1 ?qrygastos esta linkado no DBGrid2� isto,se for ent�o este codigo que vc passou tem que estar no CellClick do DBGrid1 e n�o no CellClick do DBGrid2....

Vinicius2k · Answer

[quote:4f20c2982d=�Aroldo Zanela�]Na verdade, eu acho que QryCont � o nome da dbGrid e n�o seria o problema. Pela mensagem, talvez n�o exista algum objeto que est� sendo manipulado no c�digo.[/quote:4f20c2982d]
:roll: n�o sei Aroldo, mas me parece, pelo padr�o de nomenclatura, que QryCont � a Query mesmo, mas � s� um chute...

procedure TFrmPesCond.[color=red:4f20c2982d]DBGrid2CellClick[/color:4f20c2982d](Column: TColumn);

with [color=red:4f20c2982d]qrygastos[/color:4f20c2982d] do

T+

Snipa · Answer

Awe pessoal fmz?Bom o qrygastos eh uma query mesmoE oque o aroldo zanela falou eu fiz e nao tah mais aparecendo a msg de erroMais tb nao tah aparecendo os dados no dbgrid Mais enfim brigadao ao pessoal ae vo ve mais tarde aqui pq agora tenho que i pra escolaFlw...

F�rum Dbgrid como pegar os dados? #222180