Foros del Web » Soporte técnico » Ofimática »

Crear "ListView" en Access 2010

Estas en el tema de Crear "ListView" en Access 2010 en el foro de Ofimática en Foros del Web. Hola, buenas noches mis estimados. Nuevamente me gustaria pedir de su acostumbrada ayuda. Veran, actualmente estoy realizando varios programas con Access 2010, y en un ...
  #1 (permalink)  
Antiguo 26/02/2015, 17:23
 
Fecha de Ingreso: octubre-2008
Mensajes: 100
Antigüedad: 10 años, 11 meses
Puntos: 1
Pregunta Crear "ListView" en Access 2010

Hola, buenas noches mis estimados.

Nuevamente me gustaria pedir de su acostumbrada ayuda.

Veran, actualmente estoy realizando varios programas con Access 2010, y en un formulario he insertado un ListView, el cual relleno con un Sql y es a puro codigo, se los muestro a continuacion:

Código:
'-- Me coneccto a la DB de Proveedores
Dim conn
Set conn = CreateObject("ADODB.Connection")
Dim rs
Set rs = CreateObject("ADODB.Recordset")
Dim strconn As String
Dim column_header As ColumnHeader
Dim list_item As ListItem



' Create the column headers.

Set column_header = ListView1.ColumnHeaders.Add(, , "Codigo")
Set column_header = ListView1.ColumnHeaders.Add(, , "Nombre")
Set column_header = ListView1.ColumnHeaders.Add(, , "Dias")
ListView1.GridLines = True


strconn = "Driver={SQL Server};Description=sqldemo;SERVER=SERVER1;UID=xxxx;PWD=yyyy;DATABASE=DB"
'Set conn = New ADODB.Connection
conn.Open (strconn)
Set rs = conn.Execute("Select Id, Name, TERMS_NET_DAYS Credito from Vendor ORDER BY " & _
        "Id", , adCmdText)

 ' Load the data.
    Do While Not rs.EOF
       Set list_item = ListView1.ListItems.Add(, , rs!Id)
        list_item.SubItems(1) = rs!Name
        list_item.SubItems(2) = rs!Credito

        ' Get the next record.
        rs.MoveNext
    Loop

rs.Close
conn.Close
Este codigo se dispara desde un boton que he insertado en el formulario, y ejecuta lo de arriba.

He tenido varios problemas que no he podido corregir como por ejemplo:
1- No logro crear los encabezados... Aunque el codigo ahi esta.
2- Solamente logro desplegar el codigo(id) y no la demas informacion.
3- No logro agregar las lineas cuadriculadas del grid.
4- Quisiera hacerlo solamente "read" para que no lo modifiquen.

A grades rasgos esos son los problemas que he encontrado, espero me puedan ayudar al respecto.

Atte.

Etiquetas: access, listview
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:36.