Company Not connected

Question

While using Recordset Object for gnerating CFL recordset object is not connected to company.The control is coming out of the loop.My source code is as follows:
strSQL = "select ItemCode,ItemName from OITM where ItmsGrpCod in (111,118)"
                oRecordset = oApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                oRecordset.DoQuery(strSQL)
                oCFL = Form.ChooseFromLists.Item("CFL_Item")
                oConditions = oCFL.GetConditions()
                oConditions = Nothing
                oCFL.SetConditions(oConditions)
                oConditions = oCFL.GetConditions()
                'On Error Resume Next
                If oRecordset.RecordCount > 0 Then
                    'On Error Resume Next
                    Do While Not oRecordset.EoF
                        '  On Error Resume Next
                        oCondition = oConditions.Add
                        oCondition.Alias = "ItemCode"
                        oCondition.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
                        oCondition.CondVal = oRecordset.Fields.Item(0).Value
                        oCFL.SetConditions(oConditions)
                        'On Error Resume Next
                        oRecordset.MoveNext()
                    Loop
                End If
                oCFL.SetConditions(oConditions)
Moderation: Please, avoid "urgent" remarks.
Edited by: Joaquin Fornas on Nov 11, 2011 11:58 AM

Answer 1

HI,
You have to provide :
vCmp.DBUserName = "sa"
vCmp.DBPassword = "B1Admin"
and
vCompany.Password = "manager"
vCompany.UserName = "manager"
and
if vCompany.Connect <> 0 then
msgbox "Not Connected!"
end if
is missing !
Regards,
J.
Edited by: Janos  Nagy on Jun 24, 2009 8:09 PM