Programación General > Visual Basic 6.0 e inferiores

 Ayuda Con El Listview

(1/1)

az8:
ESTOY HACIENDO UNA PANTALLA DE CONSULTAS PARA  UN TRABAJO DE MI ESCUELA, Y KIERO USAR UN LISTVIEW..... USO UNA CONEXION A SQL, Y NO SE COMO MANDAR LOS DATOS DE MI T ABAL AL LISTVIEW HE VISTO ALGUNOS EJEMPLOS EN INTERNET PERO LA VERDAD ESTAN ALGO COMPLICADOS Y NO KIERO TAN DIFICILES DE ENTENDER......  Y LO KE KIERO ES KE ME MUESTRE LOS RESULTADOS DE CUALKIER TIPO DE BUSKEDA EN EL LISTVIEW...PERO KIERO KE AL REALIZAR UNA NUEVA BUSKEDA, EL LISTVIEW SE LIMPIE PARA KE EL NUEVO RESULTADO DE LA BUSKEDA APARESCA, Y EN CASO CONTRARIO K NO HAYA NINGUN RESULTADO KE MANDE UN MENSAJE DE"NO HAY REGISTROS"

OTRA COSA ....CUANDO SE DE DOBLE CLICK EN CUALKIER REGISTRO KE ME MANDE A UN FORMULARIO PARA EDITAR EL REGISTRO  SELECCIONADO PERO NO SE COMO PASAR LOS VALORES AL OTRO FORMULARIO

POR SU AYUDA GRACIAS
ATE AZ8

toten:
hijo tu lo que quierres es petroleo en polvo!!!!! jejejejejejejeje  :rolleyes:


 B) vamos a ver en que te ayudamos !!!!!!   :D

dame una hora y te envio la solucion que estoy ocupado

_vgt_:
todo en uno xD  B)


--- Código: Text --- Dim tRs As RecordsetDim sBuscar As String ' Comprobar si tiene caracteres "no válidos" para ADO:' NOTA: Replace es una función de VB6sBuscar = " " <- 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   
como te imaginaras el listview1.listitems.clear borra todos los elementos del list...
Para pasar parametros de entre varios forms yo lo haria asi:
    frmOtroFormulario.Text1.text = tRs.fields("Nombre")
asi paso el campo nombre del recordset tRs a la caja de texto Text1 del formulario frmOtroFormulario....

Saludos !!   :hola:

Navegación

[0] Índice de Mensajes