如何使用SDK连接SBO？

如何使用SDK连接SBO？

这里以VB6.0代码为例。
一、先需要引用SDK.

二、声明一个Company对象。

1 Private  fCompany  As  SAPbobsCOM.Company

三、创建一个方法。

 1 Private   Sub  ConnectCompany()
 2 Set  fCompany  =   New  SAPbobsCOM.Company
 3
 4 fCompany.CompanyDB  =   " sbodemo_china "
 5 fCompany.Server  =   " sapf "
 6 fCompany.UseTrusted  =   True
 7 fCompany.UserName  =   " manager "
 8 fCompany.Password  =   " manager "
 9
10 iRetCode  =  fCompany.Connect
11 If  (iRetCode  <>   0 )  Then
12    MsgBox   " Connect failed! "
13 Else
14    MsgBox   " Success to connect [ "   +  fCompany.CompanyName  +   " ] "
15 End   If
16 End Sub

四、成功连接。

其实这个过程是很简单的。

posted on 2007-12-11 13:57 guofu 阅读( ...) 评论( ...)   编辑 收藏

转载于:https://www.cnblogs.com/saptechnique/articles/990718.html