FlowFact - Entwicklungstools

zurück

Function - GetLandRS
Ermittelt die Länder-Liste

  Function GetLandRS() As Recordset  
 




Public Function GetLandRS() As Recordset
    Dim strSQL As String

    strSQL = "SELECT RIGHT(postorte.alort,4) AS Id, postorte.oname AS Land, postorte.ozusatz AS LandKurz, postplz.vorwahl As Vorwahl " & _
             "FROM postplz " & _
             "INNER JOIN postorte ON postplz.alort = postorte.alort " & _
             "WHERE postorte.alort LIKE 'land%' " & _
             "ORDER BY postorte.oname "
    Set GetLandRS = m_oApplication.oBase.FF_GetRecordset(strSQL)
End Function