OBTER NOME AO DIGITAR CODIGO

FMVC 02/02/2011 20:53:56
#364164
Como eu faço para a pessoa digitar por exemplo o codigo do produto dar TAB , aparecer automaticamente o nome do produto e outras informações?

Obs.: Uso VB 2008 EXPRESS e BD com Acess.

Obrigado!
RODRIGOFERRO 02/02/2011 21:09:55
#364165


em tese é colocar uma rotina de consulta no lostfocus do campo onde vai digitar o codigo, trazendo os dados consultados...

bons estudos !
RODRIGOFERRO 06/02/2011 22:39:50
#364525
ta e como vou advinhar o que não funcionou ?

posta o erro e o codigo que usou !.. Abraços !
WEBSTERGONTIJO 06/02/2011 22:59:56
#364528
Dim conect As New OleDb.OleDbConnection
Dim conexao As String
conexao = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source= D:\PRODUTOS.mdb[Ô]
conect.ConnectionString = conexao
Dim comando As OleDb.OleDbCommand = conect.CreateCommand
conect.Open()
Try
[ô]VERIFICA COD DA PEÇA EXISTE PARA POSSIVEL CADASTRO NO BOTAO ADD LISTVIEW

comando.CommandText = ([Ô]SELECT DESC_PROD FROM PRODUTOS WHERE CODI_PROD LIKE [ô][Ô] & COD_PECASTXT.Text & [Ô][ô][Ô])
Dim dr As OleDb.OleDbDataReader
dr = comando.ExecuteReader
If dr.Read() Then
DESC_PECA.Text = dr([Ô]desc_prod[Ô])
Else
MsgBox([Ô]PEÇA NAO CADASTRADA, DIGITA A DESCRIÇÃO DA MESMA![Ô])
DESC_PECA.Focus()
V_PECAS = True
End If


Catch EX As OleDb.OleDbException
MsgBox([Ô]ERRO NO SISTEMA, PROCURAR SUPORTE [Ô] & EX.Message)


End Try
conect.Close()
End Sub


COLOCA NO EVENTO TAB INDEX


Se deu certo para vc nao esqueca de finalizar o topico
FMVC 27/02/2011 00:18:44
#366688
não está completando automáticamente, só diz se o registro existe ou não...
JONATHANSTECKER 27/02/2011 12:44:43
#366698
Citação:

:
não está completando automáticamente, só diz se o registro existe ou não...



Poste o código que você está usando!!
Assim vamos tentar identificar o erro.
TECLA 18/03/2011 21:03:23
#368486
O problema foi resolvido?
Se não, poste os detalhes atualizados para que possamos ajudá-lo, ou ENCERRE o tópico.
Tópico encerrado , respostas não são mais permitidas
Voltar