ROTINA DE BUSCA

USUARIO.EXCLUIDOS 15/07/2004 10:33:11
#33649
Olá d novo!
Tipo, fiz a seguinte rotina de busca:
Private Sub txtBusca_Change()
Dim palavra As String
On Error GoTo trataerro
Dim rs As New ADODB.Recordset
Lstmost.Clear
rs.Open "SELECT * FROM clientes2 WHERE nome LIKE '%" & txtBusca.Text & "%' ", bd, adOpenDynamic
While Not (rs.EOF)
palavra = Format(rs![Nome], ">")
Lstmost.AddItem (Format(rs![cod], "00000") & " - " & palavra)
rs.MoveNext
Wend
rs.Close
trataerro:
If Err.Number = 3021 Then
Resume Next
End If
End Sub

Isso ae está no evento change de um text, e sua função é mostra na list somente os nomes que contêm(like) o que é digitado no text. Funciona perfeitamente, porém, se por exemplo eu digitar S no text, vai aparece na list, por exemplo, o nome Carlos, pq tem um S na palavra, mas eu gostaria que soh aparecessem os que tem S como primeira letra do nome. Podem me ajuda? Vlw!
USUARIO.EXCLUIDOS 15/07/2004 10:41:36
#33656 Resposta escolhida
Mude para

Olá d novo!
Tipo, fiz a seguinte rotina de busca:
Private Sub txtBusca_Change()
Dim palavra As String
On Error GoTo trataerro
Dim rs As New ADODB.Recordset
Lstmost.Clear
rs.Open "SELECT * FROM clientes2 WHERE nome LIKE '" & txtBusca.Text & "%' ", bd, adOpenDynamic
While Not (rs.EOF)
palavra = Format(rs![Nome], ">")
Lstmost.AddItem (Format(rs![cod], "00000") & " - " & palavra)
rs.MoveNext
Wend
rs.Close
trataerro:
If Err.Number = 3021 Then
Resume Next
End If
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar