Dim Axapta As Object
Dim MyRecord As Object
Set Axapta = CreateObject("AxaptaCOMConnector.Axapta")
Axapta.Logon "Admin", "", "", ""
Set MyRecord = Axapta.CreateRecord("MyTable")
MyRecord.InitValue
MyRecord.Field("Name") = "MyName"
MyRecord.Field("Address") = "MyAddress"
MyRecord.Insert
Аналогично с классами и прочими объектами системы.
Учтите, что перед этим необходимы некоторые административные шаги по регистрации/настройке COM коннектора. Как это делается, и где почитать - уверен, публиковалось на форуме и сайте Сергея уже неоднократно.
__________________
WBR, Anton
|