![]() |
FlowFact - Entwicklungstools |
![]() |
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 |