ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: Connexion paramétrée.   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

lun. 25 janvier 2016, 17h03

GLS
France France

atoutfox.public.association

Re: Connexion paramétrée.

Normalement le code ci-dessous devrait fonctionner ..

LOCAL lcDataBase AS STRING, lcServer AS STRING, lcPort AS STRING, lcUserName AS STRING , lcPassWord AS STRING, lcConC AS STRING
PUBLIC iHandle AS INTEGER && varibale publique si elle est utilisée à travers tout le programme sinon variable locale ou private

SELECT 0 && Retourne le dernier N° de zone disponible
USE connexion SHARED
GO TOP IN connexion && le go top n'est utile que si il y a pluseiurs enregistrements dans la table connexion et que c'est dans le premier que se trouve les datas de connexions

lcDataBase = ALLTRIM(connexion.DATABASE)
lcServer   = ALLTRIM(connexion.SERVER)
lcPort     = ALLTRIM(connexion.port) && ou alltrim(str(connexion.port)) si la colonne port dans la table connexion est de type integer
lcUserName = ALLTRIM(connexion.username)
lcPassWord = ALLTRIM(connexion.PASSWORD)

USE IN SELECT('connexion'&& fermeture de la table connexion si nécessaire

* Chaine de connexion PostGreSQL
lcConC = "DRIVER={PostgreSQL ANSI};DATABASE=" + m.lcDataBase + ";SERVER=" + m.lcServer + ";PORT=" + m.lcPort + ";UID=" + m.lcUserName + ";PWD=" m.lcPassWord + "CA=d;A6=;A7=100;A8=4096;B0=255;B1=8190;BI=0;C2=dd_;CX=1c502bb;A1=7.4"

* Récupération du handler de connexion
iHandle = SQLSTRINGCONNECT(m.lcConC, .T.)

IF m.iHandle > 0
  =MESSAGEBOX("Connexion avec Success ..." ,48, "Test de la Connexion")
ELSE
  =MESSAGEBOX("Erreur ...",48, "Test de la Connexion")
  iHandle = 0
ENDIF


Cordialement

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017221
20 088 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3