¿Cómo utilizar listview para mostrar datos en una base de datos SQL en VB.NET? ¿Puedes darme un ejemplo completo? Gracias

Función de conexión de base de datos, en la que mysql (declaración de conexión del conjunto de datos), sqlip (IP del servidor SQL) y RS MOD (modo de apertura de base de datos) son valores dinámicos.

La función pública myRs (ByVal mySQL es String, ByVal sqlIP es String, ByVal rsMod es Integer) es ADODB. Conjunto de registros

Atenúe myConn como nuevo ADODB. Relación

si myConn. Entonces Estado = 1

myConn. close()

finalizará si...

si rs. Entonces Estado = 1

rs. Close()

Finaliza si...

myConn. ConnectionString = " Proveedor = SQL oledb; servidor = " ampsqlIP amp"; uid = sapwd = " base de datos = escuela"

myConn. open()

rs. Abrir (mySQL, myConn, 1, rsMod)

Rupia malaya = Rupia

Función final

Función de visualización del contenido de la lista, que puede mostrar dos subelementos.

Función pública booleana addLst()

Pascua. clear()

mySql = "select * from sqlusers "

rs = myRs(mySql, sqlIP, 1)

Pascua. ver = ver. Detalles

Etiqueta I como un número entero

Si rs. Campos. Cuente gt y luego 0

Agregar elemento de encabezado de columna del cuadro de lista

Para i = 1 a rs. campo. Conde

Semana Santa. Lista. add(rs. item(i - 1). name)

Luego

Agregar contenido de datos del cuadro de lista

Si rs. RecordCount gt luego 0

rs. move-first()

Para i = 1 a rs. Conteo de Registros

Semana Santa. Items.Add(rs("username").value)

Lstuser.items.item (I-1). subitems.add(RS("contraseña").value)

Lstuser.items.item(I-1). Subitems.add(RS("UserType").value)

rs. MoveNext()

Entonces

Si... terminará

Finalizar función

Lo anterior es lo que acabo de escribir, y la depuración pasó. Espero que te sea útil.