23/12/2008, 06:19
|
| | | Fecha de Ingreso: diciembre-2008 Ubicación: Gral. Roca - Río Negro
Mensajes: 34
Antigüedad: 15 años, 5 meses Puntos: 1 | |
| Respuesta: MsFlexgrid
Solo cargo la denominación del puesto, el código este..
Dim rs As New ADODB.Recordset
rs.Open "select denominacion from puestos ", con, adOpenKeyset, adLockOptimistic, adCmdText
lista.Rows = 1
lista.Cols = 1
lista.TextMatrix(0, 0) = "DENOMINACIÓN"
While Not rs.EOF
lista.Rows = lista.Rows + 1
lista.TextMatrix(lista.Rows - 1, 0) = rs!denominacion
rs.MoveNext
Wend
rs.Close |