-> Hier kostenlos registrieren
Hier mal die 2 benutzten Funktionen:
Das werde ich mal testen Kai
pylades
Function Get_Data( Datenbaustein , Start )
Dim offset,temp, bahn
Select Case Datenbaustein
Case 100
bahn="Bahn 4"
Case 101
bahn="Bahn 3"
Case 102
bahn="Bahn 2"
Case 103
bahn="Bahn 1"
Case 104
bahn="Bahn 0"
End Select
bahn=bahn & " Wagen " & Start
SetValue SmartTags("txt_bahn_platte"), bahn
offset=(Start-1)*22
SetValue SmartTags("Index_DB"), Datenbaustein
SetValue SmartTags("Index_DW_Nummer"), offset
SetValue SmartTags("Index_DW_Zugelegt"), offset+2
SetValue SmartTags("Index_DW_Abgegossen"), offset+10
SetValue SmartTags("Index_DW_Gewicht"), offset+18
SetValue SmartTags("Index_DW_Bits"), offset+20
HmiRuntime.Trace SmartTags("Wagen Nummer Index")
Get_Ident (SmartTags("Wagen Nummer Index"))
Get_Data="OK"
ActivateScreen "Dateneingabe Button", 0
---------------------------------------------------------------------------------------
Function Get_Ident( Number )
Dim objConnection
Dim objCommand
Dim objRecordset
Dim strConnectionString
Dim strSQL
Dim lngValue
Dim lngCount
Dim nummer
strConnectionString = "Provider=MSDASQL;DSN=test;UID=;PWD=;"
strSQL="SELECT Gewichte.Ident, Gewichte.Hersteller FROM Gewichte WHERE (((Gewichte.Nummer)= " & Number & "));"
HmiRuntime.Trace strSQL
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objRecordset = CreateObject("ADODB.Recordset")
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSQL
Set objRecordset = objCommand.Execute
If Not objRecordset.EOF Then
SmartTags("datafound_txt") = objRecordset.Fields.Count
objRecordset.movefirst
SmartTags("intern_Ident")= objRecordset.Fields(0).Value
SmartTags("intern_Hersteller")= objRecordset.Fields(1).Value
Get_Ident="OK"
Else
SmartTags("datafound_txt") = "Datensatz wurde nicht gefunden"
Get_Ident="Fehler"
End If
Set objCommand = Nothing
objConnection.Close
Set objRecordset = Nothing
Set objConnection = Nothing
Das werde ich mal testen Kai
pylades