Pesquisa Na Grid Com Ado

[rbegosso]

olá pessoal...

to com uma imensa duvida, tenho q fazer uma pesquisa em uma grid com conexao ADO e editar o registro selecionado em outro form, so q estou usando um controle MSHFLEXGRID por não conseguir usar outro(DBGRID ou MSFLEXGRID) com ADO (Isso é normal??). Tentei fazer da seguinte forma:

'Evento DuploClick da MSHFLEXGRID

DEconexao.RSconsulta.find("cod_cargo=") & MSHFLEXGRID.col(0)**

form_edicao.TXTcod_cargo.text = DEconexao.RSconsulta("cod_cargo")

form_edicao.TXTdesc_cargo.text = DEconexao.RSconsulta("desc_cargo")

** o problema esta aqui não consigo localizar o registro com um duploclick.

Se alguém puder me ajudar serei muito grato.

[Graymalkin]

olá pessoal...

to com uma imensa duvida, tenho q fazer uma pesquisa em uma grid com conexao ADO e editar o registro selecionado em outro form, so q estou usando um controle MSHFLEXGRID por não conseguir usar outro(DBGRID ou MSFLEXGRID) com ADO (Isso é normal??).

Sim, é normal. Do DAO para o ADO os componentes que suportavam o primeiro tiveram versões equivalentes para suportar o segundo. O equivalente da MSFlexgrid é o que você está usando, ou seja, a MSHFlexgrid e a equivalente da DBGrid é a DataGrid.

Tentei fazer da seguinte forma:

'Evento DuploClick da MSHFLEXGRID

DEconexao.RSconsulta.find("cod_cargo=") & MSHFLEXGRID.col(0)**

form_edicao.TXTcod_cargo.text = DEconexao.RSconsulta("cod_cargo")

form_edicao.TXTdesc_cargo.text = DEconexao.RSconsulta("desc_cargo")

** o problema esta aqui não consigo localizar o registro com um duploclick.

Experimente assim:

DEconexao.RSconsulta.find "cod_cargo=" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
form_edicao.TXTcod_cargo.text = DEconexao.RSconsulta("cod_cargo")
form_edicao.TXTdesc_cargo.text = DEconexao.RSconsulta("desc_cargo")

Veja se é isso que você quer.

Abraços,

Graymalkin

[rbegosso]

valeu Cara...vou tentar...muito obrigado!!!!

abracos

Ricardo