PREENCHER CAMPOS

RALECO 15/12/2009 19:27:20
#329779
Preciso de uma ajuda devido ao preenchimendo dos campos de um programinha tenho dois textbox , um para codigo outro para nome, gostaria de saber como faço quando digitar o codigo de uma pessoa cadastrada do banco de dados e pressionar enter preencher o testbox nome e se o codigo não exixtir mopstrar uma mensagem codigo inexistente.

eu uso este tipo de conexão:(access 2007)

Set bd = OpenDatabase([Ô]C:\Documents and Settings\RAFAEL\Desktop    este    bprodutos.mdb[Ô])
Set tbprodutos = bd.OpenRecordset([Ô]produtos[Ô], dbOpenTable)
TECLA 15/12/2009 20:29:28
#329782 Resposta escolhida
Dica: Já que está aprendendo, vá direto para o ADO.

Respondendo sua dúvida, adicione dois componentes TEXTBOX com a propriedade NAME = [txt-color=#0000FF]txtCodigo[/txt-color] e [txt-color=#0000FF]txtNome[/txt-color], e em seguida cole o código abaixo no EDITOR do FORM.

Set bd = OpenDatabase([Ô]C:\Documents and Settings\RAFAEL\Desktop    este    bprodutos.mdb[Ô])
Set tbCliente = bd.OpenRecordset([Ô]SELECT nome FROM cliente WHERE codigo=[Ô] & txtCodigo)
If Not tbCliente.Eof Then
     txtNome = tbCliente([Ô]nome[Ô])
Else
     MsgBox [Ô]Cliente não cadastrado[Ô], , [Ô]Pesquisa[Ô]
End If
RALECO 15/12/2009 20:39:25
#329783
aonde encontro uma apostila ADO boa e facil para aprender?
Tópico encerrado , respostas não são mais permitidas
Voltar