Discussion :

[Junta]

Bonjour,

Je tiens tout d'abord à m'excuser si j'ai posté au mauvais endroit, mais je n'ai pas trouvé de section dédiée à Open Office.

J'ai créé une base de données MySQL , qui peut etre modifiée par un client ODBC (ici, OpenOffice Base).

Dans chacune des tables de ma base, figure un champ "DELETED", qui représente si oui ou non un tuple a été supprimé.
Le tout se fait par des formulaires, pour lesquels la commande "supprimer" a été desactivée.

=> Je souhaiterais ajouter un bouton de controle, qui déclencherait une requete SQL

Code :

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

"UPDATE <table> SET DELETED='1' WHERE identifiant=..."

En VBA , ca s'écrivait comme ca :

Code :

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

1
2
3
dim SQL as string
SQL = "UPDATE <table> SET DELETED='1' WHERE identifiant=..." 
Docmd.RunSQL SQL

Q: Que doit contenir ma routine OOBasic pour réaliser une telle opération ?
Q: Existe-t-il un site complet où apprendre l'OOBasic ?

[NiamorH]

salut

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
dim oDBContext as object 
dim oDB as object, oLaBase as object 
dim oStatement As object 
 
oDBContext = CreateUnoService("com.sun.star.sdb.DatabaseContext") 
oDB=oDBContext.getbyName("MyDB") 
oLaBase=oDB.getConnection("","") 
oStatement = oLaBase.createStatement() 
 
dim sqlreq as String 
dim oRequete as object 
 
sqlreq = "SELECT * FROM Table1" 
oRequete = oStatement.executeQuery( sqlreq ) 
oRequete.Next() 
msgbox oRequete.getColumns().getByName("Field1").getString() 
 
sqlreq = "INSERT INTO Table1 VALUES('Nothing')" 
oStatement.executeUpdate( sqlreq )

Est ce que ça t'éclaire ?

[Junta]

Bien sur que ça m'éclaire !

Tu as trouvé ça où ?

Merci ^^

[NiamorH]

Je suis en plein dedans en ce moment ... une petite appli pour mon stage.

va voir sur http://www.oooforum.org/ section macro et api je pense que c'est le forum le plus complet sur le sujet.. mais pas en francais