VB 6, SQL Server 2000 y Crystal Report 8.5
Publicado por vladimir Angarita (8 intervenciones) el 10/03/2006 02:47:34
Hola buenos días!
Tengo un pequeño problema con Programa que desarrollo en Visual Basic 6 en una BD de SQL Server 2000 y Crystal Report 8.5.
Dim sql As String
cr.ReportFileName = App.Path & \"\\Reportes\\DistribucionSuministros3.rpt\"
cr.SelectionFormula = \"{AlmacenDistribucion.FechaALM}>=\" & DTPfechainicio.Value & \" AND {AlmacenDistribucion.FechaALM}<=\" & DTPFechafin.Value & \"\"
cr.Action=1
El error que se me genera de aquí es el 20515 Error en Formula
También lo realizo de esta manera.
Dim sql As String
cr.ReportFileName = App.Path & \"\\Reportes\\DistribucionSuministros3.rpt\"
cr.SQLQuery = \"SELECT Usuarios.IDUsuario, Usuarios.Usuario, Departamentos.Departamento, Suministros.Suministro,DistribucionALM.CantidadPedidaALM, DistribucionALM.FechaALM, DistribucionALM.HoraALM, DistribucionALM.ObservacionesALM,Departamentos.IdDep \" & _
\"FROM DistribucionALM INNER JOIN \" & _
\"Departamentos ON DistribucionALM.IDdep = Departamentos.IdDep INNER JOIN \" & _
\"Suministros ON DistribucionALM.IDSuministro = Suministros.IdSuministro INNER JOIN \" & _
\"Usuarios ON DistribucionALM.IDUsuario = Usuarios.IDUsuario \" & _
\"WHERE (DistribucionALM.FechaALM >= \'\" & DTPfechainicio.Value & \"\') AND (DistribucionALM.FechaALM <= \'\" & DTPFechafin.Value & \"\') AND (Departamentos.IdDep = \'1\')\" & _
\"GROUP BY Departamentos.Departamento, Suministros.Suministro, Suministros.CantidadALM, Usuarios.IDUsuario, Usuarios.Usuario,Departamentos.Departamento, Suministros.Suministro, DistribucionALM.CantidadPedidaALM, DistribucionALM.FechaALM,DistribucionALM.HoraALM, DistribucionALM.ObservacionesALM, Departamentos.IdDep\"
cr.Action = 1
Se me genera un error 20534 Error de un Dll
Espero me puedan orientar
posdata ese codigo lo coloco en el vento click de un commandbuton
Tengo un pequeño problema con Programa que desarrollo en Visual Basic 6 en una BD de SQL Server 2000 y Crystal Report 8.5.
Dim sql As String
cr.ReportFileName = App.Path & \"\\Reportes\\DistribucionSuministros3.rpt\"
cr.SelectionFormula = \"{AlmacenDistribucion.FechaALM}>=\" & DTPfechainicio.Value & \" AND {AlmacenDistribucion.FechaALM}<=\" & DTPFechafin.Value & \"\"
cr.Action=1
El error que se me genera de aquí es el 20515 Error en Formula
También lo realizo de esta manera.
Dim sql As String
cr.ReportFileName = App.Path & \"\\Reportes\\DistribucionSuministros3.rpt\"
cr.SQLQuery = \"SELECT Usuarios.IDUsuario, Usuarios.Usuario, Departamentos.Departamento, Suministros.Suministro,DistribucionALM.CantidadPedidaALM, DistribucionALM.FechaALM, DistribucionALM.HoraALM, DistribucionALM.ObservacionesALM,Departamentos.IdDep \" & _
\"FROM DistribucionALM INNER JOIN \" & _
\"Departamentos ON DistribucionALM.IDdep = Departamentos.IdDep INNER JOIN \" & _
\"Suministros ON DistribucionALM.IDSuministro = Suministros.IdSuministro INNER JOIN \" & _
\"Usuarios ON DistribucionALM.IDUsuario = Usuarios.IDUsuario \" & _
\"WHERE (DistribucionALM.FechaALM >= \'\" & DTPfechainicio.Value & \"\') AND (DistribucionALM.FechaALM <= \'\" & DTPFechafin.Value & \"\') AND (Departamentos.IdDep = \'1\')\" & _
\"GROUP BY Departamentos.Departamento, Suministros.Suministro, Suministros.CantidadALM, Usuarios.IDUsuario, Usuarios.Usuario,Departamentos.Departamento, Suministros.Suministro, DistribucionALM.CantidadPedidaALM, DistribucionALM.FechaALM,DistribucionALM.HoraALM, DistribucionALM.ObservacionesALM, Departamentos.IdDep\"
cr.Action = 1
Se me genera un error 20534 Error de un Dll
Espero me puedan orientar
posdata ese codigo lo coloco en el vento click de un commandbuton
Valora esta pregunta
0