
18/07/2008, 07:21
|
 | | | Fecha de Ingreso: diciembre-2002 Ubicación: santiago-chilito
Mensajes: 1.931
Antigüedad: 22 años, 3 meses Puntos: 2 | |
Respuesta: problema con upgrade en postgres aqui es el punto donde falla.
alguien sabe de alguna manera de decirle a la conexion que la codificacion es uft8?
Public Sub conecta()
On Error GoTo conexion
Set CON = New ADODB.Connection
Set rt = New ADODB.Recordset
CON.CommandTimeout = 40
CON.CursorLocation = 1
CON.Open ("dsn=licitaciones")
Set comd.ActiveConnection = CON
comd.CommandType = 1
conexion:
If (Err.Number = Val("-2147467259")) Then
MsgBox "NO HAY CONEXION CON EL SERVIDOR CONTACTE AL ADMINISTRADOR ANEXO:713-6464,CERRANDO EL PROGRAMA", vbCritical, "ERROR"
End
End If
__________________ "Cuando se adelanta un oponente, enfréntalo y salúdalo; si intenta retroceder, déjalo seguir su camino" |