TEXTBOX INSERIR AUTOMATICO
Galera Boa noite
Estou com um novo probleminha mas este é chato... Vamos lá tenho 3 tabelas em meu BD Clientes, fornecedores, compras, e em meu form compras tenho dois campos assim Primeiro(ID) segundo (Fornecedor), eu queria que quando eu digitasse (Fornecedor) ele inserisse automático o (ID) e vice-versa, até já consegui puxar o id só que ele não esta ligando a linha do mesmo fornecedor ele puxa o ultimo cadastro, tipo se eu tiver 2 cadastro ele puxa o ID num 2 somente.
o CODE
Private Sub Nome_do_FornTBox_LostFocus(sender As Object, e As EventArgs) Handles Nome_do_FornTBox.LostFocus
Try
frnec = [Ô]Provider=Microsoft.ACE.OLEDB.12.0; DATA SOURCE=|Local do banco de dados|\Banco de dados BD1.accdb[Ô]
Dim x As New OleDbConnection(frnec)
Dim y As New DataTable
Dim w As New Banco_de_Dados_BD1DataSet
w.Tables.Add(y)
Dim g As New OleDbDataAdapter([Ô]select * from Fornecedores[Ô], x)
g.Fill(y)
Dim frn As DataRow
For Each frn In y.Rows
[ô]AQUI ELE PUXA A COLUNA CERTA MAS APENAS O ULTIMO CADASTRO
ID_do_FornTBox.Text = frn.Item(0).Value
Next
Catch ex As Exception
End Try
End Sub
Acho que esta faltando uma ligação com a textbox nome do fornecedor mas não estou conseguindo ver onde...
Desde já agradeço a atenção.
Estou com um novo probleminha mas este é chato... Vamos lá tenho 3 tabelas em meu BD Clientes, fornecedores, compras, e em meu form compras tenho dois campos assim Primeiro(ID) segundo (Fornecedor), eu queria que quando eu digitasse (Fornecedor) ele inserisse automático o (ID) e vice-versa, até já consegui puxar o id só que ele não esta ligando a linha do mesmo fornecedor ele puxa o ultimo cadastro, tipo se eu tiver 2 cadastro ele puxa o ID num 2 somente.
o CODE
Private Sub Nome_do_FornTBox_LostFocus(sender As Object, e As EventArgs) Handles Nome_do_FornTBox.LostFocus
Try
frnec = [Ô]Provider=Microsoft.ACE.OLEDB.12.0; DATA SOURCE=|Local do banco de dados|\Banco de dados BD1.accdb[Ô]
Dim x As New OleDbConnection(frnec)
Dim y As New DataTable
Dim w As New Banco_de_Dados_BD1DataSet
w.Tables.Add(y)
Dim g As New OleDbDataAdapter([Ô]select * from Fornecedores[Ô], x)
g.Fill(y)
Dim frn As DataRow
For Each frn In y.Rows
[ô]AQUI ELE PUXA A COLUNA CERTA MAS APENAS O ULTIMO CADASTRO
ID_do_FornTBox.Text = frn.Item(0).Value
Next
Catch ex As Exception
End Try
End Sub
Acho que esta faltando uma ligação com a textbox nome do fornecedor mas não estou conseguindo ver onde...
Desde já agradeço a atenção.
Alguma opimião???
Olá,
tente meter um where nessa query:
tente meter um where nessa query:
Dim g As New OleDbDataAdapter([Ô]SELECT * FROM Fornecedores WHERE seu_campo_com_o_nome_do_fornecedor = [ô][Ô] & Nome_do_FornTBox & [Ô][ô] [Ô] , x)
BINGO!!!
Sensacional GANDA_NICK
Parabéns...
Sensacional GANDA_NICK
Parabéns...
Tópico encerrado , respostas não são mais permitidas