FILTRAR DADOS NO BD EM VB.NET

COQUITO 29/12/2014 04:03:35
#443453
olá galera.

solicito ajuda de vocês referente a consulta em vb.net nao estou conseguindo consultar. ja fiz de tudo mais até ainda nao consegui achar a solução ao problema que esta ocorrendo.
estou querendo fazendo o filtro de 2 colunas que carregue no combobox[as colunas sao codigo e produto] que seja recebido os dados no textebox conforme a seleção do combobox. segue minhas declarações. mais porem ele está apresentando este erro conforme a imagem....alguem tem uma ideia para conseguir solucionar?

desde já agradeço o apoio.

Private Sub BUSCAR()
Try

Dim CmdSqlBuscaRegistro As String = [Ô]SELECT * FROM T_cadastro WHERE [Ô] & ComboBox1.Text & [Ô] LIKE [ô]%[Ô] & TextBox1.Text & [Ô]%[ô][Ô]

With Cmd
.CommandType = CommandType.Text
.CommandText = CmdSqlBuscaRegistro
.Connection = Cn
End With
With Da
.SelectCommand = Cmd
Dt = New DataTable
.Fill(Dt)
T_cadastroDataGridView.DataSource = Dt
End With
Catch ex As Exception
MsgBox([Ô]Não foram encontrados registros com este parâmetro.[Ô])
End Try

End Sub
TUNUSAT 29/12/2014 11:31:43
#443457
ARIMUYA,

Observei algo interessante (mas pode ser que não seja isto...).
Citação:

