| 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 |