Consultas no vb

[Hyoga 0]

Bom pessoal tudo tranquilo!! :P

 

Bom eu estou começando em vb e queria saber como fazer uma consulta, e para isso estou usando o controle Data e um DBgrid, pois bem eu quero saber como faço para dar um duplo click em determinado cadastro e ele abrir.

 

exemplo um cadastro de cliente, aí uso um botão chamado consulta, sendo que só quero por exemplo o código do cliente quando der duplo click.

 

entenderam?

[Claudio Neto 3]

Olá Hyoga, primeiramente bem vindo a área.

 

Fazer uma consulta não é algo complicado não. Mas Eu não entendi sua necessidade não, principalmente essa sua ultima frase: exemplo um cadastro de cliente, aí uso um botão chamado consulta, sendo que só quero por exemplo o código do cliente quando der duplo click..

 

Você irá por um botão para consultar, depois dará um duplo clique onde? Ta confuso isso...

 

Esclarece ai que a ajudamos.

[Hyoga 0]

Obrigado.

 

Opa foi mal, o sono estava batendo e acabei dando mole.

 

É assim, no cadastro do cliente junto com botões de editar, novo etc; tem tb um chamado Localizar. Então quando clico no botão abre um form que estará os clientes cadastrados, sendo que tenho um caixa de texto para localizar o cliente pelo código(aí eu queria que só aparecesse o cliente depois de digitar na caixa). E a estória do duplo click é tipo localizei o cliente do duplo click ele abre o cadastro do cliente no formulário que apertei o botão.

 

tá beleza agora?

 

 

esse é o form que abre quando clico no botão localizar.

[Claudio Neto 3]

Hyoga, então se eu entendi bem, você já tem pronto até a parte onde preenche o Grid, estou correto?

 

Para fazer uma consulta a partir de um duplo clique no grid e exibir seus resultados, talvez isso te ajude.

 

No evento DblClick do DataGrid faça:

 

rs.open "select * from clientes where codigo = " & datagrid.collum.item(0), conexao 'isso se for abrir um recordset novo 'para a consulta, senão, se já estiver com o recordset aberto, use o rs.find

Depois basta preencher os campos que precisa com os valores resultantes da consulta, que isso pelo visto você sabe fazer.

 

Se não for isso que precisa, ou ainda precisar de alguma coisa, estamos ai...

[Hyoga 0]

O duplo click resolvi fazendo isso.

 

Private Sub dbgCliente_DblClick()
dbgCliente.Col = 0
   frmCliente.txtCodCli.Text = dbgCliente.Text
dbgCliente.Col = 1
   frmCliente.txtNome.Text = dbgCliente.Text
dbgCliente.Col = 2
   frmCliente.txtEndereco.Text = dbgCliente.Text
dbgCliente.Col = 3
   frmCliente.txtBairro.Text = dbgCliente.Text
dbgCliente.Col = 4
   frmCliente.mskCep.Text = dbgCliente.Text
dbgCliente.Col = 5
   frmCliente.txtCidade.Text = dbgCliente.Text
dbgCliente.Col = 6
   frmCliente.txtEstado.Text = dbgCliente.Text
dbgCliente.Col = 7
   frmCliente.txtEmail.Text = dbgCliente.Text
dbgCliente.Col = 8
   frmCliente.mskTelRes.Text = dbgCliente.Text
dbgCliente.Col = 9
   frmCliente.mskTelCel.Text = dbgCliente.Text
dbgCliente.Col = 10
   frmCliente.mskTelCom.Text = dbgCliente.Text
dbgCliente.Col = 11
   frmCliente.mskFax.Text = dbgCliente.Text
   Unload Me
End Sub

 

Agora falta só caixa de texto, eu quero fazer do modo que falei la encima. E tipo eu estou usando o data para conectar o banco de dados, e ñ via código.

[Claudio Neto 3]

Olá Hyoga.

 

Você pode utilizar o evento lostfocus da caixa de texto.

 

No evento você faz:

 

adodc1.recordset.find "cod = " & text1.text, start:=1

'chama função que preenche o grid