CONSULTA
Bom dia!
Estou realizando um rotina de COnsulta no BD, atraves de uma Combox, onde aparecem os nome Cadastrados.
Porém, ao clicar no Botao (Consulta), aparece a mensagem: [Ô]Nenhum valor foi fornecido par aum ou mais parametros necessários[Ô]
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
St = [Ô]Select * from tblClientes Where RazaoCliente = [Ô] & (BuscaCliente.Text)
tblClientes_DataAdapter = New OleDb.OleDbDataAdapter(St, BDCOnexao)
tblClientes_DataAdapter.Fill(Clientes_DataSet, [Ô]tblClientes[Ô])
Dim BuscaClientes As DataTable = Clientes_DataSet.Tables([Ô]tblClientes[Ô])
Dim TabelaClientesLinhas As DataRow
If BuscaClientes.Rows.Count > 0 Then
TabelaClientesLinhas = BuscaClientes.Rows(0)
txtCodClientes.Text = TabelaClientesLinhas([Ô]CodCliente[Ô])
txtCNPJCliente.Text = TabelaClientesLinhas([Ô]CNPJCliente[Ô])
txtIECliente.Text = TabelaClientesLinhas([Ô]IECliente[Ô])
txtRazaoCliente.Text = TabelaClientesLinhas([Ô]RazaoCliente[Ô])
txtEmailCliente.Text = TabelaClientesLinhas([Ô]EmailCliente[Ô])
txtEndCliente.Text = TabelaClientesLinhas([Ô]EndCliente[Ô])
txtnumCliente.Text = TabelaClientesLinhas([Ô]NumCliente[Ô])
txtBairroCliente.Text = TabelaClientesLinhas([Ô]BairroCliente[Ô])
txtCidadeCliente.Text = TabelaClientesLinhas([Ô]CidadeCliente[Ô])
txtEstadoCliente.Text = TabelaClientesLinhas([Ô]EstadoCliente[Ô])
txtCepCliente.Text = TabelaClientesLinhas([Ô]CEPCLiente[Ô])
txtFoneCliente.Text = TabelaClientesLinhas([Ô]FoneCliente[Ô])
End If
BuscaClientes.Reset()
End Sub
Estou realizando um rotina de COnsulta no BD, atraves de uma Combox, onde aparecem os nome Cadastrados.
Porém, ao clicar no Botao (Consulta), aparece a mensagem: [Ô]Nenhum valor foi fornecido par aum ou mais parametros necessários[Ô]
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
St = [Ô]Select * from tblClientes Where RazaoCliente = [Ô] & (BuscaCliente.Text)
tblClientes_DataAdapter = New OleDb.OleDbDataAdapter(St, BDCOnexao)
tblClientes_DataAdapter.Fill(Clientes_DataSet, [Ô]tblClientes[Ô])
Dim BuscaClientes As DataTable = Clientes_DataSet.Tables([Ô]tblClientes[Ô])
Dim TabelaClientesLinhas As DataRow
If BuscaClientes.Rows.Count > 0 Then
TabelaClientesLinhas = BuscaClientes.Rows(0)
txtCodClientes.Text = TabelaClientesLinhas([Ô]CodCliente[Ô])
txtCNPJCliente.Text = TabelaClientesLinhas([Ô]CNPJCliente[Ô])
txtIECliente.Text = TabelaClientesLinhas([Ô]IECliente[Ô])
txtRazaoCliente.Text = TabelaClientesLinhas([Ô]RazaoCliente[Ô])
txtEmailCliente.Text = TabelaClientesLinhas([Ô]EmailCliente[Ô])
txtEndCliente.Text = TabelaClientesLinhas([Ô]EndCliente[Ô])
txtnumCliente.Text = TabelaClientesLinhas([Ô]NumCliente[Ô])
txtBairroCliente.Text = TabelaClientesLinhas([Ô]BairroCliente[Ô])
txtCidadeCliente.Text = TabelaClientesLinhas([Ô]CidadeCliente[Ô])
txtEstadoCliente.Text = TabelaClientesLinhas([Ô]EstadoCliente[Ô])
txtCepCliente.Text = TabelaClientesLinhas([Ô]CEPCLiente[Ô])
txtFoneCliente.Text = TabelaClientesLinhas([Ô]FoneCliente[Ô])
End If
BuscaClientes.Reset()
End Sub
Olá Amigo.
Você esta tentando fazer assim.
St = [Ô]Select * from tblClientes Where RazaoCliente = [Ô] & (BuscaCliente.Text)
tenta isto.
St = [Ô]Select * from tblClientes Where RazaoCliente = [ô][Ô] & BuscaCliente.Text & [Ô][ô]
Abraços
Você esta tentando fazer assim.
St = [Ô]Select * from tblClientes Where RazaoCliente = [Ô] & (BuscaCliente.Text)
tenta isto.
St = [Ô]Select * from tblClientes Where RazaoCliente = [ô][Ô] & BuscaCliente.Text & [Ô][ô]
Abraços
Bom dia!
Obrigado pela ajuda. Funcionou perfeitamente.
Essas [Ô] ainda me mata..rs
Vlw
Abraço.
Obrigado pela ajuda. Funcionou perfeitamente.
Essas [Ô] ainda me mata..rs
Vlw
Abraço.
Ola GuiMoraes123, Bom dia!
Aproveitando, por favor, verifique se pode me ajudar..
Fiz o mesmo código em um outro formulário. Só mudei os nomes, onde era cliente coloquei Produtos.
Porém, o combox aparece vazio.
Aproveitando, por favor, verifique se pode me ajudar..
Fiz o mesmo código em um outro formulário. Só mudei os nomes, onde era cliente coloquei Produtos.
Porém, o combox aparece vazio.
Posta o codigo aqui.
Tópico encerrado , respostas não são mais permitidas