IIf-Abfragen im SQL-Statement Dieser Code zeigt, wie man Abfrage-Bedingungen innerhalb SQL-Abfragen formuliert - sowohl für Access-Datenbanken, als auch MS SQL Server Datenbanken.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  11.624
www.tools4vb.de	System:  WinXP, Vista, Win7, Win8, Win10	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 3 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Die IIf-Abfrage von VB ist eine sehr häufige Form einer Bedingungsabfrage. Die IIf-Funktion gibt einen von zwei Teilwerten zurück, je nachdem ob die Bedingung erfüllt ist oder nicht:

' Ist a = 0, zeige den Text "nein" an, andernfalls "ja"
Label1.Caption = IIf(a = 0, "nein", "ja")

Diese IIf-Funktion kann auch innerhalb SQL-Abfragen verwendet werden. Bei Access-Datenbanken entspricht die Syntax exakt der aus VB. Beim MS SQL Server muss man die Abfrage etwas anders formulieren.

Access-Datenbanken

SELECT IIF(Termin1 Is Null, Termin2, Termin1) ...

MS SQL Server

SELECT CASE WHEN Termin1 Is Null THEN Termin2 ELSE Termin1 END ...

Ich persönliche habe mir das Ganze in eine kleine Funktion verpackt:

' VBA-Funktionen / SQL-Funktionen
Public Function dbSQLFunc(ByVal sFunc As String, ParamArray vExpr() As Variant) As String
  Select Case UCase$(sFunc)
    ' IIf(...,...,...) Funktion
    Case "IIF"
      If DbSystem = dbMSAccess Then
        dbSQLFunc = "IIf(" & vExpr(0) & "," & vExpr(1) & "," & vExpr(2) & ")"
      Else
        dbSQLFunc = "CASE WHEN " & vExpr(0) & " THEN " & vExpr(1) & " ELSE " & vExpr(2) & " END"
      End If
  End Select
End Function

Je nach verwendetem Datenbanksystem (Access oder SQL-Server) generiert die Funktion dbSQLFunc die korrekte SQL-Syntax.

Beispiel:

Dim sSQL As String
sSQL = "SELECT " & dbSQLFunc("IIF", "Termin1 Is Null", "Termin2", "Termin1") & " FROM ..."

Die dbSQLFunc-Funktion werden wir in der nächsten Zeit noch um weitere hilfreiche Abfrage-Funktionen erweitern.