首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往
您找到你想要的搜索结果了吗?
是的
没有找到

VB连接SAP实例

Public Function GetSAPConnection() As Object     Dim strStatus As String     Dim oFunction As Object     Dim oConnection As Object     Dim result As Boolean     Set oFunction = CreateObject("SAP.LogonControl.1")     Set oConnection = oFunction.NewConnection     oConnection.client = "700"     oConnection.language = "zh"     oConnection.ApplicationServer = "172.16.0.23"       oConnection.user = "WMS001"                        oConnection.Password = "WMS001"                    oConnection.SystemNumber = "03"                   oConnection.codepage = "8400"     result = oConnection.Logon(0, True)     If result <> True Then         Set oFunction = Nothing         Set oConnection = Nothing         Set GetSAPConnection = Nothing         MsgBox "连接失败!"     Else '        MsgBox "连接成功!"         Set GetSAPConnection = oConnection     End If End Function

02

扫码

添加站长 进交流群

领取专属 10元无门槛券

手把手带您无忧上云

扫码加入开发者社群

相关资讯

热门标签

活动推荐

    运营活动

    活动名称
    广告关闭
    领券