AutoIt Français

TiBroom a écrit : ↑dim. 18 juin 2017 14:10 Mon automatisme ne fonctionnant plus.....

TiBroom a écrit : ↑dim. 18 juin 2017 14:10 Bonjour à tous,

Devant me connecter à une base de données HyperFile de PcSoft en mode client serveur pour exécuter des requêtes de type select, je m'étais fait un petit automatisme sous Autoit qui fonctionnait très bien en version 18 jusqu'au jour où une bascule eu lieu en version 20.

Mon automatisme ne fonctionnant plus, j'ai tout simplement désinstallé l'ancien driver oledb v18 pour installer le nouveau en version 20.
Hélas rien à faire, connexion impossible !

Dans le cas d'une étourderie de ma part entre les drivers conçus pour Windows 32 bits et 64 bits, j'ai tenté une installation d'un serveur HF v20 sous Windows XP (32 bits). Même constat ! Par contre si je le rétrograde en version 18 tout fonctionne.

Par curiosité j'ai crée un fichier test.udl (manip trouvée sur ce forum) et la connexion est OK en version 18 (c'est normal...) et en version 20 aussi. J'avoue ne pas comprendre où est le problème avec mon script ;-(
Bug Windev ?

Si vous avez des idées, je suis preneur.
Merci à toutes et à tous !

Ci-dessous mon bout de code simplifié pour les essais.

Code : Tout sélectionner

$provider = "PCSoft.HFSQL"
$server = "127.0.0.1:4900"
$bdd = "mabdd"
$user = "Admin"
$password = "try"
Local $adoCon = ObjCreate("ADODB.Connection")
$adoCon.ConnectionString = ("Provider="& $provider &"; Initial Catalog="& $bdd &"; User ID="& $user &"; Password=" & $password & "; Data Source="& $server)
$adoCon.CursorLocation = 3 ;A indiquer pour PC Soft sinon ne fonctionne pas
$adoCon.Open

$query = "SELECT nom FROM artiste"
$adoRs = ObjCreate("ADODB.Recordset")
$adoRs.CursorType = 1
$adoRs.LockType = 3
$adoRs.Open($query, $adoCon)
$lignes = $adoRs.RecordCount ; -> Pour compter le nombre de ligne(s)
$adoCon.Close

MsgBox(0,"TEST",$lignes)

Provider=PCSoft.HFSQL; Data Source=\\ts19\iprefacewdd\iwgest01t.wdd; Initial Catalog=\\path\to\mypath;

We intercepted a COM Error !

err.description is: 	Que s'est-il passé ?
Impossible d'ouvrir le fichier <\\path\to\my.FIC>.

Code erreur : 0
Niveau : erreur fatale (EL_FATAL)

Code d'erreur système : 5
Message d'erreur système :
Accès refusé.

Dump de l'erreur du module 'wd200hf64.dll' (20.0.115.2).
Informations de débogage :
##(IXStream)-Handle=<FFFFFFFFFFFFFFFF>##
Informations supplémentaires :
EIT_SRCFILE : <\\path\to\my.FIC>
EIT_XINFO : <1>
err.windescription:	Une exception s’est produite.

err.number is: 	0x80020009
err.lastdllerror is: 	0
err.scriptline is: 	143
err.source is: 	
err.helpfile is: 	
err.helpcontext is: 	0
err.retcode is: 	0x80040E14