CONSULTA

 Tópico anterior Próximo tópico Novo tópico

CONSULTA

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#392920 - 11/01/2012 08:28:51

JEFFERMARTINS
SAO PAULO
Cadast. em:Julho/2010


Bom dia!

Estou realizando um rotina de COnsulta no BD, atraves de uma Combox, onde aparecem os nome Cadastrados.
Porm, ao clicar no Botao (Consulta), aparece a mensagem:   []Nenhum valor foi fornecido par aum ou mais parametros necessrios[]

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





Resposta escolhida #392923 - 11/01/2012 09:01:05

GUIMORAES
ITAPETININGA
Cadast. em:Agosto/2009


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 & [][]

Abraos





#392929 - 11/01/2012 09:38:54

JEFFERMARTINS
SAO PAULO
Cadast. em:Julho/2010


Bom dia!

Obrigado pela ajuda. Funcionou perfeitamente.

Essas  []  ainda me mata..rs

Vlw
Abrao.



#392950 - 11/01/2012 11:43:14

JEFFERMARTINS
SAO PAULO
Cadast. em:Julho/2010


Ola GuiMoraes123, Bom dia!

Aproveitando, por favor, verifique se pode me ajudar..

Fiz o mesmo cdigo em um outro formulrio. S mudei os nomes, onde era cliente coloquei Produtos.
Porm, o combox aparece vazio.




#392954 - 11/01/2012 13:50:56

GUIMORAES
ITAPETININGA
Cadast. em:Agosto/2009


Posta o codigo aqui.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por JEFFERMARTINS em 28/11/2012 14:47:36