Discussion :

[blanka6]

bonjour tous le monde

J'ai fait ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
TestAnnee est une Connexion
test est une Source de Données
Ouverture_base est un booléen
// Description de la connexion 
TestAnnee..Source=chemin_base_de_donnee 
//chemin_base_de_donnee est le chemin de la base de donnée access
TestAnnee..Provider = hOledbAccess2000 
TestAnnee..Accès = hOLectureEcriture 
 
Ouverture_base=HOuvreConnexion(TestAnnee) 
//ouverture _base est bien a vrai donc la connexion se fait
 
//par contre ici il me met une erreur car il ne detecte pas la table constantes alrs qu'elle existe 
 
SI PAS HExécuteRequêteSQL(test,TestAnnee,"SELECT  Campagne  FROM Constantes") ALORS
      Erreur(HErreurInfo())
      RETOUR
FIN

Est ce quelqu'un peut m'aider? En fait pour finir je veux juste me connecter a une base de donnée access et pouvoir lire les donnée dans une table.

Merci

[ziboux]

J'ai ce code qui traine dans mes briques de code, si tu peux en faire quelque chose ....

Amicalement


Olivier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
sFichier = SAI_Répertoire_des_fichiers_a_importer + "\fichier.mdb"
SI PAS fFichierExiste(sFichier) ALORS
	Erreur("Le fichier fichier.mdb est introuvable !!")
	RETOUR
FIN
 
 
SI PAS HOuvreConnexion("MaConnex","","",sFichier,"",hOledbAccess2000) ALORS
	Erreur(HErreurInfo())
	HFermeConnexion ( "MaConnex" ) 
	RETOUR
FIN
 
sValeur est une chaîne
SI PAS HDéclareExterne("matable","aliasTable","","",sFichier,hOledbAccess2000) ALORS
	Erreur(HErreurInfo())
	HFermeConnexion ( "MaConnex" ) 
	RETOUR
FIN
//test avec une requete 
sSql est une chaîne ="Select * from aliasTable"
rs est une Source de Données
HExécuteRequêteSQL(rs,hRequêteDéfaut,sSql)
 
POUR TOUT rs
 
sValeur =   {"rs.nomMembre",indRubrique} + " ==> "+{"rs.prenommembre",indRubrique}+RC
 
Trace(sValeur)
 
FIN
//fin de l'utilisation
HAnnuleDéclaration(rs)
SI PAS HAnnuleDéclaration("aliasTable") ALORS Erreur(HErreurInfo())
HFermeConnexion ( "MaConnex" )