1
訪問Acomba數據庫我在我的機器(本地主機)上運行的Apache服務器,我試圖連接到用PHP SDK中的Acomba數據庫...如何通過SDK和PHP
我有登錄名和密碼(用於演示),但我沒有CLUE如何繼續。在線和在文檔上,他們沒有幫助很多..所以我試着和你一起,如果你已經這樣做了。
在此先感謝。
訪問Acomba數據庫我在我的機器(本地主機)上運行的Apache服務器,我試圖連接到用PHP SDK中的Acomba數據庫...如何通過SDK和PHP
我有登錄名和密碼(用於演示),但我沒有CLUE如何繼續。在線和在文檔上,他們沒有幫助很多..所以我試着和你一起,如果你已經這樣做了。
在此先感謝。
最後我在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
什麼「Error = 0」和「Error <> 0」實際上是指你的if語句? –
如果錯誤= 0意味着「成功」 – Peter
錯誤<> 0意味着「錯誤」 – Peter