El Guru Programador
Usuario DESCONOCIDO | Registrate Gratis | Usuarios Registrados
  Home
Usuarios
  Usuarios Registrados
  Registrate Gratis!
Zonas
  ASP/ASP.NET
  Visual Basic/VB.NET
  JavaScript
  HTML/CSS/XML
  Flash/FireWorks
  PHP/MySQL
  C++/C#
  SQL
  Otros...
Recursos
  Tutoriales del Guru
  Directorio de Sitios
  Downloads
Comunidad
  Libreria de Codigo
  Foros del Guru
  Ofertas de Trabajo
Servicios
  Boletin de Novedades
  Registro de Dominios
Acerca de...
  Publicidad
  Contactos
 
Foro de Visual Basic/VB.NET
Foros del Guru > Visual Basic/VB.NET
Usuario Problemas con Selection Formula en...
Desconocido
Enviado - 17/8/2004
 
Hola amigos

Tengo un problema al tratar de cargar un reporte de Crystal desde VB 6

En el reporte tengo un listado de cotizacionesy al hacer una formula para que me filtre por fecha de cotizacion no me da ningun problema ejem

En Crystal hago lo siguiente
en Record Selection Formula Editor tengo la siguiente formula

{Cotizacion.FechaCotizacion}>= Date('01/08/2004') and {Cotizacion.FechaCotizacion}<= Date('06/08/2004')

y al correr el reporte en cystal no me da ningun problema, puedo cambiar las fechas y me filtra la informacion que yo quiero, pero al tratar de hacerlo desde VB me da el siguiente problema

20515 Error in formula <Record_Selection>
'{Cotizacion.FechaCotizacion}>= Date('16/08/2004') and {Cotizacion.FechaCotizacion}<= Date('16/08/2004')'
Not enough arguments have been given to this function

El codigo en VB que utilizo es el siguiente

Private Sub cmdAceptar_Click(Value As Integer)
On Error GoTo errores
If cmdAceptar.Value Then
cmdAceptar.Value = False
Dim dir As String
Dim FechaIni As String
Dim FechaFin As String
dir = "\\Server\Cotizaciones\Reportes\"
Report.Connect = ConnectionString
Report.DiscardSavedData = True
Report.ReportFileName = dir & "Cotizaciones.rpt"
Report.WindowState = crptMaximized
If optPorFecha.Value = True Then
FechaIni = FechaInicio.Text
FechaFin = FechaFinal.Text
Report.Destination = crptToWindow
Report.Formulas(0) = "FechaInicio = '" & FechaIni & "'"
Report.Formulas(1) = "FechaFinal = '" & FechaFin & "'"
StringReport = "{Cotizacion.FechaCotizacion}>= Date('" & FechaIni & "') and {Cotizacion.FechaCotizacion}<= Date('" & FechaFin & "')"
Report.ReplaceSelectionFormula StringReport
Report.Action = 1
End If
End If
errores:
If Err.Number <> 0 Then
DisplayErrores
End If
End Sub

En la base de datos de SQL el campo esta con el tipo de dato DateTime

Gracias por su ayuda
 
Santos Meza
12 Mensaje(s)
Enviado - 4/9/2004
 
Ok aqui manejas muchas cosas k creo yo no serian necesarias, primeramente las variables FechaInicio y FechaFinal debes de declararlas como tipo fecha y posteriormente pasarle estas fechas ademas de darle el formato que tengas en la bd por ejemplo en una bd de mysql tendrias k mandarlo algo mas o menos asi:

StringReport = "{Cotizacion.FechaCotizacion}>='" & format(FechaInicio,"yyyy/mm/dd") & "' and {Cotizacion.FechaCotizacion}<='" & format(FechaFinal,"yyyy/mm/dd") & "'"

Espero y te sirva de algo ok. Si no jala o aolgo ahi me hechas un grito mi correo es: [email protected]
 
 

 

 




 
Contactos myStudio Network