Error 20534 La DLL de Base de Datos ha detectado un error

28/04/2010 - 21:54 por Miguel | Informe spam
Saludos Grupo, necesito de su ayuda para resolver el siguiente caso, tengo un
desarrollo en Visual Basic 6, con reportes en Crystal Report 8, el caso es
que cuando intento filtrar registros a traves de un campo numerico me arroja
el error: 20534 La Dll de base de datos ha detectado un error, y no logro
sacar el reporte, en el caso q la variable de filtro fuera string, si me
permite sacar el reporte.
muestro el codigo que utilizo:

Dim rptId As Double

Private Sub b_reporte_Click()
Dim cad1 As String
cad1 = dc_tipoMov.Text
If rptId > 0 Then
With frm_principal.Cr1
.Destination = 0
.WindowState = crptNormal
.Reset
.ReportFileName = App.Path & "pt_infmovimientos.rpt"
.SelectionFormula = "{v_ldomovimientos.idmovimientos}=" & rptId
.Formulas(0) = "title= '" & cad1 & "'"
iresultado = .PrintReport
If iresultado <> 0 Then
MsgBox .LastErrorString
End If
End With
End If
End Sub

Agradezco la ayuda q me puedan prestar
 

Leer las respuestas

#1 Victor Koch
28/04/2010 - 22:10 | Informe spam
Hola,

Reemplazar

.SelectionFormula = "{v_ldomovimientos.idmovimientos}=" & rptId

Por

.SelectionFormula = "{v_ldomovimientos.idmovimientos}=" &
Str$(rptId)

Un Saludo, Víctor Koch



"Miguel" escribió en el mensaje
news:
Saludos Grupo, necesito de su ayuda para resolver el siguiente caso, tengo
un
desarrollo en Visual Basic 6, con reportes en Crystal Report 8, el caso es
que cuando intento filtrar registros a traves de un campo numerico me
arroja
el error: 20534 La Dll de base de datos ha detectado un error, y no logro
sacar el reporte, en el caso q la variable de filtro fuera string, si me
permite sacar el reporte.
muestro el codigo que utilizo:

Dim rptId As Double

Private Sub b_reporte_Click()
Dim cad1 As String
cad1 = dc_tipoMov.Text
If rptId > 0 Then
With frm_principal.Cr1
.Destination = 0
.WindowState = crptNormal
.Reset
.ReportFileName = App.Path & "pt_infmovimientos.rpt"
.SelectionFormula = "{v_ldomovimientos.idmovimientos}=" & rptId
.Formulas(0) = "title= '" & cad1 & "'"
iresultado = .PrintReport
If iresultado <> 0 Then
MsgBox .LastErrorString
End If
End With
End If
End Sub

Agradezco la ayuda q me puedan prestar

Preguntas similares