An dieser Stelle möchte ich wieder mal ein Beispiel eines PACE Suite MSI Editor Makros zeigen.
Mit diesem Makro ist es möglich, in einer bestimmten Tabelle nach einem Wert zu suchen und darauf zu reagieren.
Function fCheckExist(byVal sTable, byVal sColumn, byVal sValue)
'Purpose: checks for a certain value in a table
'declaration ----
Dim view, record, sQuery
'init ----
sQuery = "Select * From "&sTable&" WHERE "&sColumn&" = '"&sValue&"'"
'main ----
fCheckExist = False
Set view = database.OpenView(sQuery)
view.Execute
Set record = view.Fetch
If record is Nothing Then
fCheckExist = False
Else
fCheckExist = True
End If
End Function
Der Aufruf irgendwo innerhalb eines Makros sieht dann z.B. folgendermassen aus:
If fCheckExist("Component","Component","MyComponent") = False Then
do something
End If
Hiermit wird in der Tabelle „Component“ in der Spalte „Component“ nach einem Eintrag namens „MyComponent“ gesucht.