Link betwwen xml object and VB code

[Former Member]

Hello,

I don't arrive to link my xml objet and my VB code.

I load my XML form.

I'm connected to the company.

My object (business partners) in the VB code have the right value.

But I can't show the object value in my object it_EDIT)on the xml form.

Could you help me.

Thanks

Jerome

[Former Member]

Hi Jerome,

make sure that you have linked your EditText to a valid dbdatasource referring your table and column.

Before any data is displayed, you also need to execute

MyDbDatasource.Query to actually get the data.

Also look into the basic sample code provided by SAP.

HTH

Lutz Morrien

[Former Member]

Hi

I could not understand what is it that you need to do.

Please attach some code - so I'll have better understanding of what you're trying to do.

Best regards

Yaniv G.

SDK Support

SAP Manage Israel.

[Former Member]

Hi,

Thank you for you help.

There are my 3 files (XML, global and form1)

The XML file (test_XML) :

0 Then

Obj_Company.GetLastError(lErrCode, sErrMsg)

MsgBox(sErrMsg)

Else

MsgBox("Connecté à la société : " & Obj_Company.CompanyName)

'aff()

End If

End Sub

' Private Sub Proc_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

Private Sub aff()

Obj_Business_Partners = Obj_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oBusinessPartners)

Obj_Record_Set = Obj_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)

Obj_Record_Set.DoQuery("Select cardcode from ocrd where cardtype = 'C'")

Obj_Business_Partners.Browser.Recordset = Obj_Record_Set

Affiche_Resultat()

End Sub

Private Sub Affiche_Resultat()

MsgBox("CardCode : " & Obj_Business_Partners.CardCode)

MsgBox("CardName : " & Obj_Business_Partners.CardName)

' Here is my problem.

' I would like that CardCode and CardName containt the data and show in my windows called test_XML.

' Whit the two above lignes, I check that my Obj_Business_Partners containt the data.

'CardCode.Text = Obj_Business_Partners.CardCode

'CardName.Text = Obj_Business_Partners.CardName

End Sub

End Class