GELÖST Leeres ResultSet abfragen

[WSO]

Hallo @All,
Ich möchte ein leeres ResultSet einer Query abfragen.
Die Query mit der entsprechenden Where-Clausel bring keinen Datensatz.
Die Abfrage im Makro auf lerere Ergebnismenge ( IF Not IsNull(ResultSet_FAK) THEN)funktioniert aber nicht,
der ELSE-Zweig wird nicht durchlaufen!
Was mache ich da falsch?

Code: Alles auswählen

       
	oSql_FAK = oConnection.createStatement()
        stSql_FAK1 = "SELECT ""ohneRechnung"" FROM ""abfRechnungMoeglichSumme""" 
        stSql_FAK2 = " WHERE gel_kud_id = " & ikud_id
        stSql_FAK = stSql_FAK1 + stSql_FAK2
                 	    
        ResultSet_FAK = oSql_FAK.executeQuery(stSql_FAK)
        IF Not IsNull(ResultSet_FAK) THEN
           		WHILE ResultSet_FAK.Next
       				  iohneRechnung =  ResultSet_FAK.getDouble(1)
        			  IF iohneRechnung < 0.01 THEN
       			                iMessage = getMessage(43, iReplacement_1, iReplacement_2)
					GoTo pEXIT:	
				END IF
       			WEND
       		ELSE
       		' wird nicht durchlaufen, obwohl kein Datensatz gefunden! Warum ???????????? 
       			iMessage = getMessage(43, iReplacement_1, iReplacement_2)
			GoTo pEXIT: 
       	END IF
        ' Notloesung, da Else-Zweig bei "IF Not IsNull(ResultSet_FAK" nicht funktioniert 
		IF iohneRechnung < 0.01 THEN
       		        iMessage = getMessage(43, iReplacement_1, iReplacement_2)
			GoTo pEXIT:
		END IF       		

Danke vorab,
WSO

[acco]

Hallo Wolfram,

"null" ist nicht gleich "0".

' Notloesung, da Else-Zweig bei "IF Not IsNull(ResultSet_FAK" nicht funktioniert
IF iohneRechnung < 0.01 THEN

Das läßt vermuten, das der Wert "0" und nicht "null" gesucht wird. Versuche mal

Code: Alles auswählen

If ResultSet_FAK <> 0 THEN

Gruß

acco

[WSO]

Hi acco,
das läuft auf einen Basic-Fehler (Falscher Wert für Eigenschaft):
Ist auch logisch, ResultSet ist ein OBJECT.
Trotzdem danke für die Idee.
Gruss,
Wolfram

[RobertG]

Hallo Wolfram,

den folgenden Teil habe ich in der neuesten Handbuchversion raus geschmissen:

Code: Alles auswählen

IF Not IsNull(ResultSet_FAK) THEN

Es gibt immer eine Reaktion der Datenbank. Jede Abfrage, auch die Reaktion keinen Datensatz auszugeben, wird schließlich auch im Abfragemudul dargestellt.

Code: Alles auswählen

WHILE oAbfrageergebnis.next
i = oAbfrageergebnis.getInt(1)
WEND

Das Ganze beschränkt sich also darauf, in dem Ergebnis zu suchen. Das Feld, was zuerst nachgesehen wird, ist dann vermutlich NULL.

Code: Alles auswählen

IF Not IsNull(ResultSet_FAK.getDouble(1)) THEN

an entsprechender Stelle dürfte da vielleicht zielführender sein.

Gruß

Robert

[WSO]

Hi Robert,
danke das erklärt alles.
Dann mache ich mich mal an die Überarbeitung meiner Module ...
Sonnige Grüsse,
Wolfram

[DPunch]

Servus

Normalerweise überprüft man das einfach so

Code: Alles auswählen

	If ResultSet_FAK.Next Then
		'Datensätze gefunden
		Do
		'wasauchimmer
		Loop While ResultSet_FAK.Next
	Else
		'Keine Datensätze
	End If

[WSO]

Das gefällt.
Vielen Dank