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.

dim. 24 janvier 2016, 10h06
noureddine-Mila
Algérie Algérie

atoutfox.public.association

Re: Connexion paramétrée.

Salut,

Doucement mes chers amis, je suis novice je viens juste de commencer à marcher.

1. J'ai modifier le scripte d'accès à la BD qui j'ai récupérer de note site atoutfox. le voici :

Define Class lcnx As Relation
  cHandle = 0
  Function lcnx
    If This.cHandle > 0
      Return
       Endif

    Local lcCnxnString, llKO

    SELECT 1
        USE connexion
        GO top

        lcdatabase =database
    lcserver   =server
    lcport     =port
    lcusername =username
    lcpassword =password

    lcCnxnString="DRIVER={PostgreSQL ANSI};DATABASE = "+ALLTRIM(lcdatabase)+" ;SERVER = "+ALLTRIM(lcserver)+";PORT = "+ALLTRIM(lcport)+"; UID = "+ALLTRIM(lcusername)+";PWD = "+ALLTRIM(lcpassword)+";"
    This.cHandle = SQLStringConnect(lcCnxnString)

    llKO = (This.cHandle <= 0)
    If llKO
      This.cHandle = 0
    Endif

    Return Not llKO
  EndFunc

Function DisConnect
    If This.cHandle > 0
       SQLDisconnect(This.cHandle)
    Endif
    This.cHandle = 0
  EndFunc

  Function Destroy
    This.DisConnect()
  ENDFUNC


2. Après vos commentaires j'ai modifier le programme mais j'ai une fenêtre qui de demande de sélectionner la source de données.

Que doit je faire ??
Merci pour votre patience.




Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017212
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