OVH Cloud OVH Cloud

[WD8]Liens avec Access

3 réponses
Avatar
FabSteg
Bonjour a tous ,

Je voudrais avoir le code pour pouvoir me connecter a une base access
via Windev. Je voudrais aussi un exemple pour executer une requete SQl
sur la base access auquel je me serais connécté.

Merci d'avance.

PIERRON Aurelien
STAGIAIRE STEGANUX

3 réponses

Avatar
Pascal ROY
Une seule adresse www.sqlmanagerX.com

Comme dirait certains... les accès [alter]natifs sont tes amis !

Pascal

FabSteg a écrit :
Bonjour a tous ,

Je voudrais avoir le code pour pouvoir me connecter a une base access
via Windev. Je voudrais aussi un exemple pour executer une requete SQl
sur la base access auquel je me serais connécté.

Merci d'avance.

PIERRON Aurelien
STAGIAIRE STEGANUX


Avatar
FabSteg
Pascal ROY a écrit :
Une seule adresse www.sqlmanagerX.com

Comme dirait certains... les accès [alter]natifs sont tes amis !

Pascal

FabSteg a écrit :

Bonjour a tous ,

Je voudrais avoir le code pour pouvoir me connecter a une base access
via Windev. Je voudrais aussi un exemple pour executer une requete SQl
sur la base access auquel je me serais connécté.

Merci d'avance.

PIERRON Aurelien
STAGIAIRE STEGANUX





J'ai pas trouvé d'exemple de code pour se que je cherche.
Je cherche sur le net mais impossible de trouver un code d'exemple, je
suis pas le seul a essayé cela quand meme???

PIERRON Aurelien
Avatar
Pascal ROY
FabSteg a écrit :
Pascal ROY a écrit :

Une seule adresse www.sqlmanagerX.com

Comme dirait certains... les accès [alter]natifs sont tes amis !

Pascal

FabSteg a écrit :

Bonjour a tous ,

Je voudrais avoir le code pour pouvoir me connecter a une base access
via Windev. Je voudrais aussi un exemple pour executer une requete
SQl sur la base access auquel je me serais connécté.

Merci d'avance.

PIERRON Aurelien
STAGIAIRE STEGANUX






J'ai pas trouvé d'exemple de code pour se que je cherche.
Je cherche sur le net mais impossible de trouver un code d'exemple, je
suis pas le seul a essayé cela quand meme???

PIERRON Aurelien


Tu télécharges, sur le site que je t'ai donné précédemment
la classe ADO4WD,

voila un exemple pour la suite...

GLOBAL
vgUnAdo est un Ado4WD( )

vgUnAdo:mySQLConnecte("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:MaBaseAccess.mdb;PersistSecurityInfoúlse")
si pas vgUnAdo:mySQLExec( "INSERT INTO T_ORDREFAB
(CODE_SOCIETE,CODE_OF,LIBELLE_OF,REF_ARTICLE,QTE_LANCEE) VALUES ( 1,
154,'Libelle OF', 4789874,15)", 1) alors
Erreur( "Impossible d'insérer")
FIN
vgUnAdo:mySQLFerme( 1)

si vgUnAdo:MySQLExec( "SELECT CODE_SOCIETE,CODE_GROUPE,LIBELLE_GROUPE
FROM T_MACHINE_GROUPE WHERE CODE_SOCIETE="+cgSocTmpPro, 1) alors
vgUnAdo:MySQLPremier( 1)
tantque pas vgUnAdo:MySQLEnDehors
clSecTmpPro = SansEspace( vgUnAdo:MySQLLitCol( 1, 2))
clLibTmpPro = SansEspace(vgUnAdo:MySQLLitCol( 1, 3))
clListe = clSecTmpPro+" "+clLibTmpPro
ListeAjoute("LISTE1", clSecTmpPro)
vgUnAdo:MySQLSuivant( 1)
FIN
FIN
vgUnADO:MySQLFerme( 1)
vgunAdo:mySQLDeconnecte( )

Voila, c'est tout simple...
Pascal