Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/04/2008, 11:03
juandedios
 
Fecha de Ingreso: mayo-2003
Ubicación: Lima
Mensajes: 967
Antigüedad: 21 años
Puntos: 8
Un problema con VB6 y DataReport

Hola, el problema es el siguiente:

Tengo un modulo donde e puesto el siguiente código:
Código PHP:
Public Sub ShowReportTransferencias(dTienda As StringdReport As DataReportfInicio As DTPickerfFinal As DTPicker)
    
Dim StrSql As String
    Dim rsSRT 
As ADODB.Recordset
    
    StrSql 
"DROP VIEW IF EXISTS transfer1"
    
cnTMySQL.Execute StrSql
    
    StrSql 
"CREATE VIEW transfer1 AS " _
             
"SELECT A.env_code, A.env_fecha, A.env_origen, B.tie_name, A.env_total, A.env_numrumani, A.env_numguia " _
             
"FROM transfenvios A, tiendas B " _
             
"WHERE A.env_origen = '" dTienda "' " _
             
"AND A.env_destino = B.tie_code " _
             
"AND env_fecha BETWEEN '" Format(fInicio.Value"yyyy-mm-dd") & "' AND '" Format(fFinal.Value"yyyy-mm-dd") & "'"
    
cnTMySQL.Execute StrSql
    
    dReport
.Refresh
End Sub 
Y lo llamo haciendo click en un boton de un formulario asi:
Código PHP:
Private Sub cmdVisualizar_Click()
    
Call ShowReportTransferencias(dtcTiendas.BoundTextdtrTransfer1dtpIniciodtpFinal)

    
dtrTransfer1.Show
    dtrTransfer1
.Sections("Sección2").Controls("lblTitulo").Caption "REPORTE GENERAL DE TRANSFERENCIA DESDE " dtcTiendas.Text " DEL " dtpInicio.Value " AL " dtpFinal.Value
End Sub 
Cuando al segundo bloque de codigo le quito la ultima linea, el reporte muestra lo que yo quiero, pero si le dejo la ultima linea el reporte me muestra otra cosa.

Que cosa podria estar mal, por favor denme una mano.

Gracias.
__________________
El aprendiz.