2013-08-20 65 views
1

訪問Acomba數據庫我在我的機器(本地主機)上運行的Apache服務器,我試圖連接到用PHP SDK中的Acomba數據庫...如何通過SDK和PHP

我有登錄名和密碼(用於演示),但我沒有CLUE如何繼續。在線和在文檔上,他們沒有幫助很多..所以我試着和你一起,如果你已經這樣做了。

在此先感謝。

回答

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 
+0

什麼「Error = 0」和「Error <> 0」實際上是指你的if語句? –

+0

如果錯誤= 0意味着「成功」 – Peter

+0

錯誤<> 0意味着「錯誤」 – Peter