Dim tRs As Recordset
Dim sBuscar As String
' Comprobar si tiene caracteres "no válidos" para ADO:
' NOTA: Replace es una función de VB6
sBuscar = " " <- la cadena k kieras buscar
sBuscar = Replace(sBuscar, "*", "%")
sBuscar = Replace(sBuscar, "?", "_")
' Formar la cadena de la consulta:
sBuscar = "Select idProducto,Tipo,Nombre From Articulos WHERE Tipo LIKE '" & sBuscar & "'Order by idProducto"
Set tRs = db.Execute(sBuscar)
With tRs
' Si no hay datos...
If (.BOF And .EOF) Then
ListView1.ListItems.Clear
Set tLi = ListView1.ListItems.Add(, , "NO TIENE NINGÚN PRODUCTO")
tLi.SubItems(1) = " -- "
Else
' Mostrar los datos hallados
ListView1.ListItems.Clear
.MoveFirst
Do While Not .EOF
Set tLi = ListView1.ListItems.Add(, , .Fields("idProducto") & "", , 1)
tLi.SubItems(1) = .Fields("Nombre") & ""
.MoveNext
Loop
End If
End With
ListView1.SetFocus
Set tRs = Nothing