Querying DBDataSource using conditions (Visual Basic)
Public Sub QueryWithConditions()
Dim oForm As SAPbouiCOM.Form
Dim oDBDataSource As SAPbouiCOM.DBDataSource
Dim oConditions As SAPbouiCOM.Conditions
Dim oCondition As SAPbouiCOM.Condition
'// Add new form
Set oForm = SBO_Application.Forms.Add("SampleForm")
'// Add a DBDataSource for Bussines Partners table
Set oDBDataSource = oForm.DataSources.DBDataSources.Add("OCRD")
'// Create conditions collection
Set oConditions = SBO_Application.CreateObject(cot_Conditions)
'// Let's assume we wish our query to select
'// Business Partners of type "C" (Customers)
'// or "S" (Suppliers)
'// WHERE ((CardType = 'C') Or (CardType = 'S'))
'// the conditions collection encapsulates the WHERE clause
'// of a SELECT statement