[Résolu][Base] Requête SQL sans résultat

[PNE-EdT]

Bonjour,

Je me tourne une nouvelle fois vers vous car je ne sais pas détecter lorsque une requête SQL ne renvoi pas de résultat significatif.

j'ai lu dans le forum le sujet quasi identique 'https://forum.openoffice.org/fr/forum/v ... at#p280918'

Mais je pense que ma requête renvoie un résultat (je recherche le code minimum suivant d'un liste de code par article) mais vide et je ne sais pas comment le contrôler:

Code : Tout sélectionner

conn = Connexion_BDD
Stmt=Conn.createStatement()
 
strSQL="Select min (""Code"") as ""ID"" from ""Code"" where ""article"" = 65 and ""Code""> 3 "   
oRslt =  Stmt.executeQuery(strSQL)
oRslt.next 

if oRslt.next  then
     msgbox (oRslt.getColumns().getByName("Code").getInt())         
else
     msgbox ("pas de reslt")
End if

Si j'ai résultat c'est Ok, mais si je n'ai pas de résultat la ligne oRslt.getColumns().getByName("Code").getInt() me retourne 0
C'est peut être dû à la fonction getInt mais je ne vois pas comment faire.

Merci de m'apporter vos lumières
PNE-EdT

[micmac]

Bonjour,

Avant de poster une nouvelle question, il nous serait agréable que vous donniez suite au fil précédemment ouvert :
Tris sur valeurs
notamment en précisant la solution retenue et en ajoutant le balisage [Résolu] si c'est le cas.
C'est une question de courtoisie pour les gens qui vous ont répondu et consacré bénévolement de leur temps. Notre forum est plus lisible avec ce balisage comme vous avez pu vous en rendre compte en le parcourant.

Merci de votre collaboration

[DLE]

Bonjour,

Je n'ai pas tout compris, surtout sans fichier, mais pourriez-vous supprimer le premier

Code : Tout sélectionner

oRslt.next

Cdlt.

[PNE-EdT]

Bonjour,

Je vous ai extrait les éléments de ma base pour expliciter le problème dans un fichier.
(en fait j'ai une base postgres plus grosse, voilà pourquoi je n'avais mis dans un premier temps la base... je pensais le problème simple surtout qu'il y avait déjà un post du même genre dans le forum : le forum le sujet quasi identique 'https://forum.openoffice.org/fr/forum/v ... at#p280918')

Donc j'ia pris le temps d'extraire ma table et ma macro dans un fichier Libo.
Le problème est le même: mon but est de connaitre le code suivant parmi un ensemble de codes liés à un article:
Ma première requête est (Requête1erArgument)

Code : Tout sélectionner

SELECT MIN( "Code" ) AS "codeactuel" FROM "Code" WHERE "article" = 65 AND "Code" > 3

Le résultat est correct avec la macro

Ma seconde requête est (Requête2ndArgument)

Code : Tout sélectionner

SELECT MIN( "Code" ) AS "codeactuel" FROM "Code" WHERE "article" = 65 AND "Code" > 8

Le résultat est faux avec la macro j 'ai 0 au lieu de vide , je ne comprends pas pourquoi

Dans l'exemple joint j'utilise une fonction car je devrais répéter plusieurs fois:
SELECT MIN( "Code" ) AS "codeactuel" FROM "Code" WHERE "article" = NN AND "Code" > NN


J'espère avoir été assez limpide.
Merci de votre aides

[Piaf]

Bonjour
Minimum revoie un enregistrement et Libo l'interprète la donnée comme 0
Tu peux tester

Code : Tout sélectionner

Function CodeSuivantCorrige (article as Integer, CodeCourant as Integer) as String
	maConnexion = ThisDatabasedocument.CurrentController.ActiveConnection
	maRequete = maConnexion.createStatement()
	strSQL = "SELECT MIN(""Code"") AS ""codeactuel"", ""article"" FROM ""Code"" WHERE ""Code"" > " & CodeCourant & " GROUP BY ""Code"".""article"" HAVING ( ( ""article"" = " & article & " ) )"
 	resultat = maRequete.executeQuery(strSQL)			
	If resultat.Next Then	
		CodeSuivantCorrige = resultat.Columns(0).Int()
	Else
		CodeSuivantCorrige = "pas de reslt"
	End if								
End Function

Sub Main
	MsgBox CodeSuivantCorrige(65,3)
	MsgBox CodeSuivantCorrige(65,8)
End Sub

A+

[PNE-EdT]

Bonjour

j'ai testé et c'est OK
Merci beaucoup