Lotus Domino - Migrar o Importar datos

Hola a todos.
Les escribo por que tengo una duda muy grande.
Se desarrollo una base de datos en lotus para almacenar unos manuales, el problema es que esta base de datos presentaba muchos problemas por lo que se decidio volver a desarrollarla.
El problema o la pregunta radica en como puedo migrar o importar toda la data de la anterior base de datos a la nueva?
Por favor si alguien sabe agradeceria bastante una ayuda.
Gracias, saludos.

Tendras que hacer un proceso indicando campo por campo lo que vas a pasar, por ejemplo:

'Agrega a la nueva base
Preg1%=Messagebox("Deseas agregarlo a la base nueva?", 4+32 , "Atención")
If Preg1%=6 Then
Set ndb2=New notesdatabase("server", "base.nsf")
Set ndnew=ndb2.createdocument
NdNew.Form="form_de_Alta_de_nueva_base"
ndnew.str_campo1_nuevo=doc.campo1 'doc =base vieja, ndnew=base nueva
ndnew.str_campo2_nuevo=doc.campo2
ndnew.str_campo3_nuevo=doc.campo3
ndnew.str_campo4_nuevo=doc.campo4
Call ndnew.save(True,False)
End if

Muchas gracias, epro tengo una consulta respecto a tu codigo.... Donde debería ponerlo? es decir en que parte de mi nueva base de datos lo debería poner para que corra o se ejecute?
Para que sirve el simbolo %? Que representa la sentencia: If Preg1%=6 Then? es decir porque entre 1 y 6?
En esta linea: Set ndb2=New notesdatabase("server", "base.nsf"), situo el nobre de mi antigua base de datos?
Ojala me puedas responder, muchas gracias por la ayuda, saludos chau chau.

Este código lo podrás meter en algún botón para ejecutarlo manualmente no importa la form o puedes crear una nueva form, el simbolo % significa que es una variable de caracter, "preg1" es el nombre de la variable, el "6" indica que es verdadero y entra a la condición, en esta linea Set ndb2=New notesdatabase("server", "base.nsf"), debés de poner el nombre de tu servidor y la base de datos.

MIra disculpa que te moleste nuevamente pero ejecute el codigo y me salio este error:
Database Local!!manual.nsf has not been opened yet o sea que aparentemenete no abrio la base de datso.
Este es el codigo que tengo, lo puse dentro de un boton en un nuevo form:

Sub Click(Source As Button)
Preg1%=Messagebox("Deseas agregar el formulario a la nueva base de datos?", 4+32 , "Atención")
If Preg1%=6 Then
Set ndb2=New notesdatabase("Local", "manual.nsf") --> nombres de mi antigua bd, esta bien no?
Set ndnew=ndb2.createdocument
ndnew.Form="1nivel"
ndnew.nombres=doc.nombres
ndnew.P_Topico=doc.P_Topico
ndnew.P_Fecha=doc.P_Fecha
ndnew.P_Cuerpoo=doc.P_Cuerpo
Call ndnew.save(True,False)
End If
End Sub

Por favor te agradeceria mucho una amnito mas.
Gracias, chau chau.

Dim NS As New NOTESSESSION
Dim Doc As NotesDocument
Dim BD As NotesDatabase
Dim session As New Notessession
Set nuiw=New notesuiworkspace
Set ndb =ns.currentdatabase
Set nuid=nuiw.currentdocument
Set nd=nuid.document

Preg1%=Messagebox("Deseas agregar el formulario a la nueva base de datos?", 4+32 , "Atención")
If Preg1%=6 Then

Set ndb2=New notesdatabase("Local", "manual.nsf") --> nombres de mi antigua bd, esta bien no? SI

Set ndnew=ndb2.createdocument
ndnew.Form="1nivel"
ndnew.nombres=doc.nombres
ndnew.P_Topico=doc.P_Topico
ndnew.P_Fecha=doc.P_Fecha
ndnew.P_Cuerpoo=doc.P_Cuerpo
Call ndnew.save(True,False)
End If

Inteneta de nuevo

jeje perdon que te moleste otra vez.
Mira me seguia dando el mismo error entonces le aumente esto:

If Not ndb2.IsOpen Then
Call ndb2.Open ( Local, "manual.nsf" )
End If

Y con eso ya abrio la bd, el problema es que ahora me sale error de variable no seteada, esto ocurre justo cuando llega a esta linea:
ndnew.nombres=doc.nombres
Creo q es por que la variable doc no esta seteada, como debería setearla? es decir igualarla a que?
Dim Doc As NotesDocument
set doc = ?????
Mil disculpas y gracias nuevamente.

No hay problema, intenta con esto:

Dim uidoc As notesuidocument
Set uidoc = nuiw.currentdocument
Set doc = uidoc.document

Cualquier duda avisame

Saludos

Otra ves yo.. Te cuento que si bien ahora no da errores no llega a pasar la información puesto que la variable "doc" que es la que debería contener los datos de la anterior base de datos, pasa valores vacios.
Sabes que podrá ser?
Gracias otra ves, chau chau

corre el debug, puede ser que le falta el "(0)":

doc.campo1(0)

Muchas gracias, ya lo logre.
Aqui dejo el codigo para el que le sirva:

Sub Click(Source As Button)
Dim ns As New NotesSession
Dim doc As NotesDocument
Dim bd As NotesDatabase
Dim session As New NotesSession
Set nuiw=New notesuiworkspace
Set ndb =ns.currentdatabase

Dim uidoc As NotesUIDocument
Set uidoc = nuiw.currentdocument
Set doc = uidoc.document

Preg1%=Messagebox("Deseas agregar el formulario a la nueva base de datos?", 4+32 , "Atención")
If Preg1%=6 Then

Set ndb2=New notesdatabase("Local", "manual.nsf")

If Not ndb2.IsOpen Then
Call ndb2.Open ("Local", "manual.nsf" )
End If

'Set ndnew=New NotesDocument(bd)

Set ndnew=ndb2.createdocument
ndnew.Form="1rst Level"

ndnew.From=doc.From
ndnew.offset=doc.offset
ndnew.dateKeyword=doc.dateKeyword
ndnew.ThreadId=doc.ThreadId
ndnew.NewsLetterSubject=doc.NewsLetterSubject
ndnew.tmpFrom=doc.tmpFrom
ndnew.DateComposed=doc.DateComposed
ndnew.timeComposed=doc.timeComposed

ndnew.P_Topico=doc.P_Topico
ndnew.nombres=doc.p_lectores_1
ndnew.P_Fecha=doc.P_Fecha
ndnew.P_Cuerpo=doc.P_Cuerpo

Call ndnew.save(True,False)

Call ndnew.save(True,False)
End If
End Sub