Listview VB 6 y Sql 2000

Amigo una pregunta como puedo hacer para cargar en un listview de VB 6.0 una tabla de SQL 2000.
La consulta sql seria algo como:
sql = "SELECT * FROM CALIDAD_PLANTILLA WHERE plantilla = '" & plantillas & "' "
El problema ahora es llenar el Listview los campos que tengo en la tabla y debo mostrar son:
ID, topico, subtopico, valor, ¿calific
tendras alguna idea de como hacerlo?

1 Respuesta

Respuesta
1
Sub Config_List()
    With Listview1
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
        .LabelEdit = lvwManual
        .MultiSelect = True
        .HideSelection = False
    End With
End Sub
Esto lo pones en el form_load para configurar en que forma se mostrara la lista
para los encabezados lo haces de la siguiente manera
Sub Config_Datos()
    With Listview1.ColumnHeaders.Add(, , "ID")
        .Tag = cTexto
    End With
    With Listview1.ColumnHeaders.Add(, , "Topico")
        .Tag = cTexto
    End With
    With Listview1.ColumnHeaders.Add(, , "Subtopico")
        .Tag = cTexto
    End With
End Sub
Y así cuantos encabezados quieras, eso es una parte ahora para llegar al resultado que quieres, lo explico ahora:
Primero limpiamos la lista así:
Listview1. ListItems. Clear
Segun la query que tienes ahi:
Debes abrir el recorset de la siguiente manera.
Rs. Open sql, cn, adOpenKeyset, adLockOptimistic
****cn es la conexion que tienes****
Ahora para cargar los datos al listview hacemos los siguiente y es de la manera que lo hago siempre.
utilizamos un while
While Not RecSql.EOF
        With ListView1.ListItems.Add(, , rs.Fields("ID").value)
            If rs.Fields("topico").value <> "" Then
                .SubItems(1) = rs.Fields("topico").value
            Else
                .SubItems(1) = ""
            End If
            If rs.Fields("subtopico").value <> "" Then
                .SubItems(2) = rs.Fields("subtopico").value
            Else
                .SubItems(2) = ""
            End If
        End With
        If Not rs.EOF Then
            RecSql.MoveNext
        End If
    Wend
Rs. Close
Set rs = Nothing
Y eso así veras la consulta que hiciste, cuéntame como te va con eso, y anotame en msn para aclarar las dudas que tengas, mi msn es [email protected]
Amigo Excelente respuesta entendí a la perfección que es lo más importante y que lo aprendí a usar y a aplicar el listview :D aun me quedan unas dudas pequeñas como ocultar una columna.. bueno sera para una prox ocasión... ya te agregue al msn saludos desde Maracaibo/Venezuela

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

DRAG & DROP en el mismo formulario

Tengo un problema al mandar filas completas de un listview a otro, estoy haciendo un drag-drop, pero al arrastrar la(s) filas del listview1 al listview2, solo me copia o me manda la los datos de la primera columna, y lo que yo necesito es poder...
1 respuesta

Filtrar datos en ListView

Espero que me puedas dar una mano con un problema que tengo. Estoy queriendo llenar un Listview desde un recordset (ADO), mirando un código fuente he podido cargar todos los registros del Recordset en el List, pero mi problema es que solo quiero...
2 respuestas

Agregar registros de mi BD access a un listview

Espero me la brindes... Yo necesito agregar todos los registros de me base de datos access a un listview, apenas tengo 8 registros y solo tengo una tabla que se llama (usuario) y que contiene solo 2 campos llamados (usuario) y (apellido). Este es mi...
1 respuesta

Agregar datos en SubItem en un ListView

Tengo un listView de dos columnas, la columna 1 la cargo con datos con un Command Buttom. Ahora Como puedo agregar datos en la columna 2 (SubItem), los datos los debo agregar desde un TextBox uno a uno hacia abajo. Este seria Mi listView COLUMNA1...
1 respuesta

TextBox

Lo que pasa es que estoy creando un programa para entregar en la Universidad como trabajo de grados, en él tengo que imprimir mucha información en un parte donde hay un glosario. Primero estaba poniendo la palabra en un label y al frente la...
1 respuesta

¿Cómo añadir de un comboBox a un listview?

¿Me podes ayudar? Tengo 1combobox que cdo selecciono algo en el, me lo debe mostrar en el listview... Lo del combo lo traigo de una tabla y lo que me debe mostrar en el LVW es de otra.. Y me trae todo lo de la tabla, pero si selecciono otro item del...
1 respuesta

Columnas repetidas en lisview1

Estoy usando Ado y trabajando con el ejemplo de la base de datos Biblio.mdb que viene con visual basic. Deseo que se muestren en un listview1 los datos de la consulta que hago en un select y esto lo hace bien y muestra los datos en el listview1, pero...
1 respuesta

Extraer de textbox a celda excel

Quisiera que me ayudaras a encontrar una solución a mi problema, he buscado por varias páginas de internet y no he encontrado lo que realmente busco, mi caso es el siguiente: estoy trabajando en visual basic 6 en un proyecto para mi escuela sobre...
1 respuesta

De listview a listview

Molestando de nuevo.. ¿Ja cómo debe ser la función para pasar un elemento de un LVW a otro con un botón asignar? Este código tengo pero me da error... Me dice que el indice esta fuera de los términos...
1 respuesta

Pasar elementos de un listview a otro listview VB6

Holiiiisss..! ¿Cómo debe ser la función para que pasar un elemento de un LVW a otro con un botón asignar? Este código tengo pero me da error... Me dice que el indice esta fuera de los términos...
1 respuesta