Mensajes

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.

Código (vb) [Seleccionar] Expandir


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:

Código (vb) [Seleccionar] Expandir


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

Código (vb) [Seleccionar] Expandir


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:

Código (vb) [Seleccionar] Expandir


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:

Código (vb) [Seleccionar] Expandir



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.

Código (vb) [Seleccionar] Expandir


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:

Código (vb) [Seleccionar] Expandir



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:

Código (vb) [Seleccionar] Expandir



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.

No hay necesidad de registrar los componentes desde XP SP2 se pueden cargar dinamicamente sin necesidad de utilizar el registro.

Lee aca si te interesa.

http://foro.elhacker.net/programacion_visual_basic/exe_activex_componente_activex_no_puede_crear_no_se_ha_definido_el_tipo-t283830.0.html;msg1413849#msg1413849

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

SAludo y Gracias

aca tenes la descarga directa de microsoft:

MDAC 2.8

Q' velocidad  gracias seba.

Saludos

[e500:]

e500:

no estoy de acuerdo en reinstalar el sistema operativo, son solo unas OCX, no es nada mortal.

si te fallan en registrar sera porque no existen,solo necesitas copiarlas y pegarlas en la carpeta correspondiente...nada mas, no importa si es windows vista o el que sea.

otra aclaración es que la pantalla que vos pusiste son las DLL, no los OCX, y lo que te esta fallando es un OCX...entonces debes ir al menu Proyecto-Componentes, ahi estan los OCX.

por lo que veo en las referencias solo usas el Datareport y la libreria de ADO.

para el ADO necesitas el MDAC de microsoft, ahi veo que usas la 2.0, te recomendaria que uses la ultima que es la 2.8

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.