Discussion :

[kenzo31]

Bonjour à toutes et à tous,

Je cherche de l'aide pour résoudre le problème suivant:

J'ai un fichier .odb qui pointe à l'ouverture sur une base ACCESS, avec des formulaires et des macros liées à ces formulaires. Tout fonctionne bien.

J'ai créé un formulaire avec un bouton qui permet de lire un fichier .txt formaté. La lecture du fichier se fait sans problème.

Je voudrais maintenant intégrer les informations du fichier dans une table à l'aide d'une instruction SQL.

L'écriture de la requête SQL ne me pose pas de problème, mais je bloque sur l'instruction que je dois utiliser, en amont, pour faire référence à ma base.

En farfouillant sur le forum j'ai trouvé ce genre de chose:

Code :

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

1
2
3
4
5
6
7
8
Fichier = ConvertToURL("C:\Documents and Settings\mimi\OOoBase.odb") 
 
oDBContext = CreateUnoService("com.sun.star.sdb.DatabaseContext") 
oDB = oDBContext.getbyName(Fichier) 
 
oBase = oDB.getConnection("","") 
oStatement = oBase.createStatement() 
...etc.

Est-ce que je dois utiliser ce type de procédure (ce que je ne suis pas arrivé à faire !), ou bien est-ce qu'il y a plus simple dans la mesure ou mon .odb est ouvert et pointe déjà sur la base ?

Je vous remercie par avance pour vos réponses.

Kenzo

[zoom61]

Salut,

Quelque chose comme cela :

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
17
18
19
20
21
sub ConnecterBase()
 
    cheminBdd = ConvertFromURL( ThisComponent.getURL ) 
    oDBContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
    oDB = oDBContext.getByName(cheminBdd)
    oBase = oDB.getConnection("","") 
    oStatement = oBase.createStatement() 
    strSQL = "SELECT ID, Valeur FROM T_TABLE1"
    oRequete = oStatement.executeQuery( strSQL )
    If Not IsNull(oRequete) Then
      While oRequete.next
        MsgBox oRequete.getString(1) & " / " & _
          oRequete.getString(2) 
      Wend
    End If
    oRequete.Close
    oStatement.Close
    oBase.Close
    oBase.Dispose
 
end sub

[kenzo31]

Salut,

Quelque chose comme cela :

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
17
18
19
20
21
sub ConnecterBase()
 
    cheminBdd = ConvertFromURL( ThisComponent.getURL ) 
    oDBContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
    oDB = oDBContext.getByName(cheminBdd)
    oBase = oDB.getConnection("","") 
    oStatement = oBase.createStatement() 
    strSQL = "SELECT ID, Valeur FROM T_TABLE1"
    oRequete = oStatement.executeQuery( strSQL )
    If Not IsNull(oRequete) Then
      While oRequete.next
        MsgBox oRequete.getString(1) & " / " & _
          oRequete.getString(2) 
      Wend
    End If
    oRequete.Close
    oStatement.Close
    oBase.Close
    oBase.Dispose
 
end sub

Bonjour,

Je viens d'implémenter le code que tu m'as fourni: ça marche impeccable!

Merci beaucoup pour ton aide.

kenzo