CONSULTA COM SQL

PERCIFILHO 02/08/2010 09:45:39
#349120
Valeu pela ajuda, mas assim também não dá Parreira.
[ô][Ô] & letra1% & [Ô][ô] -> não funciona, a sintaxe está incorreta.
não deveria ser [ô][Ô] & letra1 & [Ô]%[ô]

Quando escrevi aqui, passei três parametros na sub, mas são apenas dois:

A sub está assim:

Private Sub PesquisaAgenda(ByVal letra1 As String, ByVal letra2 As String)
Dim daagenda = New OleDbDataAdapter([Ô]Select * From Clientes Where nome Like [ô][Ô] & letra1 & [Ô]%[ô] Or nome Like [ô][Ô] & letra2 & [Ô]%[ô] Order by nome[Ô], conexao)
Dim dsagenda As New DataSet
If conexao.State = ConnectionState.Closed Then
conexao.Close()
End If
conexao.Open()
daagenda.Fill(dsagenda, [Ô]Clientes[Ô])
[ô]limpa os itens do listview
LstAgenda.Items.Clear()
Dim i As Integer
[ô]percorre a tabela pedidos e preenche o listview
For i = 0 To dsagenda.Tables([Ô]Clientes[Ô]).Rows.Count - 1
LstAgenda.Items.Add(dsagenda.Tables([Ô]Clientes[Ô]).Rows(i)([Ô]nome[Ô]))
LstAgenda.Items(i).SubItems.Add(dsagenda.Tables([Ô]Clientes[Ô]).Rows(i)([Ô]telefone[Ô]))
Next
conexao.Close()
End Sub

Para chamar a sub:

Private Sub TabControl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.Click
If TabIndex = 0 Then
Call PesquisaClientes([Ô]A[Ô], [Ô]B[Ô])
End If
end sub

Tudo bem que é VB.Net, mas comando sql é tudo igual, né? Funciona tanto com VB 6 como .Net

Continuo tentando....

Até mais.
PARREIRA 02/08/2010 11:06:41
#349127
VB.Net tem diferença do VB6.
O sistema ja não é o mesmo!
MARCELO.TREZE 02/08/2010 11:42:12
#349131 Resposta escolhida
um POG

Private Sub PesquisaAgenda(ByVal letra1 As String, ByVal letra2 As String)
Dim Letras(2) As String
Letras(0) = letra1
Letras(1) = letra2

LstAgenda.Items.Clear()

For F = 0 To 1
       Dim daagenda = New OleDbDataAdapter([Ô]Select * From Clientes Where nome Like [ô][Ô] & letras(F) & [Ô]%[ô] Order by nome[Ô], conexao)
        Dim dsagenda As New DataSet
        If conexao.State = ConnectionState.Closed Then
            conexao.Close()
        End If
        conexao.Open()
        daagenda.Fill(dsagenda, [Ô]Clientes[Ô])
        [ô]limpa os itens do listview
        
        Dim i As Integer
        [ô]percorre a tabela pedidos e preenche o listview
        For i = 0 To dsagenda.Tables([Ô]Clientes[Ô]).Rows.Count - 1
            LstAgenda.Items.Add(dsagenda.Tables([Ô]Clientes[Ô]).Rows(i)([Ô]nome[Ô]))
            LstAgenda.Items(i).SubItems.Add(dsagenda.Tables([Ô]Clientes[Ô]).Rows(i)([Ô]telefone[Ô]))
        Next
        conexao.Close()
Next F
End Sub



veja se funciona
FOXMAN 02/08/2010 12:36:48
#349135
Se for Mysql a base dessa questão é :

select * from tabela where nome like [ô]b%[ô] or nome like [ô]c%[ô];


Já vi um monte de respostas corretas e o erro ainda persiste.

Agora QUAL é O ERRO ?!!!!

Se você pegar essa Instrução que passei acima ela retorna resultados ?????
PERCIFILHO 02/08/2010 12:48:16
#349137
Cara, esse Marcelo Treze é demais. Acertou na mosca. Agora sim, está resolvido.
Muito obrigado a todos que postaram. Quando surgir mais alguma dúvida, estarei aqui novamente.

Até mais.
Página 2 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar