Discussion :

[Eruil]

Bonjour, j'ai l'habitude de programmer des macros sous excel et je viens d'hériter d'une appli réaliser avec calc. J'aurais besoin de me connecter à une base de donnée Mysql dans une macro, et j'ai beau chercher sur google je ne trouve rien. Je finis par me demander si c'est possible.

en vba je procède comme suit :

Code :

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

1
2
3
dim cnx as New ADODB.Connection
cnx.ConnectionString="Ma chaîne de connexion"
cnx.open

[SilkyRoad]

bonsoir

Je ne connais pas MySQL mais j'espère que ce lien pourra t'aider:

http://ooo.developpez.com/faq/?page=Base



Tu peux essayer en adaptant le chemin de ta base...

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
22
23
24
25
26
27
28
29
Sub RequeteBase_V02
Dim oDBContext As Object , oDB As Object , oBase As Object 
Dim oStatement As Object , oRequete As Object
Dim strSQL As String , Fichier As String
 
Fichier = ConvertToURL("C:\Documents and Settings\mimi\dossier\OOoBase.odb")
 
oDBContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
oDB = oDBContext.getbyName(Fichier)
 
oBase = oDB.getConnection("","") 
oStatement = oBase.createStatement() 
 
strSQL = "SELECT ""ID"",""Champ1"",""Champ2"" FROM ""maTable"" " & _
    "WHERE ""Champ2""=12345"
oRequete = oStatement.executeQuery( strSQL ) 
 
If Not IsNull(oRequete) Then
  While oRequete.next
    MsgBox oRequete.getString(1) & " / " & _
      oRequete.getString(2) & " / " & oRequete.getString(3)
  Wend
End If
 
oRequete.Close
oStatement.Close
oBase.Close
oBase.Dispose
End Sub

bonne soirée
michel

[Eruil]

Merci beaucoup c'est tout à fait ça .. En fait ce que je n'avais pas compris c'est qu'il faut forcément passer par création d'un fichier oooBase ... Une fois ce fichier crée, j'ai lié ma base mysql et enregistré le fichier. et ensuite j'ai pu appliquer la méthode que tu indiques.

Merci