Comparacion de una cadena de caracteres

Paola
03 de Marzo del 2005
Hola chavos
Como le hago para que la momento de hacer una busqueda de un cliente el sistema pueda hacer la comparacion de caracteres y si son iguales me muestre los demas datos del registro

bezael
03 de Marzo del 2005
Hola, tu pregunta es poco explicita pero creo que entiendo.
supongamos que tienes una Tabla que se llama CLIENTES, Y en esa tabla un campo que se llama NOMBRE. Los resultados de la busqueda los muestra en un ListView( lo puedes sustituir por lo que quieres)
--------------------------------------------------------------------
Ruta_Base = App.Path & "AQUI EL NOMBRE DE TU BASE DE DATOS"
DIM Ruta_Base As String
DIM sBuscaR As String
DIM tLi As ListItem
DIM RsT As New ADODB.Recordset
DIM CnN As ADODB.Connection


Set RsT = New Recordset
Set CnN = New Connection
With CnN
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Ruta_Base & ";"
.Open
End With



sBuscaR = "SELECT * FROM Clientes WHERE NOMBRE LIKE '" & sBuscaR & "%' ORDER BY NOMBRE"
Set RsT = CnN.Execute(sBuscaR)

If (RsT.BOF And RsT.EOF) Then
MsgBox "No Se Han Encontrado Los Datos "
Exit Sub
Else
RsT.MoveFirst
Do While Not RsT.EOF
Set tLi = ListView1.ListItems.Add(, , RsT.Fields("NOMBRE") & "")
tLi.SubItems(1) = RsT.Fields("DIRECCION") & ""
tLi.SubItems(2) = RsT.Fields("TELEFONO") & ""
RsT.MoveNext
Loop
--------------------------------------------------
SI NO ENTIENDES ALGO ENVIAME UN MAIL.