Linguagem Visual Basic

[RodolphoChagas 0]

Esse comando que voce diz ser de inserção nada mais é do que um SELECT na sua tabela de Cliente.

Esse SELECT irá buscar o NOME do Cliente onde(WHERE) o CNPJ é igual ao digitado na TxtCodFornecedor_entradas.Text e irá imprimir o resultado(que é o NOME) no LblFornecedor_entradas.Text

 

Ex: "SELECT Nome FROM Clientes WHERE Codigo = " & TxtCodFornecedor_entradas.Text

 

Usando o Keypress voce consegue identificar qual tecla o usuario esta digitando, e assim que ele digitar a tecla "ENTER" voce da esse SELECT e insere o resultado na LblFornecedor_entradas.Text

[Cristian Abadi dos Santos 0]

Vo explica melhor.

Criei um form de "Compra". Nesse form tem duas text box, uma se chama TxtCNPJ_fornecedor e a outra TxtFornecedor. Quando eu digitar o cnpj na text box TxtCNPJ_fornecedor quero que apareça a razao social do Fornecedor na text box TxtFornecedor.

[RodolphoChagas 0]

Então Cristian, foi exatamente o que eu expliquei.

Esses dados(CNPJ e RAZÃO SOCIAL) estão dentro da tabela Clientes, certo ?

[Cristian Abadi dos Santos 0]

Certo.

entao ficou assim meu codigo Keypress:

 

Dim conexao As New OleDbConnection
Dim comandos As New OleDbCommand
Dim consulta As OleDbDataReader
Dim DT As New DataTable

conexao.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=Dados1.accdb;Jet OLEDB:System database=system,mdw;"
conexao.Open()
comandos.CommandText = "select RazaoSocial from Clientes where CNPJ='" & TxtCnpjFornecedor_compras.Text
comandos.Connection = conexao
consulta = comandos.ExecuteReader()

If (consulta.HasRows) Then
'falta o código para inserir a RazaoSocial do cliente no text box = (TxtFornecedor_compras.text)
Else
MsgBox("Cliente ou fornecedor não encontrado!")
End If

[RodolphoChagas 0]

Dentro do "If (consulta.HasRows) Then" voce verifica se a tecla pressionada

foi o ENTER, se sim, coloca o valor no TxtFornecedor_compras.text

 

Ex.:

If e.KeyChar = 13 Then

 

TxtFornecedor_compras.text = comandos.Fields(0)

 

End If

[Cristian Abadi dos Santos 0]

Blz. deu certo. Estou com outro problema. No código abaixo da erro de "Tipo de dados incompatível na expressão de critério."

O código que ele tem que puxa da tabela no banco de dados é Numeração Automatica. Tenho que converte e algo?

 

Dim conexao As New OleDbConnection

Dim comandos As New OleDbCommand

Dim consulta As OleDbDataReader = Nothing

conexao.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=Dados1.accdb;Jet OLEDB:System database=system,mdw;"

conexao.Open()

comandos.CommandText = "SELECT * from Produtos where Código='" & TxtCodigoProduto_compras.Text & "'"

comandos.Connection = conexao

consulta = comandos.ExecuteReader()

If (consulta.HasRows) Then

consulta.Read()

TxtDescricaoProduto_compras.Text = consulta.Item("Descricao")

Else

MsgBox("Cliente não cadastrado!")

End If

[KhaosDoctor 242]

Em qual linha?