Buenas tardes.
vamos a migrar de postgresql 8.3 a 9.3, para esto estamos realizando pruebas
tanto con la nueva version del motor de base de datos como con la aplicacion.
Aplicacion VB 6
Pero se me esta presentnado un problema.
Adjunto linea de codigo de la aplicacion.
================================================================================================
Dim cmd As New ADODB.Command
Dim Rs As New ADODB.Recordset
With cmd
.ActiveConnection = Str_cnx 'conexion_usuario
.CommandType = adCmdText
.CommandText = "begin;" & _
"select fac_rpt(?,?,?,?,'gdatos',?,?);" & _
"fetch all in gdatos;"
.Parameters.Append .CreateParameter("NombreReporte", adVarChar,
adParamInput, -1, NombreReporte)
.Parameters.Append .CreateParameter("Where", adVarChar, adParamInput,
-1, where)
.Parameters.Append .CreateParameter("OrderBy", adVarChar, adParamInput,
-1, OrderBy)
.Parameters.Append .CreateParameter("CantFilas", adInteger,
adParamInput, -1, CantFilas)
.Parameters.Append .CreateParameter("CodTipoDoc", adVarChar,
adParamInput, -1, CodTipoDoc)
.Parameters.Append .CreateParameter("NumTipoDoc", adVarChar,
adParamInput, -1, NumTipoDoc)
With Rs
.CursorLocation = adUseClient
.Open cmd, , adOpenStatic, adLockReadOnly --Aqui salta el error
End With
.CommandText = "commit;"
.Execute
End With
================================================================================================
El valor de la variable where es
a.doc_femi>='03/20/2014' AND a.doc_femi<='03/20/2014' and a.Doc_Provisional=0
and a.doc_interno=0
--El error que me muestra es:
Error while executing the query;
ERROR: error de sintaxis en o cerca de «03»
LINE 1: ...rpt('Correspondencia_Cliente_new',' a.doc_femi>=\'03/20/2014...
El error se ve que a la variable "where" antes del apostrofe le ha adjuntado el
simbolo \.
Lo cual no se presentaba con postgresql 8.3
Alquien con una experiencia similar para que me pueda ayudar.
Gracias.
Henry
