Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Problemas con Reporte

Visual Basic - Problemas con Reporte

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de DANIEL
Val: 11
Ha aumentado su posición en 6 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Problemas con Reporte

Publicado por DANIEL (9 intervenciones) el 25/09/2018 16:33:27
Buenas compañeros tengo un reporte el cual uso un data environment para mostrar unos datos pero desde vb cuando escogo el formulario hago un filtro de una consulta por fechas pero cuando carga el informe me trae todo como la consulta general no me hace el filtro y no se porque ayuda.

este codigo es donde hago el filtro:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
ElseIf Me.cbocodigo_informes.ListIndex = 2 Then
 
Dim Info2Rs As ADODB.Recordset
Set Info2Rs = New ADODB.Recordset
     With Info2Rs
 
.Open "select * from Vs_Info2 WHERE In_fecha_no BETWEEN '" & Me.dtpdesde.Value & "' AND '" & Me.dtphasta.Value & "'", CONEXION_ADO, adOpenStatic, adLockOptimistic
 
If (Info2Rs.EOF = False And Info2Rs.BOF = False) Then
 
      dtrReporte2.Sections("Sección4").Controls("lbldesde").Caption = Me.dtpdesde.Value
      dtrReporte2.Sections("Sección4").Controls("lblhasta").Caption = Me.dtphasta.Value
 
        dtrReporte2.Refresh
        dtrReporte2.Show
    End If
      .Close
     End With
Set Info2Rs = Nothing

No entiendo pq no hace el filtro.....Ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Problemas con Reporte

Publicado por Antoni Masana (565 intervenciones) el 25/09/2018 21:02:59
No se que haces ni que hay en las variables Me.dtpdesde.Value y Me.dtphasta.Value pero apostaria que son fechas y no estan en el formato correcto. Que yo recuerde deben in entre corchetes y en un formato determinado ( #mm/dd/yyyy# )

De esta forma sabras si el codigo SQL esta bien escrito.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
ElseIf Me.cbocodigo_informes.ListIndex = 2 Then
 
    Dim Info2Rs As ADODB.Recordset, c_SQL as String
    Set Info2Rs = New ADODB.Recordset
    With Info2Rs
        c_SQL = "SELEC * " & VbCrLf & _
                "FROM Vs_Info2 " & VbCrLf & _
                "WHERE In_fecha_no BETWEEN '" & Me.dtpdesde.Value & "' AND '" & _
                                                Me.dtphasta.Value & "'"
    MsgBox c_SQL
 
        .Open c_SQL, _
              CONEXION_ADO, _
              adOpenStatic, _
              adLockOptimistic
 
        If (Info2Rs.EOF = False And Info2Rs.BOF = False) Then
           With dtrReporte2.Sections("Sección4")
               .Controls("lbldesde").Caption = Me.dtpdesde.Value
               .Controls("lblhasta").Caption = Me.dtphasta.Value
           End With
           dtrReporte2.Refresh
           dtrReporte2.Show
        End If
        .Close
    End With
    Set Info2Rs = Nothing

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar