[Résolu][Base] automatisation commande sql update

[felnors]

Titre : [Base] remplace [base]. (syntaxe des balises (première lettre en majuscule puis le reste en minuscules, le tout entre crochets)).
Le terme macro est inutile ici. Nous l'avons supprimé

Bonjour et meilleurs vœux 2017 à toutes et tous.

je souhaite exécuter une action de mise à jour de table la version sql est:

update "CHANGEMENT ADRESSE" set "IMPRIMEE"=1 WHERE "IMPRIMEE" = 0 AND "a imprimer" = 1

je n ai pas de problème sur l'exécution du code sql
J'ai traduit cette requête de la manière suivante

Code : Tout sélectionner

Sub maj_table
rem update "CHANGEMENT ADRESSE" set "IMPRIMEE"=1 WHERE "IMPRIMEE" = 0 AND "a imprimer" = 1
strSQL = "update ""CHANGEMENT ADRESSE"" set ""IMPRIMEE""= 1 WHERE ""IMPRIMEE"" = 0 AND ""a imprimer"" = 1"
End Sub

pour faire cette traduction je me suis inspiré de ce post https://forum.openoffice.org/fr/forum/v ... 86#p273961 et celui là https://forum.openoffice.org/fr/forum/v ... =15&t=1454
mais je n ai pas du tout comprendre

Si quelqu'un pouvait éclairer ma lanterne par avance Merci

[Dude]

Salut,

Tu ne fais que définir une chaîne de caractères.
En aucune façon, tu ne l'exécutes.
Regarde à nouveau le suprême de code pour voir des exemples de connexion et d'exécution de SQL.

[Piaf]

Bonjour
A tester car je ne peux pas le faire sans base exemple

Code : Tout sélectionner

Sub maj_table
Dim oConnexion as Object, maRequete as Object
Dim strSQL as String
	If isNull(thisDatabaseDocument.CurrentController.ActiveConnection) Then
		thisDatabaseDocument.CurrentController.connect
	End If
	oConnexion = thisDatabaseDocument.CurrentController.ActiveConnection
	maRequete = oConnexion.createStatement()
	strSQL = "update ""CHANGEMENT ADRESSE"" set ""IMPRIMEE""= 1 WHERE ""IMPRIMEE"" = 0 AND ""a imprimer"" = 1"
	maRequete.executeUpdate(strSQL)
End Sub

A+

[felnors]

Un grand merci pour vos retour

j'essaie ça ce soir à la maison


@ +

Jérôme

[felnors]

Un grand merci Piaf ça marche nickel me reste plus qu à potasser un peu plus en avant pour automatiser deux trois truc.
A Dude c est vrai que j aurai du me douter que ca ne pouvait pas être aussi simple, il va falloir que je me mette un peut plus les main dans le cambouis.

Merci d votre réactivité

Jérôme

ps je passe donc le post en Résolu

[micmac]

Bonjour ,

open office 3.3.0 sous windows xp

Votre signature indique que vous disposez d'une version de OpenOffice qui n'est plus maintenue.
Est-ce une erreur, un choix, un oubli, une obligation ?
Dans ce dernier cas, mentionnez-le dans votre signature par "Obligation de version".

Il est recommandé d'être à jour de la dernière version : https://forum.openoffice.org/fr/forum/v ... m.php?f=38.

Dans votre signature vous devez indiquer :
1- La version exacte de AOO ou LibO (AOO 4.1.3, LibO 5.1.6 par exemple) ;
2- La version exacte du système d'exploitation (Windows XP SP3, Vista SP2, Windows 7 SP1, Win 8.1, Win 10, Ubuntu 16.04, MacIntel 10.12.2, par exemple).
Accès direct à votre signature pour la corriger.

Cordialement.