Discussion :

[JeAn-PhI]

j'ai fait un programme de migration d'une bdd access, voila comment je m'y prend :

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
 
gp_cnxAccess 				est une Connexion
sdSourceWD				est une Source de Données	
 
gp_cnxAccess..Provider 		= hOledbAccess2000
gp_cnxAccess..Utilisateur 		= ""
gp_cnxAccess..MotDePasse 		= ""
gp_cnxAccess..Source 			= "c:\tmp\monfichier.mdb"
gp_cnxAccess..BaseDeDonnées 	= ""
gp_cnxAccess..Accès 			= hOLectureEcriture
 
HOuvreConnexion(gp_cnxAccess)
 
HDéclareExterne("NomDeLaTableAccess",sdSourceWD,gp_cnxAccess)
HLitPremier(sdSourceWD)
TANTQUE PAS HEnDehors(sdSourceWD)
    Trace(sdSouceWD.NomDeLaColonne)
    HLitSuivant(sdSourceWD)
FIN

petit précision je ne traite que des bases access 2000

[keikoku84]

Il faut dans ce cas passer par des requêtes SQL
Par exemple, dans ton code d'initialisation d'état

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
 
cnxAccess est une Connexion
REQ_Chantier est une Source de Données
gsTxtRequete est chaîne
 
// Paramètres de la connexion
cnxAccess..Provider = hOledbAccess2000
cnxAccess..Utilisateur = ""
cnxAccess..MotDePasse = ""
cnxAccess..Source = "chemin du fichier mdb"
cnxAccess..BaseDeDonnées = ""
cnxAccess..Accès = hOLecture
 
// Ouverture de la connexion
HOuvreConnexion(cnxAccess)
 
gsTxtRequete=[
	SELECT *
	FROM Chantier
]
HExécuteRequêteSQL(REQ_Chantier,cnxAccess,hRequêteSansCorrection,gsTxtRequete)

Il ne reste plus qu'à faire un remplissage de l'état par programmation, cf https://doc.pcsoft.fr/fr-FR/?1011034...ees_programmee

Je suis désolé, mais ca ne veux pas s'imprimer dans ma cervelle.

je n'arrive toujours pas à lire le fichier.
est ce que je peux abuser de votre gentillesse et vous demander d'adapter le code pour lire:
dans la table Chantier,
la première colonne, intitulée "Id chantier",
la valeur de la deuxieme ligne.

A partir du moment ou j'arriverai à lire une valeur dans la table, je saurais m'arranger pour calculer ce qu'il me faut.

merci d'avance

[midou23175]

j'ai fait un programme de migration d'une bdd access, voila comment je m'y prend :

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
 
gp_cnxAccess 				est une Connexion
sdSourceWD				est une Source de Données	
 
gp_cnxAccess..Provider 		= hOledbAccess2000
gp_cnxAccess..Utilisateur 		= ""
gp_cnxAccess..MotDePasse 		= ""
gp_cnxAccess..Source 			= "c:\tmp\monfichier.mdb"
gp_cnxAccess..BaseDeDonnées 	= ""
gp_cnxAccess..Accès 			= hOLectureEcriture
 
HOuvreConnexion(gp_cnxAccess)
 
HDéclareExterne("NomDeLaTableAccess",sdSourceWD,gp_cnxAccess)
HLitPremier(sdSourceWD)
TANTQUE PAS HEnDehors(sdSourceWD)
    Trace(sdSouceWD.NomDeLaColonne)
    HLitSuivant(sdSourceWD)
FIN

petit précision je ne traite que des bases access 2000

avec HDéclareExterne(<"Nom TableAcess"> , <Nom alias> , <Nom de la connexion>)
ça aboutit aussi, c'est le pressentiment que j'ai eu.
On peut même choisir, la rubrique qu'on veut en tant clé de parcours.

HLitPremier(sdSourceWD,"IDChantier")
HLitPremier(sdSourceWD,"Nom_Chantier")

Merci JeAn-PhI pour votre partage

[Voroltinquo]

Quelle que soit la méthode employée, celle de Jean_Phi ou la mienne, pour lire le nieme enregistrement d'une source de donnée, (dans ton cas, n = 2) il faudrait utiliser Hlit(SD,2)
Méthode Jean_Phi

Code :

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

1
2
 
HLit(sdSourceWD,2)

Methode Voro

Code :

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

1
2
 
HLit(REQ_Chantier,2)

Or là patatra HLit n'est pas disponible avec les types de connexion choisi. On va donc devoir passer en lecture séquentielle (ressortez les bandes magnétiques.)
Pour une meilleure lecture du code, on va surcharger Hlit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
FONCTION HLit(sdSource est Source de Données,nEnregistrementCherché est entier):booléen
HLitPremier(sdSource)
POUR nEnregistrementLu=1 _A_ nEnregistrementCherché
	HLitSuivant()
	SI HEnDehors(sdSource) ALORS
		RENVOYER Faux
	FIN
FIN
RENVOYER Vrai
 
FIN

On peut donc maintenant lire le nieme enregistrement de manière transparente

[JeAn-PhI]

ce code fonctionne

Code :

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

1
2
3
4
 
HLitRecherchePremier(sdSourceWD,NomDeLaClefSansGuillemet,ValeurRecherchée)
SI HTrouve(sdSourceWD) ALORS
.....

la fonction HLit() utilise le n° d'enreg je ne suis pas sûr que Access comprenne !!

[Voroltinquo]

la fonction HLit() utilise le n° d'enreg je ne suis pas sûr que Access comprenne !!

1° keikoku veut lire un n° d'enregistrement en l'occurence le 2°
2° Access ne comprend pas c'est pour cela que j'ai surchargé HLit

[midou23175]

Bonjour,

Quant au choix de la méthode, ça dépend du besoin exprimé et des contraintes imposées par l'état :
- accès direct, passage par requête
- accès avec une clé, sans surcharge, exemple IDChantier en cohérence avec l'etat
Mais, comme on dit tout chemin mène à Rome, le plus important pour moi, c'est de connaître ces chemins.

[Mouehdel]

Il faut dans ce cas passer par des requêtes SQL
Par exemple, dans ton code d'initialisation d'état

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
 
cnxAccess est une Connexion
REQ_Chantier est une Source de Données
gsTxtRequete est chaîne
 
// Paramètres de la connexion
cnxAccess..Provider = hOledbAccess2000
cnxAccess..Utilisateur = ""
cnxAccess..MotDePasse = ""
cnxAccess..Source = "chemin du fichier mdb"
cnxAccess..BaseDeDonnées = ""
cnxAccess..Accès = hOLecture
 
// Ouverture de la connexion
HOuvreConnexion(cnxAccess)
 
gsTxtRequete=[
	SELECT *
	FROM Chantier
]
HExécuteRequêteSQL(REQ_Chantier,cnxAccess,hRequêteSansCorrection,gsTxtRequete)
POUR TOUT REQ_Chantier
	HRAZ(Fichier)
		Fichier.Rubrique2				= REQ_Chantier."Rubrique2"
		Fichier.Rubrique3				= REQ_Chantier."Rubrique3"
		Fichier.Rubrique4				= REQ_Chantier."Rubrique4"
        HEnregistre(Fichier)
Fin

Il ne reste plus qu'à faire un remplissage de l'état par programmation, cf https://doc.pcsoft.fr/fr-FR/?1011034...ees_programmee