我在我的机器(本地主机)上运行一个 apache 服务器,我正在尝试通过 SDK 使用 PHP 连接到 Acomba 数据库......
我有登录名和密码(用于演示),但我不知道如何继续。在线和在文档中,它们没有多大帮助..所以如果你已经做了类似的事情,我会和你一起尝试。
提前致谢。
最后我在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