Visual Basic - mostrar datos a un ListView

Life is soft - evento anual de software empresarial
   
Vista:

mostrar datos a un ListView

Publicado por Nicole (2 intervenciones) el 14/08/2008 23:38:29
Hola a todos, si alguien me pudiera ayudar con esto se lo agradeceria.

Estoy trabajando con Visual Basic 6.0 cn ADO 2.7

En mi formulario tengo un ListView, un TextBox y un Command....necesito que al presionar el Command me haga la busqueda del texto en el TextBox en el Campo2 de mi tabla y cuando lo encuentre lo muestre en el ListView.
Todo esto funciona super bien, pero lo que yo necesito es que si yo anoto en el TextBox una F me muestre en el ListView todos los datos que comiencen con F en ese Campo.

Este es el código que tengo

Option Explicit
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

--------------------------------

Private Sub Form_Load()

cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "bd1.mdb"
cn.Open
rs.Open "select * from Tabla", cn, adLockOptimistic
With ListView1
.View = lvwReport
.GridLines = True
.LabelEdit = lvwManual

.ColumnHeaders.Add , , "Campo1", 2300
.ColumnHeaders.Add , , "Campo2", 2700
.ColumnHeaders.Add , , "Campo3", 1500, lvwColumnRight
.ColumnHeaders.Add , , "Campo4", 2700
.ColumnHeaders.Add , , "Campo5", 1500, lvwColumnRight

End With
rs.MoveFirst

End Sub

-----------------------------------------

Private Sub Command2_Click()
Dim tLi As ListItem
ListView1.ListItems.Clear
rs.MoveFirst

Do While rs.EOF = False
If rs!Campo2 = Text1 Then
Set tLi = ListView1.ListItems.Add(, , rs.Fields("Campo1") & "")
tLi.SubItems(1) = rs.Fields("Campo2") & ""
tLi.SubItems(2) = rs.Fields("Campo3") & ""
tLi.SubItems(3) = rs.Fields("Campo4") & ""
tLi.SubItems(4) = rs.Fields("Campo5") & ""
End If
rs.MoveNext
Loop
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:mostrar datos a un ListView

Publicado por pacopaz (173 intervenciones) el 15/08/2008 00:44:14
Puedes probar modificando el if de tu Command2 de la siguiente manera:

If Left(rs!Campo2, Len(Text1)) = Text1 Then

Así, solo comparará lo que tengas en el text1 con la primera parte del campo2, con la misma cantidad de letras.

Espero que te sirva.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:mostrar datos a un ListView

Publicado por Nicole (2 intervenciones) el 15/08/2008 02:17:20
Muchas gracias, me fue de mucha utilizar y solucioné mi problema. Te lo agradezco
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar