home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 August / CHIPINTE082002.ISO / exe / access1.exe / access1.txt
Encoding:
Text File  |  2002-05-23  |  714 b   |  22 lines
  1. Public Function getText(strKey As String) As String
  2.     Dim rst As ADODB.Recordset
  3.     Dim strLanguage As String
  4.     Dim strKriterien As String
  5.     
  6.     ' Sprache ermitteln
  7.     Set rst = New ADODB.Recordset
  8.     strKriterien = "SELECT tblConfig.Sprache FROM tblConfig"
  9.     rst.Open strKriterien, CurrentProject.Connection
  10.     strLanguage = rst!Sprache
  11.     rst.Close
  12.     Set rst = Nothing
  13.     
  14.     ' Texte lesen
  15.     Set rst = New ADODB.Recordset
  16.     strKriterien = "SELECT tblTexte." & strLanguage & " FROM tblTexte WHERE (((tblTexte.KEY)='" & strKey & "'))"
  17.     rst.Open strKriterien, CurrentProject.Connection
  18.     getText = rst.Fields(0).Value
  19.     rst.Close
  20.     Set rst = Nothing
  21. End Function
  22.