Forums PostgreSQL.fr

makramsakhri

Membre

postgresql avec un accès natif windev 17

Bonjour
je suis désolée de vous déranger, J’ai besoin de votre assistance
j'ai connecté à groupware par une code qui j'ai mettre dans "le code du projet" (les tables est crée automatiquement dans schéma public postgresql) mais il y à un problème présente lorsque j'exécute mon projet,
cette erreur est déclenche lors  j'ai clique sur bouton (historique des connexions) du l'interface de groupware.
voilà  le code de connexion à groupware :

//////////////////////////////////////////////////
sValeur est une chaîne = "localhost"

// Modifie la valeur 'ADRESSE'
INIEcrit("RESEAU", "ADRESSE", sValeur, "C:\Mes Projets\GS-hamdi\config.ini")

SI ErreurDétectée ALORS
    Erreur()
FIN
//connexion à la base
sAdresseip est une chaîne
/////////////////////////////////////////////
// je lis l'adresse reseau dans mon fichier init
sAdresseip = INILit("RESEAU","ADRESSE", "", fRepEnCours()+"\config.ini")
// je gere le groupeware avec .
// cette première partie permet de génerer les tables du groupeware dans ma base de données. Il en fait également une gestion automatique.
// gpwCx : c'est le nom que je donne à ma connexion pour les table de groupeware .
// gpwCx : c'est pour dire : "groupeware Connection"
SI gpwOuvreConnexion("gpwCx","postgres","sakhri",sAdresseip,"DataBaseHamdi",hAccèsNatifPostgreSQL) = Faux ALORS
    Erreur(ErreurInfo())
SINON
// Les fichiers du Groupware utilisateur sont automatiquement créés
// si l'utilisateur a les droits sur postgresql.
nRest est un entier = gpwOuvre()
// si le login a échoué
SI nRest <> gpwOk ALORS
    SELON nRest
        CAS gpwErreur : Erreur("Erreur à l'initialisation du groupware.", ErreurInfo())
        CAS gpwUtilisateurInconnu : Erreur("Utilisateur inconnu.")
        CAS gpwMotPasseInvalide : Erreur("Mot de passe invalide.")
    FIN
    SINON
        // cnxgres : connexion que je peut utiliser dans mon projet .,cnxgres : juste pour dire : "ma connexion à postgresql"
 SI PAS HDécritConnexion("cnxgres","postgres","sakhri",sAdresseip,"DataBaseHamdi",hAccèsNatifPostgreSQL,hOLectureEcriture) ALORS
            Info("Connexion echouée")
        SINON
            HChangeConnexion("*","cnxgres")
            HOuvre("*")

        FIN
    FIN
FIN

voilà erreur:

Code situé derrière le bouton historique de connexion :

Ouvre("GPWHistoriqueConnexion") 

et aussi la fenêtre GPWHistoriqueConnexion est initialise par le procédure

PROCEDURE Initialisation()

// par défaut on filtre sur le projt en cours d'exécution
Application=ProjetInfo(piNomEXE)
// si c'est un exécutable qui est lancé
SI Application<>"" ALORS
	sNomCourt est une chaîne=fExtraitChemin(Application,fFichier)
	Application=sNomCourt
	// si c'est un GO sous l'éditeur
SINON
	Application=ProjetInfo()
FIN
// exécute le code de clic du bouton Filtre
ExécuteTraitement(Filtre,trtClic)
// exécution de la requête
sSQL est une chaîne=[
SELECT COUNT(*) AS NbConnexion, Left(GPWHISTORIQUECONNEXION.HeureConnexion,2) AS HeureJournee
FROM GPWHISTORIQUECONNEXION
WHERE GPWHISTORIQUECONNEXION.DateConnexion='%1'
GROUP BY Left(GPWHISTORIQUECONNEXION.HeureConnexion,2)
ORDER BY Left(GPWHISTORIQUECONNEXION.HeureConnexion,2)
]
sSQL=ChaîneConstruit(sSQL,DateDuJour())
SI PAS HExécuteRequêteSQL(gReqConnexion,sSQL) ALORS
	Erreur(HErreurInfo())
SINON
	// affichage du résultat de la requête dans le graphe
grSourceSérie(GRF_Connexion,1,grRubrique,gReqConnexion,"NbConnexion")
	grSourceEtiquetteCatégorie(GRF_Connexion,grRubrique,gReqConnexion,"HeureJournee")
	grDessine(GRF_Connexion)
FIN

Vraiment je suis bloque à cet erreur (merci)

gleu

Administrateur

Re : postgresql avec un accès natif windev 17

C'est vous qui développez ce logiciel ou une autre personne ?

---

Guillaume.

makramsakhri

Membre

Re : postgresql avec un accès natif windev 17

oui J'ai développé une application (gestion quincaillerie) sous windev
les interfaces graphique que je discute avec vous  ,c'est l'interface de login

gleu

Administrateur

Re : postgresql avec un accès natif windev 17

OK. Vous faites appel à une fonction substr qui n'existe pas (en tout cas pas avec les arguments que vous donnez).

---

Guillaume.