PESQUISA PELO NOME

ELMO01 15/04/2011 15:10:24
#371469
Boa tarde pessoal

Estou tentando fazer uma pesquisa pelo nome do cliente, só que está dando erro. O abaixo código que estou fazendo:


Txt_AssNom = TextBox


Private Sub Txt_AssNom_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Txt_AssNom.KeyDown
If e.KeyCode = Keys.Enter Then
If Txt_AssNom.Text <> [Ô][Ô] Then
StrProc = [Ô]Server=[Ô] & Servidor & [Ô];User id=[Ô] & Usuarios & [Ô];password=[Ô] & Senhas & [Ô];database=[Ô] & Bancos & [Ô];[Ô]
If IsNumeric(Txt_AssNom.Text) Then
If Len(Txt_AssNom.Text) <= 6 Then Txt_AssNom.Text = FormataZerosEsq(Txt_AssNom.Text, 6)
[ô] Pesquisa pela Matrícula
ValProc = [Ô]SELECT * FROM associados where matricula_associado = [ô][Ô] & Txt_AssNom.Text & [Ô][ô][Ô]
Else
[ô] Pesquisa pelo nome
ValProc = [Ô]SELECT * FROM associados like nome_razao_social = [ô][Ô] & Txt_AssNom.Text & [Ô][ô][Ô]
End If

Dim NewListas As New ListViewItem
Dim Conn As New MySqlConnection(StrAssoc)
Dim Cmd As New MySqlCommand(ValProc, Conn)

Conn.Open()
Ls = Cmd.ExecuteReader

ListView1.Items.Clear()
ListView1.View = View.Details
ListView1.FullRowSelect = True

If Ls.Read Then
NewListas = ListView1.Items.Add(Ls.Item([Ô]matricula_associado[Ô]).ToString)
NewListas.SubItems.Add(Ls.Item([Ô]nome_razao_social[Ô]).ToString)
NewListas.SubItems.Add(Ls.Item([Ô]id_tipo_categoria_associado[Ô]).ToString)
End If
Else
Lista_Dados_Associados()
End If
End If
End Sub

O que está de errado neste código??

Obrigado,
JONATHANSTECKER 15/04/2011 15:14:58
#371471 Resposta escolhida
Tente assim.:
ValProc = [Ô]SELECT * FROM associados WHERE nome_razao_social LIKE [ô]%[Ô] & Txt_AssNom.Text & [Ô]%[ô][Ô]
ELMO01 18/04/2011 13:35:46
#371699
Jonatha - deu certo mt obrigado pela dica
Tópico encerrado , respostas não são mais permitidas
Voltar