[Ô]as colunas sao [txt-color=#e80000]codigo [/txt-color]e produto[Ô]



Okay, mas tem como você pegar o resultado de [Ô]CmdSqlBuscaRegistro[Ô] depois dele preencher e antes dele disparar a consulta?
Depois de pegar coloque-o dentro do SQL Server Manager Studio (SSMS). Dipare-o lá e veja se funciona.

Motivo: acho que o campo [Ô]código[Ô] está sendo preenchido com acento e não pode ... tem que ser [Ô]codigo[Ô] (isto depende de como você criou os nomes dos campos da tabela também...).

[][ô]s,
Tunusat.
WEBMASTER 29/12/2014 11:59:57
#443458
Voce colocou o nome do campo na tabela com acento mesmo ?
COQUITO 29/12/2014 13:59:08
#443460
TUNUSAT

o meu banco de dados é esse, agora o campo rno_produto e nome_produto é representado no combobox por código e produto neste caso quando eu for selecionar código automaticamente ele ira acionar o campo rno_produto igual que Produto.
OMAR2011 29/12/2014 14:20:24
#443461
Eu vou na primeira mensagem do post.
Dim CmdSqlBuscaRegistro As String = [Ô]SELECT * FROM T_cadastro WHERE [Ô] & ComboBox1.Text & [Ô] LIKE [ô]%[Ô] & TextBox1.Text & [Ô]%[ô][Ô]
Onde está a procura na tabela.E o campo da tabela para procura.
Para mim está faltando o campo da tabela para o select.
COQUITO 29/12/2014 15:10:45
#443463
Omar.

está claramente que o select *from está chamado a tabela(t_cadastro) where é a busca pelo campo, estou substituindo uma referencia por objeto....
TUNUSAT 29/12/2014 15:40:37
#443465
Mas ARIMUYA,

Desculpe, não entendi...
.. onde ele substitui este nome [Ô]Código[Ô] por [Ô]rno_produto[Ô]?!?

Ele está pegando [Ô]ComboBox1.Text[Ô] ... certo?

-----------------------------------------------
ComboBox.Text Property
http://msdn.microsoft.com/pt-br/library/system.windows.forms.combobox.text(v=vs.110).aspx
-----------------------------------------------

... isto deve retornar [Ô]Código[Ô] (pelo que mostra na tela).

Por exemplo:
[Ô]SELECT * FROM   T_cadastro WHERE [Ô] & ComboBox1.Text & [Ô] LIKE [ô]%[Ô] & TextBox1.Text & [Ô]%[ô][Ô]


Teria que escrever isto dentro da variável [Ô]CmdSqlBuscaRegistro[Ô]:
[Ô]SELECT * FROM   T_cadastro WHERE rno_produto LIKE [ô]%2%[ô][Ô]


Mas eu acho que está escrevendo isto:
[Ô]SELECT * FROM   T_cadastro WHERE Código LIKE [ô]%2%[ô][Ô]



[][ô]s,
Tunusat.
OMAR2011 29/12/2014 17:18:54
#443472
Tenho que dar o braço a torcer.
Não tenho hábito de usar desta forma.
Funcionou.
Usei um tabela do Firebird.
Dim STRSQL As String = [Ô]SELECT * FROM Tblestoque WHERE [Ô] & ComboBox1.Text & [Ô] LIKE [ô]%[Ô] & TextBox1.Text & [Ô]%[ô][Ô]
Combobox ,tem o nome do campo.
TextBox1.Text , tem o código do produto.
Certimmmmm.
NICKOSOFT 29/12/2014 17:22:04
#443473 Resposta escolhida
nao sei como explicar, vou passar por cima e vc da uma olhada na net como fazer......
veja esse artigo no site do macoratti, veja a parte onde preenche o combo com uma estrutura.....
http://www.macoratti.net/vbn_cbo.htm
da pra entender q nessa parte
.Add(New Regioes([Ô]Centro[Ô], 1))
.Add(New Regioes([Ô]Oeste[Ô], 2))
vc vai colocar o q sera mostrado, e onde esta 1 e 2 vc vai colocar o nome real do campo no banco de dados....
no seu select vc onde quer passar o campo da tabela vai usar o Combo.SelectedValue, entao isso passa a parte dos numeros ali, vai passar o nome real do campo....
acho q vai dar uma clareada no horizonte...
so me pegou agora q nao tenho certeza se o value aceita string
COQUITO 30/12/2014 19:41:08
#443486
Citação:

:
Tenho que dar o braço a torcer.
Não tenho hábito de usar desta forma.
Funcionou.
Usei um tabela do Firebird.
Dim STRSQL As String = [Ô]SELECT * FROM Tblestoque WHERE [Ô] & ComboBox1.Text & [Ô] LIKE [ô]%[Ô] & TextBox1.Text & [Ô]%[ô][Ô]
Combobox ,tem o nome do campo.
TextBox1.Text , tem o código do produto.
Certimmmmm.



deixa tentar amigao, ja vejo o que ele ira a apresentar.
NICKOSOFT 31/12/2014 08:37:49
#443490
nao tem o q chorar, fiz aqui pra ver qual era a dificuldade, entao toma, prontinho.....
  
    Private Sub frmApresentacao_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        [ô]vincula uma lista de vetores com base na estrutura definida em Regiao
        Dim valores As New ArrayList()
        [ô]insere a estrutura da regiao no vetor
        [ô]campo rno_produto e nome_produto é representado no combobox por código e produto neste caso 
        With valores
            .Add(New ExibeCombo([Ô]Selecionar...[Ô], [Ô][Ô]))
            .Add(New ExibeCombo([Ô]Código[Ô], [Ô]rno_produto[Ô]))
            .Add(New ExibeCombo([Ô]Produto[Ô], [Ô]nome_produto[Ô]))
        End With
        [ô]vincula o vetor ao controle Combo Box
        With ComboBox1
            .DataSource = valores
            .DisplayMember = [Ô]getMostra[Ô]
            .ValueMember = [Ô]getValor[Ô]
        End With

        ComboBox1.SelectedIndex = 0
    End Sub

    Private Sub ComboBox1_LostFocus(sender As Object, e As EventArgs) Handles ComboBox1.LostFocus
        MessageBox.Show(CType(ComboBox1.SelectedValue, String))
    End Sub

    [ô]define uma estrutura para as regioes com nome e identificador id 
    Protected Structure ExibeCombo
        Private TextoMostrado As String
        Private CampoBD As String

        Public Sub New(ByVal exibe As String, ByVal valor As String)
            TextoMostrado = exibe
            CampoBD = valor
        End Sub

        Public ReadOnly Property getMostra() As String
            Get
                Return TextoMostrado
            End Get
        End Property

        Public ReadOnly Property getValor() As String
            Get
                Return CampoBD
            End Get
        End Property
    End Structure
Tópico encerrado , respostas não são mais permitidas
Voltar