VB6_text1.text + ADO+MySQL

[MorpheusXP]

Boa tarde amigos programadores.

Eu preciso da ajuda de vocês.

Estou desenvolvendo um sistema usando ADO e MySQL5 como base de dados.

O sistema apresenta no primeiro modulo um text1.text , onde ele aguarda entrar um código ou uma série de numeros onde através do MySQL 5 ele possa mostrar os dados do produto correspondentes aquele código automaticamente...tem como fazer ?

Editado Julho 4, 2014 por MorpheusXP

[SuporteHSL]

Veja se eu entendi, você tem uma tabela no MySQL onde tem cadastros e um campo de código de referencia, um form com um text onde você vai informar "a referencia". Seria isso?

Teste assim:

Rs.Open "select * from TABELA where CAMPO_DE_REFRECIA like '" & text1.Text & "'", CONEXAO, 3, 3

    If Rs.RecordCount > 0 Then
        Text2.tetx = Rs("CAMPO_COM_DESCRIÇÃO")
    Else
        MsgBox "Nenhum registro foi encontrado", vbCritical, "Atenção"
        text1.Text = ""
        text1.Setfocus()
    End If
Rs.Close

Me fale caso precise de ajuda.