[R] Connexion PcSoft HFSQL client/serveur

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
TiBroom
Niveau 1
Niveau 1
Messages : 8
Enregistré le : sam. 25 mars 2017 13:45
Status : Hors ligne

[R] Connexion PcSoft HFSQL client/serveur

#1

Message par TiBroom »

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)
Modifié en dernier par TiBroom le lun. 01 janv. 2018 19:12, modifié 1 fois.
Utilisateur 3309 supprimé
Status : Hors ligne

Re: [..] Connexion PcSoft HFSQL client/serveur

#2

Message par Utilisateur 3309 supprimé »

Bonjour,
si on compare la doc de la V18 et de la V20:
https://doc.pcsoft.fr/?9000059&name=pro ... erdisp=180
https://doc.pcsoft.fr/?9000059&name=pro ... erdisp=200

Tout est strictement identique, à la virgule prêt. Donc je dirais que le problème est peut-etre ailleurs ? dans la configuration du serveur ? du parefeu windows ? etc...
TiBroom a écrit : dim. 18 juin 2017 14:10 Mon automatisme ne fonctionnant plus.....
As-tu un message d'erreur qui pourrait nous aiguiller sur une piste?
TiBroom
Niveau 1
Niveau 1
Messages : 8
Enregistré le : sam. 25 mars 2017 13:45
Status : Hors ligne

Re: [..] Connexion PcSoft HFSQL client/serveur  

#3

Message par TiBroom »

Bonjour à toutes et à tous... et Bonne Année 2018 !

Cetipabo : Pas de message d'erreur... hormis dans l'inspecteur sur $adoCon.Open -> $adoCon^ ERROR

Je n'ai touché à rien... çà ne fonctionne toujours pas en version PCSOFT HFSQL20 en fin d'année 2017.
Par contre le serveur de l'entreprise vient de basculer en version HFSQL21...
J'en ai donc profité pour installer la nouvelle version du driver OLEDB 21 sur mon pc... et hop mon petit programme autoit refonctionne par magie ^^

Sans doute un bug dans l'outil de développement en version 20 :lol:

A bientôt !

Tib
Avatar du membre
cramaboule
Niveau 2
Niveau 2
Messages : 25
Enregistré le : dim. 19 août 2007 15:54
Status : Hors ligne

Re: [R] Connexion PcSoft HFSQL client/serveur

#4

Message par cramaboule »

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)
Bonjour,
Ce code ci dessus fonctionne parfaitement pour mon application. Cependant, je n'arrive pas a faire des 'insert' ou des 'update' il me dit que le fichier est 'accès refusé':

Code : Tout sélectionner

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
Merci de vos idées et retour !
(ça marche très bien sous php!)
Répondre