Hola gente del foro, recurro a ustedes, para que me digan como puedo hacer para comprobar modificaciones en el regedit de todos sus ramales:

* HKEY_CLASSES_ROOT
* HKEY_CURRENT_USER
* HKEY_LOCAL_MACHINE
* HKEY_USERS
* HKEY_CURRENT_CONFIG

Mi intención es comprobar modificaiciones en tiempo real. Ojalá exista alguien con ideas y respuestas a mi pregunta.

Saludos

Solucionado, me autorespondo.

Public Sub rangoF(fecinicio As String, fectermino As String)
Dim fi, ft As Date
 
fi = Format(fecinicio, "dd/mm/yyyy")        ': MsgBox fi
ft = Format(fectermino, "dd/mm/yyyy")       ': MsgBox ft
 
       If rsFiltro.State = adStateOpen Then
           rsFiltro.Close
       End If
 
       SQL = "SELECT * FROM Ventas WHERE FEntrega >= '" & fi & "' And FEntrega <= '" & ft & "'"
 
       rsFiltro.Open SQL, cnn, adOpenStatic, adLockOptimistic
 
End Sub
 

Gracias a todos por su ayuda,

Salu2

Hola seba, si tengo todo echo el programa, y es un monton. estuve con xkiz
 y BlackZerox luchando pero no tuve resultados.

Llegamos hasta aqui:

Public Sub rangoF(fecinicio As String, fectermino As String)
Dim fi, ft As Date
 
fi = Format(fecinicio, "dd/mm/yyyy")        ': MsgBox fi
ft = Format(fectermino, "dd/mm/yyyy")       ': MsgBox ft
 
SQL = "SELECT * FROM Ventas WHERE FEntrega=" & fi & " And FEntrega =" & ft
rsFiltro.Open SQL, cnn, adOpenDynamic, adLockOptimistic
 
End Sub
 

Pero el RecorderSet rsFiltro prece vacio. porque al cargarlo en mi ListView no devuelve valores.

Este Modulo estoy usando para cargar datos y conectarme a la DB

Option Explicit
 
Public Declare Sub InitCommonControls Lib "comctl32" ()
 
' variables para la conexión y el recordset
''''''''''''''''''''''''''''''''''''''''''''
Public cnn          As New ADODB.Connection
Public rsVentas     As New ADODB.Recordset
Public rsFiltro     As New ADODB.Recordset      'variable que almacena las fechas filtradas
 
Public ObjItem As ListItem
 
' Conecta con la DB
Public Sub IniciarConexion()
 
       With cnn
           .CursorLocation = adUseClient
           .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                            App.Path & "\LBDATA.mdb" & ";Persist Security Info=False;Jet OLEDB:Database Password=" & "pass123"
       End With
 
End Sub
 
' Carga las tablas
Public Sub IniciarTablas()
 
      Set rsVentas = New ADODB.Recordset
      rsVentas.CursorLocation = adUseClient
      rsVentas.Open "select * from Ventas", cnn, adOpenStatic, adLockOptimistic
 
      Set rsFiltro = New ADODB.Recordset
      'rsFiltro.CursorLocation = adUseClient
      'rsFiltro.Open "select * from Ventas", cnn, adOpenStatic, adLockOptimistic
 
End Sub
 
Public Sub rangoF(fecinicio As String, fectermino As String)
Dim fi, ft As Date
 
fi = Format(fecinicio, "dd/mm/yyyy")        ': MsgBox fi
ft = Format(fectermino, "dd/mm/yyyy")       ': MsgBox ft
 
SQL = "SELECT * FROM Ventas WHERE FEntrega=" & fi & " And FEntrega =" & ft
rsFiltro.Open SQL, cnn, adOpenDynamic, adLockOptimistic
 
End Sub
 
Public Sub CargarListViewV(LV As ListView, rs As ADODB.Recordset)
 
  Dim i As Integer
 
        'limpia el LV
       LV.ListItems.Clear
 
        ' si hay registros
       If rs.RecordCount > 0 Then
 
            ' recorre el recordset
           While Not rs.EOF
                ' añade los datos
               Set ObjItem = LV.ListItems.Add(, , rs(0))
 
              'ObjItem.SubItems(0) = rs!Codigo
              'ObjItem.SubItems(1) = rs!ClienteID
              ObjItem.SubItems(1) = rs!Producto
              ObjItem.SubItems(2) = rs!fpedido
              ObjItem.SubItems(3) = rs!fentrega
              ObjItem.SubItems(4) = rs!MPago
              ObjItem.SubItems(5) = rs!Ncheque
              ObjItem.SubItems(6) = rs!MTotal
              ObjItem.SubItems(7) = rs!MPagado
              ObjItem.SubItems(8) = rs!Chofer
              ObjItem.SubItems(9) = rs!Finalizada
              ObjItem.SubItems(10) = rs!Entregada
              ObjItem.SubItems(11) = rs!ClienteID
              ObjItem.SubItems(12) = rs!FechaID
              ObjItem.SubItems(13) = rs(0)
              ObjItem.SubItems(14) = rs!Dia
              ObjItem.SubItems(15) = rs!Mes
              ObjItem.SubItems(16) = rs!Año
              ObjItem.SubItems(17) = rs!IDPago
              ObjItem.SubItems(18) = rs!Observacion
               ' siguiente registro
              rs.MoveNext
           Wend
 
End Sub
 
 
 

Y cargo los datos en el ListView asi:

Call CargarListViewV(FrmVentas.LV, rsFiltro)
 

Espero que puedas ayudarme, Saludos

Hola amigos, tengo una duda sobre como filtrar mi debe por medio de un rango de fechas, ejemplo:

 
 fi = Format(fi, "dd/mm/yyyy")
 ft = Format(ft, "dd/mm/yyyy")
 Busca = "Select * from Ventas where FEntrega between #" & fi & "# and #" & ft & "#"
 

Hasta ahi he llegado pero no logro realizar la consulta a la DB, espero q me puedan ayudar.

Saludos

Gracias BlackZeroX, pero tu funsion mezacla datos.

Public Sub filtrarango(LV As ListView, F1 As String, F2 As String, col As Integer)
 
  Dim i         As Long
  Dim Tmp       As Integer
  Dim Day1      As String
  Dim Day2      As String
  Dim dat       As String
 
1       'FILTRAR RANGO
 
2       Day1 = Mid(F1, 1, 2)
3       Day2 = Mid(F2, 1, 2)
4       'dat = Mid(F1, 3, 10)
 
6       With LV
7           Tmp = .ListItems.Count
8           For i = 1 To Tmp
9               If i > Tmp Then Exit For
10              dat = .ListItems(i).ListSubItems(col)
11              dat = Mid(dat, 1, 2)
12              If dat >= Day1 And dat <= Day2 Then
13              Else
14                  'MsgBox dat
15                  .ListItems.Remove i
16                  i = i - 1
17                  Tmp = Tmp - 1
18                  If i = Tmp Then Exit For
19              End If
20          Next i
21      End With
 
End Sub
 

Salu2 y gracias por tu ayuda.

Seguramente ya existen post de este tipo, pero quiero sacarme la duda de una funsion, aver q consejos me pueden dar para mejorarla.

Los que hace es simplemente acomodar por fecha dentro de un rango de fechas, ¿qué es esto de rango de fechas? bueno simplemente si yo especifico a Text1 20/07/2010 y al Text2 28/07/2010 y le doy click al commandobutton [Filtrar] me filtra toda la informacion q aparece en mi listview. Dejándome solamente desde la fecha 20/07/2010 hasta la fecha 28/07/2010 todos los datos, y ordenados por fecha de menor a mayor. La información q aparece en el ListView es MUCHA!    es por eso tal ves aveces me mescle algúna q otra fecha.

Modulo:

 
Public Sub ordenarLV(LV As ListView, col As Integer)
 
   Dim Formato As String, i As Long, strData() As String
 
1       'ORDENAR LISTVIEW POR FECHA DE PASADO A PRESENTE
 
2       Formato = "YYYYMMDD"
 
3       With LV
4           With .ListItems
5               For i = 1 To .Count
6                   With .Item(i).ListSubItems(col)
7                       .Tag = .Text & Chr$(0) & .Tag
8                       If IsDate(.Text) Then
9                           .Text = Format(CDate(.Text), Formato)
10                      Else
11                          .Text = ""
12                      End If
13                  End With
14              Next i
15          End With
 
16          .SortOrder = 0    '.SortOrder = (.SortOrder + 1) Mod 2 ' Mayor a menor
17          .SortKey = col
18          .Sorted = True
 
19          With .ListItems
20              For i = 1 To .Count
21                  With .Item(i).ListSubItems(col)
22                      strData = Split(.Tag, Chr$(0))
23                      .Text = strData(0)
24                      .Tag = strData(1)
25                  End With
26              Next i
27          End With
28      End With
 
End Sub
 
Public Sub filtrarango(LV As ListView, F1 As String, F2 As String, col As Integer)
 
  Dim i         As Long
  Dim Tmp       As Integer
  Dim Day1      As String
  Dim Day2      As String
  Dim dat       As String
 
1       'FILTRAR RANGO
 
2       Day1 = Mid(F1, 1, 2)
3       Day2 = Mid(F2, 1, 2)
4       'dat = Mid(F1, 3, 10)
 
6       With LV
7           Tmp = .ListItems.Count
8           For i = 1 To Tmp
9               If i > Tmp Then Exit For
10              dat = .ListItems(i).ListSubItems(col)
11              dat = Mid(dat, 1, 2)
12              If dat >= Day1 And dat <= Day2 Then
13              Else
14                  'MsgBox dat
15                  .ListItems.Remove i
16                  i = i - 1
17                  Tmp = Tmp - 1
18                  If i = Tmp Then Exit For
19              End If
20          Next i
21      End With
 
End Sub
 
 

Form:

 
Private Sub Form_Load()
    Text1.Text = "20/07/2010"
    Text2.Text = "28/07/2010"
End Sub
 
Private Sub cmdrango_Click()
    Call filtrarango(LV, Text1.Text, Text2.Text, "3")
    Call ordenarLV(LV, "3")                                                     'En la columna 3 del listview tengo las fechas.
End Sub
 
 

Espero que puedan evitar mi problema, ya q muy pocas veces me mescla las fechas. Pregunto el problema puede ser porque llamo a las 2 funsiones a la ves, y si no es ese el problema cual es?

Salu2 y gracias a todos

Hola foreros, tengo una consulta, que tal ves me la puedan solucionar. Mediante WinSock se puede acceder a una web en modo oculto, sin cargarla en ningun lado simplemente acceder, y una ves accedido eviar un msgbox "Visita Almacenada" simplemente eso, pero via winsock.

Gracias por su ayuda, saludos.

Estoy con la plataforma Win Vista, en XP SP2 anda perfecto.

SAludo y Gracias

Q' velocidad  gracias seba.

Saludos

[MDAC de microsoft] seba te molesto 1 ves mas, quiero bajar una instalacion limpia, y no la de softonic q se encuentra llena de spam, tú no tienes algun link?

Es este?:
http://www.microsoft.com/downloads/details.aspx?familyid=6C050FE3-C795-4B7D-B037-185D0506396C&displaylang=es

PD: Ahi cambie la Referencia a 2.8, y la OCX del DataReport ya la tengo y anda sim problemas hasta ahora.

Gracias por la ayuda a todos. Voy a probar y despues les comento.