Pasar documentos de una base de datos a otra
Hola, me gustaría saber como puedo pasar documentos de una base de datos a otra utilizando agentes o similar. Muchas Gracias.
1 respuesta
Respuesta de e6967712
1
Create un agente LotusScript que:
Se recorra los documentos de una vista y luego los pegue en la BD destino.
Vigila, ya que esto sólo funciona para BDs que estén bajo el mismo servidor. Puede que entre servidores diferentes no te funcione.
Un ejemplo de recorrido de documentos:
Sub Initialize
Dim s As New notessession
Dim db As notesdatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db=s.currentdatabase
Set view = db.GetView( "vistaPreEsdeveniments" )
Set doc = view.GetFirstDocument
While Not ( doc Is Nothing )
doc.Form="Esdeveniment"
Call doc.save(True,False)
Set doc = view.GetFirstDocument()
Wend
End Sub
Se recorra los documentos de una vista y luego los pegue en la BD destino.
Vigila, ya que esto sólo funciona para BDs que estén bajo el mismo servidor. Puede que entre servidores diferentes no te funcione.
Un ejemplo de recorrido de documentos:
Sub Initialize
Dim s As New notessession
Dim db As notesdatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db=s.currentdatabase
Set view = db.GetView( "vistaPreEsdeveniments" )
Set doc = view.GetFirstDocument
While Not ( doc Is Nothing )
doc.Form="Esdeveniment"
Call doc.save(True,False)
Set doc = view.GetFirstDocument()
Wend
End Sub
aha, muchas gracias. ¿Podrías ponerme un ejemplo acerca de como pegarlos en la otra base de datos? Gracias
Para crearte una instancia de NotesDatabase debes usar esa clase ( Mirate la ayuda del Designer).
Se instancia de la siguiente manera
Dim db_a_copiar As New NotesDatabase( "", "senses\sounds\clunk.nsf" )
entonces utilizas esta instrucción:
Set doc2 = doc.CopyToDatabase( db_a_copiar )
El ejemplo que sale en la ayuda de notes es este:
Dim archiveDb As New NotesDatabase( "", "" )
Dim doc As NotesDocument
'...set value of archiveDb...
'...set value of doc...
If ( doc.Created < Datenumber( 1995, 8, 12 ) ) Then
Call doc.CopyToDatabase( archiveDb )
'You can use the call statement because the
'program does not need the return value
'(a handle to the new document)
End If
Se instancia de la siguiente manera
Dim db_a_copiar As New NotesDatabase( "", "senses\sounds\clunk.nsf" )
entonces utilizas esta instrucción:
Set doc2 = doc.CopyToDatabase( db_a_copiar )
El ejemplo que sale en la ayuda de notes es este:
Dim archiveDb As New NotesDatabase( "", "" )
Dim doc As NotesDocument
'...set value of archiveDb...
'...set value of doc...
If ( doc.Created < Datenumber( 1995, 8, 12 ) ) Then
Call doc.CopyToDatabase( archiveDb )
'You can use the call statement because the
'program does not need the return value
'(a handle to the new document)
End If
