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
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.
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