Crystal Report - crystal repors con visual basic

 
Vista:

crystal repors con visual basic

Publicado por jairo mortera (7 intervenciones) el 13/07/2019 06:01:25
hola buenas tardes

necesito ayuda con un programa que estoy elaborando necesito agregar un reporte hecho en crystal reports en mi diseño en visual basic 6.0 tengo dos DTpiker con fecha inicial y con fecha final, cuando elija un rango de fechas y de clic en el boton de generar reporte me muestre en pantalla el reporte de ese rango de fechas

solo manejo una base de datos con una sola tabla.
la base de datos se llama catamaran y la tabla reg_catamaran
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 Wilfredo Patricio Castillo
Val: 160
Oro
Ha mantenido su posición en Crystal Report (en relación al último mes)
Gráfica de Crystal Report

crystal repors con visual basic

Publicado por Wilfredo Patricio Castillo (62 intervenciones) el 16/07/2019 07:57:57
Y cuál es tu problema exactamente?.
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

crystal repors con visual basic

Publicado por jairo mortera (7 intervenciones) el 16/07/2019 16:30:21
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Option Explicit
Dim conn As ADODB.Connection
Public requiere As String
Public Archivo As String
Public tipos As String
Public quien As String
Public fechai As Date
Public fechaf As Date
Public almacen  As String
Public nomalmacen As String
'Dim m_report As New facsp
Dim remissql As ADODB.Recordset
Dim empresa As ADODB.Recordset
Dim crystal As CRAXDRT.Application
Dim Report As CRAXDRT.Report
Dim sqltext As String
 
 
 
 
 
Private Sub Form_Load()
 
Dim dummy As Variant
Dim mrec As String
Dim DbPrueba As Database
Dim x, y As String
Archivo = Space(200)
 
frmreport1.WindowState = vbMaximized
 ' iniciamos los objetos de las bases de datos
Set conn = New ADODB.Connection
  'Set tablasuc = New ADODB.Recordset
  'tablasuc.CursorLocation = adUseClient
  conn.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=katamaran; User=root;Password=byhoka28;Option=3;"
 
 
    sqltext = "select * from reg_katamaran" & _
    "where fecha_sis >='" & Format(fechai, "yyyy-mm-dd") & "' and fecha_sis <='" & Format(fechaf, "yyyy-mm-dd") & "'"
 
Set remissql = New ADODB.Recordset
remissql.Open sqltext, conn, adOpenDynamic, adLockOptimistic
' aplicacion de Cristal reports
Set crystal = New CRAXDRT.Application
'If tipos = "C" Then
Set Report = crystal.OpenReport(App.Path & "\REPORTE_COMISIONES.rpt")
Report.ReportTitle = "Reporte del : " & fechai & " al : " & fechaf
Report.DiscardSavedData
Report.Database.SetDataSource remissql
Report.SQLQueryString = sqltext
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
remissql.Close
Set remissql = Nothing
conn.Close
Set conn = Nothing
Set crystal = Nothing
Set Report = Nothing
 
End Sub

tengo un botón que se llama reporte y dos monrhview llamados monrhview1 como fecha inicial y monrhview2 como fecha final bueno cuando yo elijo las fecha y le doy clic al botón de reporte me sale este error.


error: 2147217887 en tiempo de ejecución
el controlador no admite las propiedades solicitadas


le doy clic en depurar y me manda a esta línea

remissql.Open sqltext, conn, adOpenDynamic, adLockOptimistic
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
Imágen de perfil de Wilfredo Patricio Castillo
Val: 160
Oro
Ha mantenido su posición en Crystal Report (en relación al último mes)
Gráfica de Crystal Report

crystal repors con visual basic

Publicado por Wilfredo Patricio Castillo (62 intervenciones) el 17/07/2019 13:52:31
Prueba a pasar solo la fecha, quita el format.

Saludos cordiales,
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

crystal repors con visual basic

Publicado por JAIRO MORTERA (7 intervenciones) el 17/07/2019 17:54:33
que tal mi estimado pero si le quiero el format marca error en la línea de codigo
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

crystal repors con visual basic

Publicado por JAIRO MORTERA (7 intervenciones) el 17/07/2019 20:11:22
MIRA AHORA ESTE ES EL ERROR CRYSTAL REPORTS DATABASE ERROR:

ODBC error [MySQL][DBC 3.51 Driver][Mysqld-5.7.17-log] Unknown column reg_katamaran1.clave_k in field list

