Agente programado (ODBC) no funciona
Publicado por Carlos (10 intervenciones) el 17/01/2007 12:50:25
Buenas a Todos:
Os comento mi problema a ver si alguien sabe darme algun razon o solucion.
Tengo un agente programado en el servidor lotus que lo que debe hacer es conectarse mediante ODBC a una base datos access en otro servidor.
El codigo es que estoy utilizando es este
Dim session As New NotesSession
Dim view As notesview
Dim doc2 As notesdocument 'documento que crea
Dim Dia As String
Dim docP As notesdocument 'dcto perfil
Dim CharOp As Integer
Dim datetime As NotesDateTime
Dim CON As New ODBCConnection
Dim QRY As New ODBCQuery
Dim RES As New ODBCResultSet
Print "IMPORTACION FICHADAS INICIADA"
Set db=session.currentdatabase
Set docP = db.GetProfileDocument("fBibliotecas")
CharOp=6 '''' a veces type mismatch docP.CharOperario(0)
If Not CON.ConnectTo("FICHADAS","","") Then
Messagebox "Error en la conexión. Por favor, consulte al administrador del sistema."...
Pues bien el agente no hace nada por que siempre me da error de conexion el CONN.Connect, nunca conecta a FICHADAS.
Tengo el ODBC creado como dsn de sistema, archivo y demas. Desde el ordenador del servidor lotus por red si que tengo acceso y puedo ejecutar la base de datos en el otro servidor (que no tiene contraseña alguna por cierto). O incluso he probado a hacerlo todo el local y nada. Error de conexion.
Total que no que esta pasando???. Alguien lo sabe??
Un saludo
Os comento mi problema a ver si alguien sabe darme algun razon o solucion.
Tengo un agente programado en el servidor lotus que lo que debe hacer es conectarse mediante ODBC a una base datos access en otro servidor.
El codigo es que estoy utilizando es este
Dim session As New NotesSession
Dim view As notesview
Dim doc2 As notesdocument 'documento que crea
Dim Dia As String
Dim docP As notesdocument 'dcto perfil
Dim CharOp As Integer
Dim datetime As NotesDateTime
Dim CON As New ODBCConnection
Dim QRY As New ODBCQuery
Dim RES As New ODBCResultSet
Print "IMPORTACION FICHADAS INICIADA"
Set db=session.currentdatabase
Set docP = db.GetProfileDocument("fBibliotecas")
CharOp=6 '''' a veces type mismatch docP.CharOperario(0)
If Not CON.ConnectTo("FICHADAS","","") Then
Messagebox "Error en la conexión. Por favor, consulte al administrador del sistema."...
Pues bien el agente no hace nada por que siempre me da error de conexion el CONN.Connect, nunca conecta a FICHADAS.
Tengo el ODBC creado como dsn de sistema, archivo y demas. Desde el ordenador del servidor lotus por red si que tengo acceso y puedo ejecutar la base de datos en el otro servidor (que no tiene contraseña alguna por cierto). O incluso he probado a hacerlo todo el local y nada. Error de conexion.
Total que no que esta pasando???. Alguien lo sabe??
Un saludo
Valora esta pregunta


0