ERROR MYSQL>CRYSTAL EN MÁQUINA CLIENTE
Publicado por Ignacio (27 intervenciones) el 30/04/2018 18:21:04
Agradecería mucho su ayuda.
Este error me salta en la maquina cliente (en la mía funciona perfectamente) al cargar el report en el crystalreportviewer.

Uso vs2017. La base de datos, usuarios, etc.. son idénticos en ambas, pues el resto de la aplicación funciona correctamente en ambos equipos. No sé a que puede ser debido.
El report lo conecto con la bbdd via ODBC y a continuación les dejo la función que utilizo para imprimir:
En vb6, siempre he creado los rpt contra bbdd fijas y por código les pasaba la ubicación en función del ejercicio en el que estuviera y siempre me funcionó de maravilla.
Gracias de antemano y disculpar por el tocho.
Este error me salta en la maquina cliente (en la mía funciona perfectamente) al cargar el report en el crystalreportviewer.

Uso vs2017. La base de datos, usuarios, etc.. son idénticos en ambas, pues el resto de la aplicación funciona correctamente en ambos equipos. No sé a que puede ser debido.
El report lo conecto con la bbdd via ODBC y a continuación les dejo la función que utilizo para imprimir:
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
'... FUNCION UNICA DE LISTADOS
Public Function NE_ALISTA(Optional ByVal NOMLIS = "", Optional ByVal FORMUL = "", Optional ByVal TITULO = "", Optional ByVal COMMEN = "", _
Optional ByVal TABLA1 = "", Optional ByVal ORDE11 = "", Optional ByVal ORDE12 = "", _
Optional ByVal TABLA2 = "", Optional ByVal ORDE21 = "", Optional ByVal ORDE22 = "", _
Optional ByVal TABLA3 = "", Optional ByVal ORDE31 = "", Optional ByVal ORDE32 = "", _
Optional ByVal TABLA4 = "", Optional ByVal ORDE41 = "", Optional ByVal ORDE42 = "")
If NOMLIS = "" Or NOMLIS = " " Then
MsgBox("No tiene ningun listado seleccionado.")
NE_ALISTA = False
Exit Function
End If
If Dir(RLISTE & NOMLIS, 16) = "" And Dir(RLIST & NOMLIS, 16) = "" Then
MsgBox("Fichero correspondiente a este listado, no existe o está deteriorado.", 16)
NE_ALISTA = False
Exit Function
End If
If Dir(RLISTE & NOMLIS, 16) <> "" Then
REPORT.Load(RLISTE & NOMLIS)
REPORT.Refresh()
Else
REPORT.Load(RLIST & NOMLIS)
REPORT.Refresh()
End If
If TABLA1 <> "" Then
If ORDE11 <> "" Then REPORT.DataDefinition.SortFields.Item(0).Field = REPORT.Database.Tables.Item(TABLA1).Fields.Item(ORDE11)
If ORDE12 <> "" Then REPORT.DataDefinition.SortFields.Item(1).Field = REPORT.Database.Tables.Item(TABLA1).Fields.Item(ORDE12)
If TABLA2 <> "" Then
If ORDE21 <> "" Then REPORT.DataDefinition.SortFields.Item(0).Field = REPORT.Database.Tables.Item(TABLA2).Fields.Item(ORDE21)
If ORDE22 <> "" Then REPORT.DataDefinition.SortFields.Item(1).Field = REPORT.Database.Tables.Item(TABLA2).Fields.Item(ORDE22)
End If
If TABLA3 <> "" Then
If ORDE31 <> "" Then REPORT.DataDefinition.SortFields.Item(0).Field = REPORT.Database.Tables.Item(TABLA3).Fields.Item(ORDE31)
If ORDE32 <> "" Then REPORT.DataDefinition.SortFields.Item(1).Field = REPORT.Database.Tables.Item(TABLA3).Fields.Item(ORDE32)
End If
If TABLA4 <> "" Then
If ORDE41 <> "" Then REPORT.DataDefinition.SortFields.Item(0).Field = REPORT.Database.Tables.Item(TABLA4).Fields.Item(ORDE41)
If ORDE42 <> "" Then REPORT.DataDefinition.SortFields.Item(1).Field = REPORT.Database.Tables.Item(TABLA4).Fields.Item(ORDE42)
End If
End If
REPORT.SummaryInfo.ReportTitle = TITULO
REPORT.SummaryInfo.ReportComments = COMMEN
RETFUN = NE_PARAMETROS()
If FORMUL <> "" Then XX_LISTADOS.CrystalReportViewer1.SelectionFormula = FORMUL
XX_LISTADOS.CrystalReportViewer1.ReportSource = REPORT
XX_LISTADOS.CrystalReportViewer1.Refresh()
XX_LISTADOS.Show()
NE_ALISTA = True
REP_NOMLIST = "" : REP_FORMULA = "" : REP_TITULOS = "" : REP_COMMENT = ""
REP_TABLA1 = "" : REP_ORDE11 = "" : REP_ORDE12 = ""
REP_TABLA2 = "" : REP_ORDE21 = "" : REP_ORDE22 = ""
REP_TABLA3 = "" : REP_ORDE31 = "" : REP_ORDE32 = ""
REP_TABLA4 = "" : REP_ORDE41 = "" : REP_ORDE42 = ""
REP_PATHB0 = "" : REP_PATHB1 = "" : REP_PATHB2 = "" : REP_PATHB3 = ""
REP_NOMBA0 = "" : REP_NOMBA1 = "" : REP_NOMBA2 = "" : REP_NOMBA3 = ""
End Function
En vb6, siempre he creado los rpt contra bbdd fijas y por código les pasaba la ubicación en función del ejercicio en el que estuviera y siempre me funcionó de maravilla.
Gracias de antemano y disculpar por el tocho.
Valora esta pregunta


0