Discussion :

[phiric]

Bonjour j'ai developpé une application VB en utilisant OpenOffice Base.
La connection et l'insert dans la base fonctionna parfaitement...
Par contre quand mon application VB est terminée (je reconnais que je ne fais aucun traitement de fermeture de base ...) Il subsiste un fichier <nom de base>.lck (qui est en cours d'utiisation par des process : soffice.bin)

Si je relance mon application : Je trouve toutes mes transaction ...

Au redémarrage de mon ordinateur : L'ensemble des transactions sur ma base (insert, update) sont disparues.

Ma question : Comment arreêter proprement ma connection à la base OpenOffice dans mon programme VB

Voici un extrait de mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 '-- Ouverture BAse
  Dim oDB As Object, oBase As Object
  Dim Fichier As String
  Dim oServiceManager As Object, CreateUnoService As Object
  Fichier = "file:///C:/base/mabase.odb"
 
  Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
  Set CreateUnoService = oServiceManager.createInstance("com.sun.star.sdb.DatabaseContext")
 
  Set oDB = CreateUnoService.getByName(Fichier)
  Set oBase = oDB.getConnection("", "")
  Set oStatement = oBase.createStatement
 
'--- Insert dans Table
  Requete = "insert into ""articles"" ""sujet"", ""texte"") values ('" +  I_SUJET.Text + "','" + I_TEXTE.Text) + "')"
Set oRequete = oStatement.ExecuteQuery(Requete)

[SilkyRoad]

bonjour

pour refermer la requete et la connection, tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    oRequete.Close
    oStatement.Close

par contre il est possible qu'il apparaisse toujours quelque chose dans le Proccess. Cela ne semble pas genant si on suit les remarques de Bernard Marcelly (le grand manitou OOo) à la fin de ce message

http://www.mail-archive.com/prog@fr..../msg00993.html


bonne journée
michel

[phiric]

J'avais deja essaye ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    oRequete.Close
    oStatement.Close

Mais rien n'y fait ...

Autre idée ?

[SfJ5Rpw8]

J'avais deja essaye ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    oRequete.Close
    oStatement.Close

Mais rien n'y fait ...

Autre idée ?

j'ai aussi testé ce code .. le fichier .lck, n'est pas effacé.. mais les données dans la base sont bien mise à jour .. non ..?

il faut rajouter un oBase.close...et le fichier .lck disparait...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
   oRequete.Close
    oStatement.Close
    oBase.Close

[phiric]

En ajoutant ce code, il y a une erreur de SYNTAXE sur Obase.close

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    oRequete.Close
    oStatement.Close
    oBase.Close

Complément :
- Les mises a jour sont effectivement bien prises en compte : On redémarre l'application et on voir les mises à jour
- MAIS si on REDEMARRE le PC et que l'on redemarre l'application : le mises à jour disparaissent


[/QUOTE]

[phiric]

Rectificatif : Ce code fonctionne parfaitement !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    oRequete.Close
    oStatement.Close
    oBase.Close

le fichier lck disparait et Les mises a jour sont effectivement bien prises en compte : On redémarre l'application et on voir les mises à jour, si on REDEMARRE le PC et que l'on redemarre l'application : le mises à jour sont toujours la ...