Ver Mensaje Individual
  #1 (permalink)  
Antiguo 15/05/2012, 09:56
cindycpc3
 
Fecha de Ingreso: abril-2012
Ubicación: Caracas
Mensajes: 22
Antigüedad: 9 años, 2 meses
Puntos: 1
cargar desde un datapicker un listview con datos de un bd

Buenos dias colegas,

Tengo en un form un list view y un datapicker, el cual deseo que al seleccionar la fecha en el datapicker me traiga en el listview la tabla de la bse de datos justo de la fecha seleccionada, hasta los momentos esto es lo que tengo

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim sql As String
Dim i As Integer
Dim DIA


DIA = Format(DTPicker1.Value, "DD/MM/YYYY")

Label1.Caption = USUARIO_ACTUAL_NAME

' Eliminar las cabeceras
Lst_consulta_sms.ColumnHeaders.Clear
'
' Asignar las cabeceras

With Lst_consulta_sms.ColumnHeaders.Add(, , "status", 1500)

End With
With Lst_consulta_sms.ColumnHeaders.Add(, , "Emisor", 500)

End With
With Lst_consulta_sms.ColumnHeaders.Add(, , "Nombre", 2000)

End With
With Lst_consulta_sms.ColumnHeaders.Add(, , "Telefono", 2400)

End With

With Lst_consulta_sms.ColumnHeaders.Add(, , "Mensaje", 2400, lvwColumnRight)

End With
With Lst_consulta_sms.ColumnHeaders.Add(, , "Fecha", 2400, lvwColumnRight)

End With
With Lst_consulta_sms.ColumnHeaders.Add(, , "Hora", 2400, lvwColumnRight)

End With
With Lst_consulta_sms.ColumnHeaders.Add(, , "Maquina", 1000, lvwColumnRight)

End With


TIPO_EVENTO = 1

g_db.Open "driver={SQL Server};server=SERVIDOR2;uid=profit;pwd=profit;dat abase=Prueba1"

'-- llena el combo de Usuarios
sql = "select Status_envio, Emisor, persona_envio, Numeros_envio, Texto_envio, fecha_envio, hora_envio, pc from persona_enviados "


sqlfilter = "fecha_envio = convert(datetime,' " & DIA & " ', 103)"

If Len(sqlfilter) > 0 Then sqlfilter = " where " & sqlfilter '& " Order by ID "
'-- ejecuta la consulta
sql = sql & sqlfilter
rs.Open sql, g_db, adOpenKeyset



''' SE RECORRE
Do While Not rs.EOF

If Not IsNull(rs.Fields.Item(0).Value) Then


With Lst_consulta_sms.ListItems.Add(, , rs.Fields.Item(0).Value)
' Cada subitem debe corresponder con cada una de las cabeceras
' la segunda cabecera es el Subitems(1) y así sucesivamente
.SubItems(1) = rs.Fields.Item(1).Value
.SubItems(2) = rs.Fields.Item(2).Value
.SubItems(3) = rs.Fields.Item(3).Value
.SubItems(4) = rs.Fields.Item(4).Value
.SubItems(5) = rs.Fields.Item(5).Value
.SubItems(6) = rs.Fields.Item(6).Value
.SubItems(7) = rs.Fields.Item(7).Value

End With
End If

rs.MoveNext
Loop


rs.Close

g_db.Close

End Sub

El listview se carga muy bien es solo que ahora al implementar el datapicker me da un error en el rs.open sql, g_db que realmente no lo logro ver, me dice lo siguiente el controlador ODBC no admite las propiedades solicitadas.

Gracias de Antemano