Petit programme de débutant : ne marche pas sniff

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
jbernard13
Messages : 1501
Inscription : dim. 18/avr./2004 15:04
Localisation : sud de la france

Re: Petit programme de débutant : ne marche pas sniff

Message par jbernard13 »

Je veux savoir, comment je peux faire pour afficher le menu de la fenêtre principal qu'après avoir rentrer mon mot de passe?
crée ton menu sur la fenetre principale puis cache le menu avec la commande HideMenu(#menu,0); 0 = il sera caché .
pour réafficher ton menu une fois le mot passe rentrer tu mets la commande HideMenu(#menu,1); 1 = il sera visible .
Jbernard13
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Petit programme de débutant : ne marche pas sniff

Message par Backup »

ben ecoute, je lui ai fait un exemple qui lui montre ce principe avec les gadgets

il n'a pas percuté, qu'on pouvais le faire avec autre chose ...

cherchez l'erreur ! :roll:

ce qui m'amène a penser, qu'il n'a meme pas essayé ce que j'ai fait !

je vais faire comme Cpl Bator , et peut etre bien ouvrir un tiroire moi aussi ;)
Avatar de l’utilisateur
Ar-S
Messages : 9539
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Petit programme de débutant : ne marche pas sniff

Message par Ar-S »

jbernard13 a écrit :
Je veux savoir, comment je peux faire pour afficher le menu de la fenêtre principal qu'après avoir rentrer mon mot de passe?
crée ton menu sur la fenetre principale puis cache le menu avec la commande HideMenu(#menu,0); 0 = il sera caché .
pour réafficher ton menu une fois le mot passe rentrer tu mets la commande HideMenu(#menu,1); 1 = il sera visible .
:mrgreen: C'est l'inverse... 1 = caché 2 = pas caché
Allons !
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
guismoman33
Messages : 19
Inscription : jeu. 24/déc./2009 11:20

Re: Petit programme de débutant : ne marche pas sniff

Message par guismoman33 »

Enfaite je voulais que le menu s'affiche qu'après mettre connecter... Et j'ai réussi tout seul...
Donc je suis content lol
guismoman33
Messages : 19
Inscription : jeu. 24/déc./2009 11:20

Re: Petit programme de débutant : ne marche pas sniff

Message par guismoman33 »

Par contre je rencontre un petit soucis, j'aimerai me connecter à une base de données PostGres.

J'utilise l'exemple de l'aide PB ce qui me donne ça :

Code : Tout sélectionner

UsePostgreSQLDatabase()

  ; Le serveur doit tourner sur la machine locale.
  ;
  If OpenDatabase(0, "host=localhost port=5432", "Vincent", "0000")
    Debug "Connected to PostgreSQL"
  Else
    Debug "Connection failed: "+DatabaseError()
  EndIf
Toujours une réponse d'erreur!!!

Message du débogueur :
Connection failed: FATAL: la base de donn
Merci de bien vouloir m'aider...
Nom du serveur : localhost:5432
Nom de la base de donnée : ERP
User: Vincent
MDP : 0000
Avatar de l’utilisateur
Progi1984
Messages : 2659
Inscription : mar. 14/déc./2004 13:56
Localisation : France > Rennes
Contact :

Re: Petit programme de débutant : ne marche pas sniff

Message par Progi1984 »

Ta base de données PGSQL accepte - t - elle les connexions extérieures ?
guismoman33
Messages : 19
Inscription : jeu. 24/déc./2009 11:20

Re: Petit programme de débutant : ne marche pas sniff

Message par guismoman33 »

èhèh j'ai trouver encore tous seul.

Solution pour les débutants : N'oubliez pas le dbname...

Code : Tout sélectionner

doublons.i= 0




UsePostgreSQLDatabase()

  ; Le serveur doit tourner sur la machine locale.
  
  If OpenDatabase(1, "host=localhost port=5432 dbname=ERP", "Vincent", "0000")   ;Ouverture de la base de données
  
           DatabaseQuery(1, "SELECT * FROM Utilisateur") ;Je prends toutes les données de la colonne utilisateur
                

               While NextDatabaseRow(1) ; Enumération des enregistrements
                  If   GetDatabaseString(1, 0) = "Vincent"   ; Test pour ne pas faire de doublons
                       Debug GetDatabaseString(1, 0) ; Affichage du contenu du premier champ
                       doublons=1
                  EndIf
               Wend
  
                If doublons=0
                   DatabaseUpdate(1, "INSERT INTO Utilisateur (Utilisateur, MDP) VALUES ('Vincent', 'Vince')")
                Else
                   MessageRequester("Attention", "Doublon dans la BDD donc l'insertion ne c'est pas faites")
                EndIf
            
            FinishDatabaseQuery(1)

		       CloseDatabase(1)
  Else
    Debug "Connection failed: "+DatabaseError()
  EndIf
Voila mon code qui ne marche pas comme je le voudrais. En effet ce code normalement doit servir à inclure un utilisateur si seulement il n'y a pas de doublons. Mais sur ce coup, il m'insère tous le temps l'utilisateur Vincent.
J'en ai 12 lol.
Donc j'aimerai savoir qui aurait la solution.
Et comment faire pour voir les tables et les données dans PGAdmin?
Répondre