Connexion aux bases de données

Les méthodes ci-dessous décrit la programmation avec HDécritconnexion(). On peut aussi utiliser une variable de type connexion, à coupler avec HOuvreConnexion()

Consulter un autre article du blog pour la définition des connexions ODBC.

MaConnexion..Utilisateur = « USER »

MaConnexion..MotDePasse = « PASSWORD »

MaConnexion..Serveur = « MONSERVEUR »

MaConnexion..BaseDeDonnées = « Base de données »

MaConnexion..Provider = < Provider>

MaConnexion..Accès = hOLectureEcriture

MaConnexion..InfosEtendues = <Infos étendues>

HOuvreConnexion(MaConnexion).

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Définition de la requête SQL commune aux exemples suivants :

sData est chaîne

MaRequête est une Source de Données

sSQL est chaîne = [

Select ID, Nom From Ecole

]

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

* Connexion à distance sur une base MySQL avec l’accès natif

sNomConnexion est une chaîne = « MaConnexionMySQL »

sProvider est une chaîne = hAccèsNatifMySQL

sUtilisateur est une chaîne = <NomUtilisateur>

sMotDePasse est une chaîne = <MotDePasse>

sSource est une chaîne = <NomServeur>

sBaseDeDonnées est une chaîne= <NomBase>

nAccès est un entier = hOLectureEcriture

sInfosEtendues est une chaîne = « Server Port=3306; Compress=Yes; CLIENT_MULTI_STATEMENTS=Yes; WD UNICODE Support = 0; »

HDécritConnexion(sNomConnexion,sUtilisateur,sMotDePasse,sSource,sBaseDeDonnées,sProvider,nAccès,sInfosEtendues)

SI PAS HOuvreConnexion(sNomConnexion) ALORS

Erreur(« Erreur de connexion » + RC + HErreurInfo())

RETOUR

FIN

sData += [RC] + sNomConnexion

SI PAS HExécuteRequêteSQL(MaRequête, sNomConnexion, hRequêteSansCorrection, sSQL) ALORS

Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())

RETOUR

FIN

POUR TOUT MaRequête

sData += [RC] + MaRequête.ID +  » –  » + MaRequête.Nom

FIN

Info(sData)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

* Connexion à distance sur une base MySQL avec le pilote ODBC

sNomConnexion est une chaîne = « MaConnexionMySQL »

sProvider est une chaîne = hODBC

sUtilisateur est une chaîne = <NomUtilisateur>

sMotDePasse est une chaîne = <MotDePasse>

sSource est une chaîne = « ODBCMySQL »

sBaseDeDonnées est une chaîne= <NomBase>

nAccès est un entier = hOLectureEcriture

 

HDécritConnexion(sNomConnexion,sUtilisateur,sMotDePasse,sSource,sBaseDeDonnées,sProvider,nAccès)

SI PAS HOuvreConnexion(sNomConnexion) ALORS

Erreur(« Erreur de connexion » + RC + HErreurInfo())

RETOUR

FIN

sData += [RC] + sNomConnexion

SI PAS HExécuteRequêteSQL(MaRequête, sNomConnexion, hRequêteSansCorrection, sSQL) ALORS

Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())

RETOUR

FIN

 

POUR TOUT MaRequête

sData += [RC] + MaRequête.ID +  » –  » + MaRequête.Nom

FIN

 

Info(sData)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

* Connexion à distance sur une base SQL Server avec le pilote ODBC

sNomConnexion est une chaîne = « MaConnexionSQLServer »

sProvider est une chaîne = hODBC

sUtilisateur est une chaîne = <NomUtilisateur>

sMotDePasse est une chaîne = <MotDePasse>

sSource est une chaîne = « ODBCSQLServer »

sBaseDeDonnées est une chaîne= <NomBase>

nAccès est un entier = hOLectureEcriture

SI PAS HDécritConnexion(sNomConnexion,sUtilisateur,sMotDePasse,sSource,sBaseDeDonnées,sProvider,nAccès, «  ») ALORS

Erreur(« Erreur d’initialisation de la connexion » + RC + HErreurInfo())

RETOUR

FIN

SI PAS HOuvreConnexion(sNomConnexion) ALORS

Erreur(« Erreur de connexion » + RC + HErreurInfo())

RETOUR

FIN

sData += [RC] + sNomConnexion

SI PAS HExécuteRequêteSQL(MaRequête, sNomConnexion, hRequêteSansCorrection, sSQL) ALORS

Erreur(« Erreur d’initialisation de la requête » + RC + HErreurInfo())

RETOUR

FIN

POUR TOUT MaRequête

sData += [RC] + MaRequête.ID +  » –  » + MaRequête.Nom

FIN

Info(sData)