¿Cómo agregar un control de vista de lista usando el código VB6.0? ¿Hay una reunión? Por favor dame un consejo. Es urgente.

Adodc4. ¿Cadena de conexión? =?"Provider=Microsoft.Jet.OLEDB.4.0Data?Source="? +?Aplicación. ¿camino? +?"/db .mdb;jet?oledb:database?password=8712 "

Adodc4. ¿Fuente del registro? =?"Seleccionar?*?¿Desde dónde? Tabla de usuarios"

Adodc4. Refréscate

¿Y si? ¿No es así? Adodc4. Conjunto de registros.EOF? Luego

Vista de lista 1. Listar elementos. ¿Borrar

configuración? Vista de lista 1. ¿Pequeño icono? =?ImageList1

¿Atenuado? ¿yo? ¿Como? ¿Entero

l? =?0

¿Para qué? ¿I? =?0?¿Adónde ir? Adodc4. Conjunto de registros.RecordCount? -?1

¿Y si? Adodc4. Recordset.Field ("Estado del servicio")? =?0?Entonces

Vista de lista 1. ListItems.Agregar? ,?,?Adodc4. Recordset.Fields("Número de trabajo"),? 0,?三

Otro

Si? Adodc4. Recordset.Field ("Estado de inicio de sesión")? =?0?Entonces

Vista de lista 1. ListItems.Agregar? ,?,?Adodc4. Recordset.Fields("Número de trabajo"),? 0,?2

Otro

Vista de lista 1. ListItems.Agregar? ,?,?Adodc4. Recordset.Fields("Número de trabajo"),? 0,?1

¿Fin? Si

¿Finalizar? ¿Y si

yo? =?l? +?1

Adodc4. Recordset.MoveNext

¿Siguiente? Yo

¿Terminar? si