Bonjour,
J'utilise la fonction et la proc?dure ci dessous pour me
connecter/d?connecter d'une BDD MySQL.
Elle est cens?e prendre en charge les transactions, mais de fait, elle
ex?cute les instructions d'insertions SQL en temps r?el avant validation.
Quelqu'un voit il une faille dans le code qui expliquerai cela???
Merci d'avance pour votre aide.
Ludo
Option Explicit
'Se connecte ? une source de donn?es
Function ConnecterSource(NomSource as String) as Object
Dim maSource As Object, monDbContext As Object, demandePasse as Object
dim k 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
'Si i est a 0, pas de confirmation
Sub DeconnecterSource(maConnexion as Object, i as Integer)
if i = 0 then
maConnexion.commit
else
if MsgBox("?tes-vous s?re?",32+4)=6 then
maConnexion.commit
else
maConnexion.rollback
end if
end if
maConnexion.autoCommit = true
maConnexion.close
maConnexion.dispose
End Sub
1 message in org.openoffice.fr.prog2.0.3 - Transaction de base de données
