Erreur ASP - SDK connexion BD.

[bonneaupierrelouis]

Bonjour à tous, j'utilise la version DEMO avec le tuto fournis sur ce même forum. Je suis sur mon serveur local de dev, et mon acomba est sur la même machine. J'obtiens : Erreur4 : Filer error : 105 Procedure : 2 Sub proc : 40
Après quelque recherche, on me dit que c'est une question de droit d'utilisateur; dans ce cas-ci : "Supervisor" n'aurait pas les droits pour accès à la BD? Donc si c'est le problème, comment changer les droits de cet utilisateur, et si ce n'est pas le problème, quel est-il?

Votre opinion?  


Voici le code en question :

Code:

<%@ LANGUAGE="VBscript" %>

<%
'***************************************************************
'L'exemple ASP suivant utilise le langage de script VBscript. 
'Il effectue l'ouverture de la société Demo et la connexion de 
'l'usager "Supervisor" avec son mot de passe.                     
'***************************************************************
%>
<%
'Spécifier où est localisé le SDK.
%>
<%
'Déclaration des interfaces
Dim Acomba
Dim UserIndex

'Déclaration des variables
Dim AcombaPath
Dim CompanyPath
Dim MotDePasse
Dim Error
Dim Exist

'Initialisation de l'interface AcombaX
Set Acomba = Server.CreateObject("AcoX0125.AcombaX")

'Initialisation de l'interface UserKey
Set UserIndex = Server.CreateObject("AcoX0125.UserKey")

'Chemin d'accès de la société à ouvrir
CompanyPath = "C:\F1000.dta\DemoSDK_FR"
'Chemin d'accès des cartes d'enregistrement d'Acomba
AcombaPath  = "C:\Aco_SDK"
'Mot de passe de l'usager
MotDePasse  = "DEMO"

'Vérification de l'existence de la société à ouvrir
Exist = Acomba.CompanyExists(CompanyPath)
If Exist <> 0 Then

'Ouverture de la société Demo
Error = Acomba.OpenCompany(AcombaPath, CompanyPath)
If Error = 0 Then

UserIndex.XBlankKey

'Recherche de l'usager "Supervisor" pour trouver
'son CardPos

UserIndex.UsNumber = "Supervisor"
Error = UserIndex.XFindKey(1)

If Error = 0 Then

'Connexion de l'usager "Supervisor" avec son mot de passe
Error = Acomba.LogCurrentUser(UserIndex.UsCardPos, MotDePasse)
If Error = 0 Then

Response.Write("Connexion de l'usager complétée avec succès.")

Else

Response.Write("Erreur1 : " & Acomba.GetErrorMessage(Error))

End If

Else

Response.Write("Erreur2 : " & Acomba.GetErrorMessage(Error))

'Fermeture de la société si l'usager n'est

'pas connecté

Error = Acomba.CloseCompany

If Error <> 0 Then

Response.Write("Erreur3 : " & Acomba.GetErrorMessage(Error))

End If

End If

Else

Response.Write("Erreur4 : " & Acomba.GetErrorMessage(Error))

End If

Else
    Response.Write("Dossier de la société invalide.")
End If

'Libération des ressources utilisées par Acomba
Set Acomba = nothing
%>

[Lartis]

Bonjour,

File Error, c'est souvent un problème de droit d'écriture Windows. Les fichiers d'Acomba sont en lecture seulement pour l'usager ASP, ou l'usager par défaut de IIS.

Je ne crois pas que ce soit causé par l'usager Acomba, c'est plutôt le serveur Web qui utilise un nom d'utilisateur Windows pour définir ses droits, et ce dernier ne peut pas écrire dans le répertoire de Acomba ou de la société Acomba.

Merci,

[bonneaupierrelouis]

Merci Lartis, je voulais juste signifier à tous que c'était bel et bien le problème ! Mon dossier n'avait pas les droits de lecture écriture etc.  

[Contenu sponsorisé]