Temat: Zmiana funkcji na postgresową
Witam
W bazie Accessa mam taką funkcję, chciałbym przenieść ja do postgresa ale nie wiem jak rozwiązać problem "strKryterium " i IF-ów po wykonaniu select-a, czy każde pole powinienem przekazywać do INTO zmienna i pozniej ja sprawdzać żeby sprawdzić stan akceptacji urlopu ??
z góry dzieki za pomoc
AdamP.
Function urlopAkceptacja(zm_pracownik_id, zm_nr_kolejny) As String
Dim recSet1 As ADODB.Recordset
Dim strSQL1, strKryterium As String
Set recSet1 = New ADODB.Recordset
If zm_nr_kolejny = 1 Then
strKryterium = "nr_pracownika=" & zm_pracownik_id
strKryterium = strKryterium & " And nr_kolejny = 1"
Else
strKryterium = "nr_pracownika=" & zm_pracownik_id
strKryterium = strKryterium & " And nr_kolejny = " & zm_nr_kolejny
End If
strSQL1 = " SELECT urlop_akceptacja,urlop_kiedy_zaakcept,urlop_kiedy_wpisano,urlop_anulowanie FROM tbl_urlopy where " & strKryterium
recSet1.Open strSQL1, PolPostgres, adOpenKeyset, adLockOptimistic
If recSet1!urlop_anulowanie = "Anulowanie" Then
urlopAkceptacja = "Anulowanie urlopu"
ElseIf recSet1!urlop_akceptacja = "Anulowany" Then
urlopAkceptacja = "Anulowany"
ElseIf recSet1!urlop_akceptacja = "TAK" Then
urlopAkceptacja = "Zaakceptowany"
ElseIf recSet1!urlop_akceptacja = "NIE" Then
urlopAkceptacja = "Nie zaakceptowany"
ElseIf IsNull(recSet1!urlop_akceptacja) And Not IsNull(recSet1!urlop_kiedy_wpisano) Then
urlopAkceptacja = "W trakcie rozpatrywania"
Else
urlopAkceptacja = "Brak wniosku na urlop"
End If
End Function