Un résultat de requête vide n'est pas détecté par isnull()

Version imprimable

11/02/2016, 14h24
Filou07

Un résultat de requête vide n'est pas détecté par isnull()

Bonjour,

Encore moi : je lance une requête de sélection en basic en suivant le tutoriel de la faq OOo et Libo.

Lorsque la requête contient un résultat, tout va bien. Lorsqu'elle ne renvoie rien, la commande

Code:

If Not IsNull(oRequete) or Not IsEmpty(oRequete) Then .....

ne détecte pas que la requête est vide et du coup je récolte une erreur

Citation:

Erreur d'exécution BASIC.
Une exception s'est produite :
Type: com.sun.star.sdbc.SQLException
Message: Illegal operation on empty result set..

Comment faire ?
11/02/2016, 15h53
zoom61

Salut,

Êtes-vous sur que la requête est correcte ? Car le code de la FAQ fonctionne bien, par contre si la code SQL n'est pas correct cela ressort ce résultat.

Pour voir si le code SQL est correct, il faut mettre un msgbox du code SQL, le copier et le mettre dans une requête pour voir s'il est correct.

Cdlt.
11/02/2016, 17h30
Filou07

Oui oui j'ai oublié de préciser que je l'avais fait: la requête affiche une ligne remplie quand elle fonctionne et une ligne vide quand elle ne fonctionne pas en basic...

D'ailleurs le copier coller depuis une msgbox c'est quand même une super fonctionnalité dont Access pourrait s'inspirer
12/02/2016, 07h45
zoom61

Pour ma part, cela fonctionne correctement, sans avoir plus d'éléments le code complet, ce que tu obtiens avec le msgbox du code SQL... nous ne pouvons rien dire de plus.

Cdlt.

2 pièce(s) jointe(s)

Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
	'Définitions
	dim ListeActe as object, ListeCodeCommune as object, ListeNomCommune as object
	dim NumOrdre as object
	dim txtSQL as string
	dim Me as object
	dim oDBContext as object, oDB as object, oStatement as object, oResultat as Object
 
	'Instanciations
	Me=ThisComponent.DrawPage.Forms.getByName("Formulaire")
	MeFrmActes= ThisComponent.DrawPage.Forms.getByName("frmActes")
	MeFrmCommunes= ThisComponent.DrawPage.Forms.getByName("frmCommunes")
 
	'Validations
            rem .....
            rem .....
            rem .....
 
	'Comme tout est valide, on vérifie si le dossier n'existe pas déjà
		'Crée une requete de vérification
		oDBContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
		oDB = oDBContext.GetByName("NomDeMaBase").GetConnection("","")
		txtSQL="SELECT `NumDossier`, `xNumActe`, `xNumCommune`, `AnneeDossier`, `NumeroOrdre` FROM `xxxxxx`.`T_Dossiers` `T_Dossiers` WHERE `xNumActe` = " & listeActe.SelectedValue & " AND `xNumCommune` = " & ListeCodeCommune.SelectedValue & " AND `AnneeDossier` = " & me.getbyname("txtAnneeDossier").text & " AND `NumeroOrdre` = '" & NumOrdre.text & "'"
		oStatement=oDB.createStatement()
		oResultat=oStatement.executeQuery(txtSQL)
 
		if not isNull(oResultat) or not isEmpty(oResultat) then'.columns.GetByName("NumDossier").string) then
			oResultat.Next
			msgbox ("Existe sour le numéro " & oResultat.Getstring(1)) ' équivalent à ... & oResultat.columns.GetByName("NumDossier")
		else
			msgbox("n'existe pas encore")	
		endif

Captures d'écran du résultat quand je colle le code SQL dans une requête :

Quand oResultat renvoie un résultat :
Pièce jointe 200626

Quand oResultat ne renvoie rien et est censé être Null :
Pièce jointe 200627

Serait-ce parce qu'il affiche quand même une ligne avec <AutoChamp> ?

12/02/2016, 08h13
zoom61

Salut,

Peux-tu essayer en replaçant la ligne :

Code:

txtSQL="SELECT `NumDossier`, `xNumActe`, `xNumCommune`, `AnneeDossier`, `NumeroOrdre` FROM `xxxxxx`.`T_Dossiers` `T_Dossiers` WHERE `xNumActe` = " & listeActe.SelectedValue & " AND `xNumCommune` = " & ListeCodeCommune.SelectedValue & " AND `AnneeDossier` = " & me.getbyname("txtAnneeDossier").text & " AND `NumeroOrdre` = '" & NumOrdre.text & "'"

Par

Code:

txtSQL="SELECT ""NumDossier"", ""xNumActe"", ""xNumCommune"", `""AnneeDossier"", ""NumeroOrdre"" FROM ""xxxxxx"".""T_Dossiers"" ""T_Dossiers"" WHERE ""xNumActe"" = " & listeActe.SelectedValue & " AND ""xNumCommune"" = " & ListeCodeCommune.SelectedValue & " AND ""AnneeDossier"" = " & me.getbyname("txtAnneeDossier").text & " AND ""NumeroOrdre"" = '" & NumOrdre.text & "'"

Salut,

Le message d'erreur est le même :aie:

Du coup, j'ai rusé : sachant que, dans mon cas, quand la requête renvoie un résultat, c'est toujours une seule ligne. Cette ligne est donc à la fois le premier enregistrement et le dernier enregistrement.

Du coup j'ai modifié mon code :
Code:

1 2 3 4 5 6 7 8 9 oResultat=oStatement.executeQuery(txtSQL) oResultat.Next if oResultat.isLast() and oResultat.isFirst() Then 'Existe déjà msgbox ("Existe sour le numéro " & oResultat.Getstring(1)) else 'Nexiste pas encore msgbox("n'existe pas") endif