1

我在我的机器(本地主机)上运行一个 apache 服务器,我正在尝试通过 SDK 使用 PHP 连接到 Acomba 数据库......

我有登录名和密码(用于演示),但我不知道如何继续。在线和在文档中,它们没有多大帮助..所以如果你已经做了类似的事情,我会和你一起尝试。

提前致谢。

4

1 回答 1

1

最后我在asp.net中做到了...有代码,如果这可以帮助任何人。

Sub ConnectionUser()
    Dim AcoSDKInt
    Set AcoSDKInt = Server.CreateObject("AcoSDK.AcoSDKX")
    Dim Acomba
    Set Acomba = Server.CreateObject("AcoSDK.AcombaX")
    Dim UserInt
    Set UserInt = Server.CreateObject("AcoSDK.User")
    Dim Version
    Dim CompanyPath
    Dim AcombaPath
    Dim MotDePasse
    Dim Exist
    Dim Error
    Version = AcoSDKInt.VaVersionSDK
    Error = AcoSDKInt.Start(Version)
    If Error = 0 Then     
    CompanyPath = "C:\F1000.dta\DemoSDK_FR"
    AcombaPath = "C:\Aco_SDK"
    MotDePasse = "DEMO"
    Exist = Acomba.CompanyExists(CompanyPath)
    If Exist <> 0 Then
    Error = Acomba.OpenCompany(AcombaPath, CompanyPath)
    If Error = 0 Then
    UserInt.PKey_UsNumber = "Supervisor"
    Error = UserInt.FindKey(1, False)
    If Error = 0 Then
    Error = Acomba.LogCurrentUser(UserInt.Key_UsCardPos, MotDePasse)
    If Error = 0 Then
    'response.write("Connexion de l'usager complétée avec succès.")
    Else
    'response.write("Erreur: " & Acomba.GetErrorMessage(Error))
    End If
    Else
    'response.write("Erreur: " & Acomba.GetErrorMessage(Error))
    End If
    Else
    'response.write("Erreur: " & Acomba.GetErrorMessage(Error))
    End If
    Else
    'response.write("Dossier de la société invalide")
    End If   
    Else
    'response.write("Erreur: " & Acomba.GetErrorMessage(Error))
    End If
End Sub
于 2013-09-11T15:44:47.337 回答