Forum Clubic

Programmer sous Base d'OpenOffice

Bonjour,

J’ai créé des tables sous OpenOffice avec le module base et j’aimerai bien faire un peu de programmation autour de ces tables.
Existe t’il des liens gratuits on l’on peut trouver des tutorials sur le sujet ?

Merci

a+

Je reviens sur le sujet pour donner un peu plus de précision.
En fait dans le module base d’openoffice, j’arrive à insérer des requêtes en allant dans le menu sous outil/sql

exemple de requête : INSERT INTO “DV Etoile” VALUES (‘SOLA’, ‘Soleil’, ‘Soleil’, ‘AB’)

En fait j’aimerai pouvoir exécuter cette requête dans une macro que j’exécuterai en appuyant par exemple sur un bouton dans un formulaire mais çà ne marche pas.

j’écris çà :

Sub Main

INSERT INTO “DV Etoile” VALUES (‘SOLA’, ‘Soleil’, ‘Soleil’, ‘AB’)

End Sub

et j’obtiens l’erreur suivante : Erreur de syntax basic. Attendu :,.

Qui peut m’aider svp ???

Merci

Salut,

Peut être que tu trouveras des choses intéressantes ici :
fr.openoffice.org…

Je pense que oui.

Merci beaucoup.

A mon avis, tu ne dois pas pouvoir écrire du SQL directement dans le (très) Basic de OpenOffice.

Ca doit être un truc genre executeStatement() sur un objet quelconque (cf. doc d’openoffice, je n’y connais rien).

En fait çà n’a pas l’air simple tout çà.

Quelqu’un pourrait il me donner un exemple de code sql sous le basic d’open office.
Comment j’exécute une requête SQL dans basic ?

Finalement, j’ai trouvé tout seul en cherchant ici et là sur d’autre site.
:slight_smile:

Voici le résultat si çà peut servir à quelqu’un :

Explorer, c’est le nom de ma base de donnée qui doit être déclaré sous outil/option/openoffice.org Base/base de données dans le menu du haut dans base.

Sub Main

dim maRequete As Object
dim resuQuery As Object
dim instrSQL As string

ConnecterSource
instrSQL = “INSERT INTO ““DV Etoile”” VALUES (‘SOLE’, ‘Soleil’, ‘Soleil’, ‘AB’);”
maRequete = maConnexion.createStatement()
resuQuery = maRequete.executeQuery(instrSQL)
DeconnecterSource

End Sub

Public maConnexion As Object

Sub ConnecterSource()
Dim NomSource As String, login As String, password As String
Dim maSource As Object, monDbContext As Object
'Création du contexte
NomSource = “Explorer”
monDbContext = CreateUnoService(“com.sun.star.sdb.DatabaseContext”)
maSource=monDbContext.getByName(NomSource)
'Les paramètres de connexion
login = “”
password = “”
maConnexion = maSource.getConnection(login, password)
if IsNull(maConnexion) then
MsgBox(“Connexion non établie”, 16)
End if
if NOT IsNull(maConnexion) = False then
MsgBox(“Problème de connection : la connexion n’est pas établie”)
End if
if NOT IsNull(maConnexion) = True then
MsgBox(" la connexion est établie")
End if

End Sub

Sub DeconnecterSource()
maConnexion.close
maConnexion.dispose
End Sub