no se por que me agrega un 1 aquí reg_katamaran1.clave_k

cuando mi table es reg_katamaran.clave_k asi como debería ser
esto me sale al momento que se abre el reporte

no se si es algo mal desde crystal reports
o el código en visual basic al momento de abrirlo..

si puedes apoyarme porfavor ya le busque y la verdad no doy
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
Imágen de perfil de Wilfredo Patricio Castillo
Val: 160
Oro
Ha mantenido su posición en Crystal Report (en relación al último mes)
Gráfica de Crystal Report

crystal repors con visual basic

Publicado por Wilfredo Patricio Castillo (62 intervenciones) el 17/07/2019 20:23:11
Al menos ya carga, la cosa ya es otra.

Mira esto:

sqltext = "select * from reg_katamaran" & _
"where fecha_sis >='"

Así es como tienes tu código, si lo vemos completo eso queda así: "Select * from reg_katamaranwhere fecha_sis"

Entonces, debes darle un espacio al where, para que quede correctamente formada tu consulta.

Saludos cordiales,
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

crystal repors con visual basic

Publicado por JAIRO MORTERA (7 intervenciones) el 17/07/2019 20:32:10
sqltext = "select * from reg_katamaran where " & " fecha_sis >='" & Format(fechai, "yyyy-mm-dd") & "' and fecha_sis <='" & Format(fechaf, "yyyy-mm-dd") & "'"

este es el código pero como lo separo como quedaría
puedes ayudarme
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
Imágen de perfil de Wilfredo Patricio Castillo
Val: 160
Oro
Ha mantenido su posición en Crystal Report (en relación al último mes)
Gráfica de Crystal Report

crystal repors con visual basic

Publicado por Wilfredo Patricio Castillo (62 intervenciones) el 17/07/2019 21:27:45
En tu código que enviaste, en la segunda linea donde va el where

" where

Ves el espacio entre la comilla y la w?, eso debes hacer nada mas.

Saludos cordiales,
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

crystal repors con visual basic

Publicado por JAIRO MORTERA (7 intervenciones) el 17/07/2019 21:43:21
NO ESO NO CORRIGE MI ERROR DE CRYSTAL REPORTS

ODBC error [MySQL][DBC 3.51 Driver][Mysqld-5.7.17-log] Unknown column reg_katamaran1.clave_k in field list

no se por que me agrega un 1 aquí EJEMPLO reg_katamaran1.clave_k
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
Imágen de perfil de Wilfredo Patricio Castillo
Val: 160
Oro
Ha mantenido su posición en Crystal Report (en relación al último mes)
Gráfica de Crystal Report

crystal repors con visual basic

Publicado por Wilfredo Patricio Castillo (62 intervenciones) el 17/07/2019 22:03:27
A ver prueba esto:

Opción 1
sqltext = "select * from reg_katamaran" & _
" where fecha_sis >=CDate(' " & fechai & " ')" & " and fecha_sis <=Cdate(' " & fechaf " ')"


Opción 2:

sqltext = "select * from reg_katamaran" & _
" where fecha_sis >=CDate(' " & Format(fechai,"yyyy-mm-ddd") & " ')" & " and fecha_sis <=Cdate(' " & Format(fechaf,"yyyy-mm-dd") & " ')"


Saludos cordiales,

PD:Ya no uso vb6 mas de 15 años.
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

crystal repors con visual basic

Publicado por JAIRO MORTERA (7 intervenciones) el 17/07/2019 22:56:38
AGRADESCO TU AYUDA Y TU TIEMPO, PERO CREO QUE EL PROBLEMA ES CON CRYSTAL REPORTS

MI ERROR DE CRYSTAL REPORTS

ODBC error [MySQL][DBC 3.51 Driver][Mysqld-5.7.17-log] Unknown column reg_katamaran1.clave_k in field list

no se por que me agrega un 1 aquí EJEMPLO reg_katamaran1.clave_k
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
Imágen de perfil de Wilfredo Patricio Castillo
Val: 160
Oro
Ha mantenido su posición en Crystal Report (en relación al último mes)
Gráfica de Crystal Report

crystal repors con visual basic

Publicado por Wilfredo Patricio Castillo (62 intervenciones) el 18/07/2019 02:21:24
Envíame un email para solucionar el asunto, sino estamos en conversación de ciegos.
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