Erreur de connexion?

[bonneaupierrelouis]

J’ai donc un système qui utilise un ficher de connexion en utilisant le sdk pour me connecter sur Acomba. Il fonctionnait très bien jusqu’à ce jour. Aucun paramètre n’a changé de mon côté, alors je me dis qu’il doit y avoir eu un update du côté d'acomba qui ferait que mon fichier de connexion ne fonctionne plus.

Merci à l'avance si certains ont eu le même genre de problème :

Voici donc mon code et l’erreur donné :
// Output: 3 :Erreur : Cette application n’est pas installée.

Code:

<%
Call response.AddHeader("Access-Control-Allow-Origin", "*")
Call response.AddHeader("Content-Type", "text/html;charset=iso-8859-1")

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    
      Dim oConn, oRs
      Dim connectstr
      Dim db_name, db_username, db_userpassword
      Dim db_server
      
      db_server = " xxxxxx "
      db_name = " xxxxxx "
      db_username = "xxxxxx"
      db_userpassword = " xxxxxx "
      
      connectstr = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword

      Set oConn = Server.CreateObject("ADODB.Connection")
      oConn.Open connectstr
      Set oRS = oConn.Execute("SELECT * FROM tbl_param_mailer_localhost")   
      
      While Not oRS.EOF
        CompanyPath = oRS ("company_path")
        MotDePasse = oRS ("company_password")
        oRS.MoveNext
      Wend
      
       AcombaPath = "C:\Aco_SDK"

    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("1:Connexion de l'usager complétée avec succès.")
     Else
      response.write("2:Erreur: " & Acomba.GetErrorMessage(Error))
     End If
    Else
   response.write("3:Erreur: " & Acomba.GetErrorMessage(Error))
   End If
   Else
   response.write("4:Erreur: " & Acomba.GetErrorMessage(Error))
   End If
   Else
   response.write("5:Dossier de la société invalide")
   End If  
   Else
   response.write("6:Erreur: " & Acomba.GetErrorMessage(Error))
   End If
End Sub
call ConnectionUSer()
%>


[bonneaupierrelouis]

J'ai eu une réponse d'Acomba:

Voici donc :

Bonjour
L'erreur 136 ("Cette application n'est pas installée, ou encore, si vous opérez en mode démo, le SDK doit être mis à jour.") que vous rencontrez arrive d'habitude lorsque le premier paramètre envoyé à la méthode OpenCompany est incorrect.
Ce paramètre doit toujours correspondre au chemin d'accès du dossier qui contient les cartes d'enregistrement d'Acomba valides.
Veuillez noter que l'appel de cette méthode fonctionne même avec un paramètre incorrect si votre installation SDK est encore dans la période de grâce mais, une fois cette période dépassée, les cartes seront considérées par le SDK comme invalides.
Dans votre cas spécifique pour régler le problème vous devez télécharger la dernière version du SDK
Bien cordialement,