Pesquisa ao digitar um codigo no textbox


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Pesquisa ao digitar um codigo no textbox

LUIZ PEDRO

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 13/04/2010 15:08 hs

Galera

Estou tentando fazer uma pesquisa que ao digitar o codigo do cliente na caixa de texto e pressionar enter, os dados sejam carregados nas outras caixas de texto, como faço isso, fiz algumas tentativas mas nao consegui ainda.

Valeu !

TÓPICO EDITADO

Perci!

MATAO
SP - BRASIL

ENUNCIADA !

Postada em 13/04/2010 15:21 hs

Como você está utilizando: DAO ou ADO?

Utilizando DAO, fica mais ou menos assim:

' No evento KeyDown da TextBox - quando o usuário teclar ENTER na TextBox

Private Sub TxtCodigo_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        KeyAscii = 0
        If TxtCodigo.Text = Empty Then
            MsgBox "Campo código não pode ser branco", vbInformation, "Código inválido"
            Exit Sub
        End If
        TxtCodigo.Enabled = False
        sqlcli = "Select * From Clientes Where codigo = " & TxtCodigo.Text

        Set rscli = db.OpenRecordset(sqlcli)
        If rscli.EOF Then
            TxtNome.SetFocus
        Else
            TxtNome.Text = rscli("nome")

TxtNome.Text = rscli("endereco")

TxtNome.Text = rscli("cidade")

End If
End If
End Sub

Espero ter ajudado

Até mais.

LUIZ PEDRO

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 13/04/2010 15:25 hs

Ola

Neste sistema que estou alterando, utiliza o ADO também, como fica utilizando o ADO ?

Perci!

MATAO
SP - BRASIL

ENUNCIADA !

Postada em 14/04/2010 14:09 hs

Olha, cara, desculpe a demora em responder, mas é que eu não utilizo ADO. Por isso procurei um exemplo no site www.macoratti.net que tem muita coisa boa por lá (convido você e a quem não conhece a visitar - é muito bom). O que eu encontrei lá é esse. Veja se te ajuda na sua dúvida.

Public Sub MostraDadosCliente()
    Dim rsCliente As New ADODB.Recordset
Dim sql As String
Dim CodCliente As Long
   CodCliente = Val(TxtCodCliente.Text)
    On Error Resume Next
    sql = "SELECT Nome, Endereco, Cidade Where CodCliente=" & CodCliente
   rsCliente.Open sql, cnsql, adOpenForwardOnly, adLockReadOnly
    TxtNome = rsCliente(0)
    TxtEndereco = rsCliente(1)
    TxtCidade = rsCliente(2)
    rsCliente.Close
End Sub

Qualquer coisa, poste novamente.

Espero ter ajudado.

Até mais.

Página(s): 1/1