Macro: requêtes sur une base qui ne font rien

BenoitJY · July 4, 2024, 3:43pm

Bonjour
Je suis sous debian trixie, avec libreoffice 24.2.3.2
Je reprends un classeur que j’avais créé pour gérer les devis et factures, basé sur ooofact.
Dans celui-ci, je veux effectuer deux opérations sur la base de données enregistrée:
effacer la ligne ID=1
Rentrer les nouvelles infos à la place.
voici le code

Sub ConnecterSource()
'Création du contexte
NomSource = "BasePublipostage"
monDbContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
maSource = monDbContext.getByName(NomSource)

maConnexion = maSource.getConnection("","")

if IsNull(maConnexion) then
  MsgBox("Connexion impossible", 16)
  Stop
end if
End Sub


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

Sub ouvrirContrat(fich)
	If Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools") then
   		GlobalScope.BasicLibraries.LoadLibrary("Tools")
	End If
	dim Saisie as object, Factures as object, Clients as object, Presta as object, publie as object
	dim Numero as String, NumDevis as string, NumAff as string, sDocUrl as string, Col as string, CompileDates as string, Ref as string
	dim i as integer, Pd as integer, Nbrl as integer, cc as integer, Z as integer, y as integer, j as integer
	Dim Fichier As String
	Dim Wb As Object
	Dim Args()
	dim maRequete as Object, resultat as long
	dim insertSQL as String, reqSQL as string
	dim champBase(16) as string
	
	<code pour remplir champBase, ça marche>

	ConnecterSource
	maRequete = maConnexion.createStatement()

	'on efface les précédents enregistrements
	reqSQL = "delete from " & Chr(34) & "BasePublipostage" & Chr(34) & " "
	maRequete.executeUpdate(reqSQL)
	
	'on insère les champs demandés
	insertSQL = "insert into " & Chr(34) & "BasePublipostage" & Chr(34) & "(" & Chr(34) & "ID" & Chr(34) & "," & Chr(34) & "Nom structure" & Chr(34) & "," & Chr(34) & "Adresse" & Chr(34) & "," & Chr(34) & "Siret" & Chr(34) & "," & Chr(34) & "Licence" & Chr(34) & "," & Chr(34) & "APE" & Chr(34) & "," & Chr(34) & "Representant" & Chr(34) & "," & Chr(34) & "Prestation" & Chr(34) & "," & Chr(34) & "Montant presta" & Chr(34) & "," & Chr(34) & "Montant Kms" & Chr(34) & "," & Chr(34) & "Nbre prestas" & Chr(34) & "," & Chr(34) & "Dates" & Chr(34) & "," & Chr(34) & "compilDates" & Chr(34) & "," & Chr(34) & "Equipe" & Chr(34) & "," & Chr(34) & "Repas" & Chr(34) & "," & Chr(34) & "Hebergement" & Chr(34) & "," & Chr(34) & "Droits" & Chr(34) & ") values(" & Chr(39) & "1" & Chr(39) & "," & Chr(39) & champBase(1) & Chr(39) & "," & Chr(39) & champBase(2) & Chr(39) & "," & Chr(39) & champBase(3) & Chr(39) & "," & Chr(39) & champBase(4) & Chr(39) & "," & Chr(39) & champBase(5) & Chr(39) & "," & Chr(39) & champBase(6) & Chr(39) & "," & Chr(39) & champBase(7) & Chr(39) & "," & Chr(39) & champBase(8) & Chr(39) & "," & Chr(39) & champBase(9) & Chr(39) & "," & Chr(39) & champBase(10) & Chr(39) & "," & Chr(39) & champBase(11) & Chr(39) & "," & Chr(39) & champBase(12) & Chr(39) & "," & Chr(39) & champBase(13) & Chr(39) & "," & Chr(39) & champBase(14) & Chr(39) & "," & Chr(39) & champBase(15) & Chr(39) & "," & Chr(39) & champBase(16) & Chr(39) & ")"
	maRequete.executeUpdate(insertSQL)
	DeconnecterSource
	
End Sub

Et là, il ne se passe rien. Pas d’erreurs, aucune modification de la base de donnée.
C’est un code qui fonctionnait, mais plus, je m’arrache les cheveux dessus.
Comme j’ai le nez dedans depuis pas mal d’heures, il est possible que je passe à coté d’une énorme erreur sans la voir.
Est-ce que quelqu’un aurait un début de piste à me proposer?

fpy · July 4, 2024, 6:59pm

est-ce qu’un SELECT fonctionne ?

BenoitJY · July 4, 2024, 7:42pm

Pas d’erreur, mais retour du select vide

fpy · July 4, 2024, 7:48pm

code à tester sur une base simple fraichement créée.
investiguer ensuite sur ce classeur que [j]’avais créé …

BenoitJY · July 6, 2024, 1:02pm

Oui, j’avais reconstruit la base de zéro, ça n’a rien changé

elmau · July 4, 2024, 4:00pm

maConnexion est local à la macro ConnecterSource.

Essayez de la déclarer au niveau du module

BenoitJY · July 4, 2024, 4:17pm

Merci de ta réponse
Pour être sur d’y voir clair, il s’agit de déclarer

dim maConnexion as object

en dehors de sub? Si c’est cela, c’est fait. Sinon, pourrais-tu me préciser?

elmau · July 4, 2024, 4:43pm

Si, est-ce exact… avez-vous procédé ?

BenoitJY · July 4, 2024, 5:07pm

Oui, tout est déclaré en dehors du sub

valioud · July 5, 2024, 12:23pm

L’ODB est connecté à quoi : une source native en HSQLDB ou c’est sur un classeur ODS ?

BenoitJY · July 6, 2024, 1:04pm

une base de donnée intégrée firebird

valioud · July 8, 2024, 1:47pm

Firebird est toujours déclaré comme fonctionnalité expérimentale.
Mieux vaut rester sur HSQLDB.

BenoitJY · July 8, 2024, 7:03pm

D’accord, je le note, même si je n’ai pas souvenir d’avoir activé les fonctions expérimentales. Mais le problème se produit également avec une base HSQLDB, c’est lors de la recréation que LO demande systématiquement la migration. J’ai donc opté pour recréer via firebird

BenoitJY · July 9, 2024, 10:19am

Et pourtant… C’était ça! Je suis reparti de zéro, avec profile LO neuf, base de donnée recréée totalement en HSQLDB, ça “refonctionne”. Merci, valioud, et les autres, pour cette réflexion commune.