DominoArea.org [Archive]

bonjour,

je voudrais remplir une base lotus à partir d'un fichier (.txt)

quelles sont les commandes pour accéder et lire ce fichier ?

merci

regarde a "open statement" en lotus script

Open fileName
[ For { Random | Input | Output | Append | Binary } ]
[ Access { Read | Read Write | Write } ]
[ { Shared | Lock Read | Lock Read Write | Lock Write } ]
As [#]fileNumber
[ Len = recLen ]
[Charset = MIMECharsetName]


va voir les exemples

salut, un tips sur le sujet => http://forum.dominoarea.org/lecture-et- ... 11973.html

merci... j'ai réussi à lire mon fichier txt mais rien est enregistré dans ma base ....
j'ai 2 vues, motifs et UF et je veux les intégrer dans UF ...
début du code .....

Dim s As New NotesSession
Dim db As notesdatabase
Dim curdb As notesdatabase
Dim userv As notesview
Dim userdoc As notesdocument
Dim cibledoc As notesdocument
Dim item As NotesItem

Set curdb=s.CurrentDatabase
Set db=s.GetDatabase(curdb.Server,"Motifs.nsf")
Set userv=db.GetView("(Liste des ufs)")

j'ai un message " la base Motifs.nsf is not opened yet " !!

merci

guyader a écrit:merci... j'ai réussi à lire mon fichier txt mais rien est enregistré dans ma base ....
j'ai 2 vues, motifs et UF et je veux les intégrer dans UF ...
début du code .....

Dim s As New NotesSession
Dim db As notesdatabase
Dim curdb As notesdatabase
Dim userv As notesview
Dim userdoc As notesdocument
Dim cibledoc As notesdocument
Dim item As NotesItem

Set curdb=s.CurrentDatabase
Set db=s.GetDatabase(curdb.Server,"Motifs.nsf")
Set userv=db.GetView("(Liste des ufs)")

j'ai un message " la base Motifs.nsf is not opened yet " !!

merci

je ferais plutôt un

Code : Tout sélectionner

set db = new notesdatabase(urdb.Server,"Motifs.nsf")

A faire attention, l'instanciation d'un objet NotesDatabase n'ouvre pas cette dernière automatiquement.

Pour ma part, j'ajouterais une vérification de l'ouverture de la base (pour éviter les petites surprises)

Code : Tout sélectionner

if db.IsOpen = False then
    msgbox "La base n'a pu s'ouvrir, veuillez vérifier son chemin d'accès", 16, "Avertissement"
    exit sub
end if


Sinon, il y a une autre technique :

Code : Tout sélectionner

set db = new NotesDatabase ("", "")
call db.Open (urdb.Server,"Motifs.nsf")
'ensuite, on fait la vérification d'ouverture (mauvais chemin d'accès)
if db.IsOpen = false then
    msgbox "La base n'a pu s'ouvrir, veuillez vérifier son chemin d'accès", 16, "Avertissement"
    exit sub
end if


La méthode "Open" de la classe NotesDatabase force l'ouverture de la base.