[COLOR=#333333][FONT=Arial]Function LookupText_V1 (strTableName, diTextID, strLng, strDefault)[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]' strLng: GER, ENU[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]' V1: Verbindung zur Datenbank wird jedesmal neu hergestellt[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Dim objConnection[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Dim objCommand[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Dim objRecordset[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Dim objTagServerName[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Dim objTagDBName_RT[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Dim strServerName[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Dim strDBName_RT[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Dim strDBName_CS[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Dim strConnectionString[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Dim strSQL[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Dim strValue[/FONT][/COLOR]
[COLOR=#000000][FONT=Calibri] [/FONT][/COLOR]
[COLOR=#000000][FONT=Calibri] [/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Set objTagServerName = HMIRuntime.Tags("@ServerName")[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]objTagServerName.Read()[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]strServerName = objTagServerName.value[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Set objTagDBName_RT = HMIRuntime.Tags("@DatasourceNameRT")[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]objTagDBName_RT.Read()[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]strDBName_RT = objTagDBName_RT.Value[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]strDBName_CS = Left(strDBName_RT, Len(strDBName_RT) - 1)[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]strConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & strDBName_CS & ";Data Source=" & strServerName & "\WINCC"[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Set objConnection = CreateObject("ADODB.Connection")[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]objConnection.ConnectionString = strConnectionString[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]objConnection.Open[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Set objCommand = CreateObject("ADODB.Command")[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]' Set objRecordset = CreateObject("ADODB.Recordset")[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]strsql = "SELECT dbo.ResourceList.RLISTID, dbo.ResourceList.RLISTNAME, dbo.ResourceListData.RANGE_FROM AS Number, dbo.ResourceListData.TEXTID, "[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]strsql = strsql & "dbo.TXTTable.L1031 AS Text_GER, dbo.TXTTable.L1033 AS Text_ENU "[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]strsql = strsql & "FROM dbo.ResourceList INNER JOIN dbo.ResourceListData ON dbo.ResourceList.RLISTID = dbo.ResourceListData.RLISTID "[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]strsql = strsql & "INNER JoIN dbo.TXTTable ON dbo.ResourceListData.TEXTID = dbo.TXTTable.TEXTID "[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]strsql = strsql & "WHERE (dbo.ResourceListData.RANGE_FROM = " & diTextID & ") And (dbo.ResourceList.RLISTNAME = '" & strTableName & "')"[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]objCommand.ActiveConnection = objConnection[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]objCommand.CommandText = strSQL[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Set objRecordset = objCommand.Execute[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]strvalue = strDefault[/FONT][/COLOR]
[COLOR=#000000][FONT=Calibri] [/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]If objRecordset.EOF = False Then[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]objRecordset.movefirst[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]If ucase(strLng) = "GER" Then[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]strValue = objRecordset.Fields("Text_GER").Value[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]End If[/FONT][/COLOR]
[COLOR=#000000][FONT=Calibri] [/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]If ucase(strLng) = "ENU" Then[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]strValue = objRecordset.Fields("Text_ENU").Value[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]End If[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]End If[/FONT][/COLOR]
[COLOR=#000000][FONT=Calibri] [/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]objConnection.close[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Set objCommand = Nothing[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Set objRecordset = Nothing[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Set objConnection = Nothing[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Set objTagServerName = Nothing[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Set objTagDBName_RT = Nothing[/FONT][/COLOR]
[COLOR=#000000][FONT=Calibri] [/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]LookupText_V1 = strValue[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]End Function[/FONT][/COLOR]
[COLOR=#000000][FONT=Calibri] [/FONT][/COLOR]
[COLOR=#000000][FONT=Calibri] [/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Die Funktion benötigt folgende Übergabeparameter:[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]- Name der Textliste[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]- TextID[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]- Sprachkennung: "GER" oder "ENU"[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]- Defaulttext, z.B. "n/a": Dieser Text wird zurückgegeben, wenn das Script nicht findet.[/FONT][/COLOR]
[COLOR=#000000][FONT=Calibri] [/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Gruß[/FONT][/COLOR]
[COLOR=#333333][FONT=Arial]Cookie[/FONT][/COLOR]