1. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

[SQL] Code de Connexion à une base SQL

Discussion dans 'Resources' créé par Advita, Mar 21, 2018.

  1. Advita

    Advita Active Member
    MEMBRE WX

    Inscrit:
    Jan 13, 2018
    Messages:
    73
    J'aime reçus:
    109
    Voici la méthode que j'utilise pour me connecter au serveur SQL :
    Couche : SQL Server Natice Client 11.0

    Code (Text):


    PROCÉDURE SQLConnect():booléen

    DB_Connection est une Connexion

    DB_Id est un entier
    DB_UserName est une chaîne
    DB_Password est une chaîne
    DB_Server est une chaîne
    DB_Name est une chaîne
    DB_Connection..Libellé = "MyConnection"
    DB_Connection..Utilisateur = DB_UserName    // dbuser
    DB_Connection..MotDePasse = DB_Password        // password
    DB_Connection..Serveur = DB_Server            // MSSQLSERVER
    DB_Connection..BaseDeDonnées = DB_Name        // TEST
    DB_Connection..Provider = "SQLNCLI11"    
    DB_Connection..Accès = hOLectureEcriture    
    HDécritConnexion(DB_Connection..Libellé, DB_Connection..Utilisateur,DB_Password, DB_Connection..Serveur,DB_Connection..BaseDeDonnées,DB_Connection..Provider,hOLectureEcriture,"WD Command Timeout=0",hCurseurClient)
    SI PAS HChangeConnexion("*",DB_Connection..Libellé) ALORS
     Erreur(ErreurInfo(errComplet))
     RENVOYER Faux
    FIN    
    DB_Id = SQLConnecte(DB_Server,DB_Connection..Utilisateur,DB_Password,DB_Connection..BaseDeDonnées,"OLEDB",DB_Connection..Provider,"WD Command Timeout=0")
    SI DB_Id = 0 ALORS
     SQLInfoGene()
     Info("Erreur SQL : "+SQL.MesErreur)
     //Connexion non réalisée
     RENVOYER Faux
    SINON
     RENVOYER Vrai
    FIN      

     
     
    Tags:
  2. ProDev

    ProDev Well-Known Member
    MEMBRE WX

    Inscrit:
    Fev 11, 2018
    Messages:
    372
    J'aime reçus:
    373
    thanks

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

     
  3. aminej76

    aminej76 Active Member
    MEMBRE WX

    Inscrit:
    Jan 23, 2018
    Messages:
    283
    J'aime reçus:
    102
    MERCI BIEN
     

Partager cette page

Chargement...