Re: [prog] OOo 1.1.5 - Connection - déconnectio n source

Fri, 17 Mar 2006 01:46:08 -0800 

Salut!

Merci Bernard.
Voici ma nouvelle fonction de connexion qui fonctionne a merveille (rapidité, efficacité). 

A bientôt,

Ludo


'Se connecte à une source de données
Function ConnecterSource(NomSource as String) as Object
Dim maSource As Object, monDbContext As Object, demandePasse as Object
'Création du contexte
monDbContext = CreateUnoService( _
                  "com.sun.star.sdb.DatabaseContext")
maSource=monDbContext.getByName(NomSource)

'Les paramètres de connexion
demandePasse = CreateUnoService("com.sun.star.sdb.InteractionHandler")
ConnecterSource = maSource.getIsolatedConnectionWithCompletion(demandePasse) 
ConnecterSource.autoCommit = false

if IsNull(ConnecterSource) then
    MsgBox("Connexion impossible",16)
End if
End Function



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à