MAJ structure par lotusccript...help

[diarno]

Bonjour,je cherche du code lotusscript (ou autre) me permettant de mettre a jour (ou remplacer) la structure d'une base ( par un bouton par exemple ) en local...si quelqu'un a une idée ou du code, je suis preneur.

[Stephane Maillard]

Bonjour,Le code LS ci dessous devrait vous convenir eclare Function W32_NSFDbOpen Lib "nnotes.dll" Alias "NSFDbOpen" ( ByvaldbName As Lmbcs String, hdb As Long ) As IntegerDeclare Function W32_NSFDbClose Lib "nnotes.dll" Alias "NSFDbClose" ( Byvalhdb As Long ) As IntegerDeclare Function W32_DesignRefresh Lib "nnotes.dll" Alias "DesignRefresh"( Byval server As String,Byval lnghNote as Long, Byval flags As Integer ,Byval null0 As Long, Byval null1 As Long) As IntegerFunction RefreshDesign ( strServer As String, strFileName As String, strTemplateServer As String) As IntegerDim intRC As IntegerDim lngDBHandle As LongIf strServer$ = "" ThenintRC% = W32_NSFDbOpen( strFileName$, lngDBHandle )ElseintRC% = W32_NSFDbOpen( strServer$ & " !! " & strFileName$, lngDBHandle)End IfIf intRC% <> 0 ThenMessagebox "La base " & strServer$ & " ne peut être ouverte!! " & strFileName$RefreshDesign = FalseExit FunctionEnd IfintRC% = W32_DesignRefresh( strTemplateServer$, lngDBHandle, 0, 0, 0)If intRC% <> 0 ThenMessagebox "Impossible de rafraichir la structure de la base " & strServer$ & " !! " & strFileName$RefreshDesign = FalseExit FunctionEnd IfintRC% = W32_NSFDbClose( lngDBHandle )If intRC% <> 0 ThenMessagebox "Probléme à la fermeture de la base " & strServer$ & " !! " & strFileName$RefreshDesign = FalseExit FunctionEnd IfRefreshDesign = TrueEnd FunctionCette fonction vous permet de mettre à jour la structure à partir d'un LotusScript. Elle retourne 0 (false) ou -1 (true) si elle fonctionne.Il faut être sûr qu'il s'agit d'une plateforme windows avant d'utiliser ce codeon utilise la fonction :*** Vérification Windows 32. si non au revoir.If session.Platform <> "Windows/32" ThenMessagebox "Désolé, cette fonction ne marche qu'avec Win32!"Exit FunctionEnd If[%sig%]

[diarno]

Je vous remercie pour le code.Une question, je cherche depuis longtemps des infos avec une description des api pouvant être utilisé par notes ( comme ici ).Ou puis je trouver cette info ?Merci d'avance de votre reponse

[Stephane Maillard]

Bonjour,Le C/C++ Tool Kit disponible chez IBM/Lotus, il suffit de convertir les appels C/C++ en LotusScript, VB, Delphi, etc...[%sig%]

[diarno]

merci encore de toutes ces indications