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.