Description
Example
| Querying DBDataSource using conditions (Visual Basic) | Copy Code |
|---|
Public Sub QueryWithConditions()
Dim oForm As SAPbouiCOM.Form
Dim oDBDataSource As SAPbouiCOM.DBDataSource
Dim oConditions As SAPbouiCOM.Conditions
Dim oCondition As SAPbouiCOM.Condition
Set oForm = SBO_Application.Forms.Add("SampleForm")
Set oDBDataSource = oForm.DataSources.DBDataSources.Add("OCRD")
Set oConditions = SBO_Application.CreateObject(cot_Conditions)
Set oCondition = oConditions.Add
oCondition.BracketOpenNum = 2
oCondition.Alias = "CardType"
oCondition.Operation = co_EQUAL
oCondition.CondVal = "C"
oCondition.BracketCloseNum = 1
oCondition.Relationship = cr_OR
Set oCondition = oConditions.Add
oCondition.BracketOpenNum = 1
oCondition.Alias = "CardType"
oCondition.Operation = co_EQUAL
oCondition.CondVal = "S"
oCondition.BracketCloseNum = 2
oDBDataSource.Query oConditions
End Sub
|
|
Example
See Also