PostgreSQL La base de donnees la plus sophistiquee au monde.

Forums PostgreSQL.fr

Le forum officiel de la communauté francophone de PostgreSQL

Vous n'êtes pas identifié(e).

#1 16/09/2014 02:53:47

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

2db7cbc.png
voilà erreur:
29pqg51.png
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)

Hors ligne

#2 16/09/2014 17:46:15

gleu
Administrateur

Re : postgresql avec un accès natif windev 17

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


Guillaume.

Hors ligne

#3 16/09/2014 18:01:27

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

Hors ligne

#4 16/09/2014 18:20:42

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.

Hors ligne

Pied de page des forums