'Set keyword

Function Step_01()   
 Dim db As Object
 Dim rSet As Object
 Dim rec As Object
 Dim i As Integer
 Dim count As Integer
 Dim keyword As String
 
 Client.CloseAll
 
 Set db = Client.OpenDatabase("Test for next\TestDB_keyword.IMD")
 Set rSet = db.RecordSet
 Set rec = rSet.ActiveRecord 
 
 count = rSet.Count
 
 For i = 1 To count
  rset.GetAt(i)
  keyword = rec.GetCharValueAt(1)
  Call Step_02(keyword)
 Next i
 
 Set rec = Nothing
 Set rSet = Nothing
 Set db = Nothing
 
 Client.RefreshFileExplorer
End Function


' Data: Direct Extraction

Function Step_02(ByVal keyword As String)
  Dim db As Object
  Dim task As Object
  Dim dbName As String
  Dim eqn As String
  


Set db = Client.OpenDatabase("Test for next\TestDB_data.IMD")
Set task = db.Extraction
task.IncludeAllFields
dbName = "Test for next\Data_" & keyword & ".IMD"
eqn = "@match(DATAFIELD_1;""" & keyword & """)"

task.AddExtraction dbName, "", eqn
task.CreateVirtualDatabase = False
task.PerformTask 1, db.Count
Set task = Nothing
Set db = Nothing


  Client.CloseDatabase("Test for next\TestDB_keyword.IMD")
  Client.CloseDatabase("Test for next\TestDB_data.IMD")
  Client.RefreshFileExplorer

End Function