这里以VB6.0代码为例。
一、先需要引用SDK.
二、声明一个Company对象。
1
Private fCompany As SAPbobsCOM.Company
Private fCompany As SAPbobsCOM.Company三、创建一个方法。
1Private Sub ConnectCompany()
2Set fCompany = New SAPbobsCOM.Company
3
4fCompany.CompanyDB = "sbodemo_china"
5fCompany.Server = "sapf"
6fCompany.UseTrusted = True
7fCompany.UserName = "manager"
8fCompany.Password = "manager"
9
10iRetCode = fCompany.Connect
11If (iRetCode <> 0) Then
12 MsgBox "Connect failed!"
13Else
14 MsgBox "Success to connect [" + fCompany.CompanyName + "]"
15End If
16End Sub
Private Sub ConnectCompany()2
Set fCompany = New SAPbobsCOM.Company3
4
fCompany.CompanyDB = "sbodemo_china"5
fCompany.Server = "sapf"6
fCompany.UseTrusted = True7
fCompany.UserName = "manager"8
fCompany.Password = "manager"9
10
iRetCode = fCompany.Connect11
If (iRetCode <> 0) Then12
MsgBox "Connect failed!"13
Else14
MsgBox "Success to connect [" + fCompany.CompanyName + "]"15
End If16
End Sub四、成功连接。
其实这个过程是很简单的。
