Discussion :

[vstangret]

Bonjour,

Pour une appli je dois lire des infos dans une table (extérieure au projet) dois je l'importer(celle-ci évolue toutes les heures) ou simplement lire
j'ai réalisé ce code mais il me renvoie que le fichier DETREG est inconnu (pourtant avec wdsql j'arrive à lire dans cette table

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
gsNomConnexion est une chaîne
gsCheminBdD est une chaîne
sdRequete1 est une Source de Données
sRequetechaineSQl est une chaîne
 
gsCheminBdD = "X:\BDD\VEGA"
gsNomConnexion = "CNX1" 
 
SI HDécritConnexion (gsNomConnexion, "", "", gsCheminBdD, "", hAccèsHF7, hOLecture, "") ALORS
	SI HOuvreConnexion(gsNomConnexion)  ALORS  
		SI PAS HChangeConnexion("GDETREG",gsNomConnexion) ALORS
			Erreur("HChangeConnexion : "+HErreurInfo())
		FIN 
	SINON
		Erreur("HOuvreConnexion : "+HErreurInfo())
	FIN
SINON
	Erreur("HDécritConnexion : "+HErreurInfo())
FIN
 
sRequetechaineSQl =  "SELECT GDETREG.DATE, GDETREG.TOTCVD FROM GDETREG WHERE GDETREG.DATE =  '20140505'"
SI PAS HExécuteRequêteSQL(sdRequete1,hRequêteSansCorrectionHF,sRequetechaineSQl) ALORS
	Erreur("HExécuteRequêteSQL table GDETREG : "+HErreurInfo())
SINON
	HLitPremier(sdRequete1)
	TANTQUE PAS HEnDehors(sdRequete1)
		TableAjouteLigne(TABLE_SansNom1,COL_SansNom1,COL_SansNom2)
		HLitSuivant(sdRequete1)
	FIN
FIN
HAnnuleDéclaration(sdRequete1)
HFermeConnexion(gsNomConnexion)

Merci d'avance pour votre aide

[Xipotera]

Bonjour,
Il faut que tu regarde tu coté de HDeclare.

Cordialement.

[vstangret]

Dois- je remplacer HDécritConnexion par hdeclare?
ou dois-je mettre hdeclare?

Merci

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
gsNomConnexion est une chaîne
gsCheminBdD est une chaîne
sdRequete1 est une Source de Données
sRequetechaineSQl est une chaîne
 
gsCheminBdD = "X:\BDD\VEGA"
gsNomConnexion = "CNX1" 
 
SI HDécritConnexion (gsNomConnexion, "", "", gsCheminBdD, "", hAccèsHF7, hOLecture, "") ALORS
	SI HOuvreConnexion(gsNomConnexion)  ALORS  
		SI PAS HChangeConnexion("GDETREG",gsNomConnexion) ALORS
			Erreur("HChangeConnexion : "+HErreurInfo())
		FIN 
	SINON
		Erreur("HOuvreConnexion : "+HErreurInfo())
	FIN
SINON
	Erreur("HDécritConnexion : "+HErreurInfo())
FIN
 
sRequetechaineSQl =  "SELECT GDETREG.DATE, GDETREG.TOTCVD FROM GDETREG WHERE GDETREG.DATE =  '20140505'"
SI PAS HExécuteRequêteSQL(sdRequete1,hRequêteSansCorrectionHF,sRequetechaineSQl) ALORS
	Erreur("HExécuteRequêteSQL table GDETREG : "+HErreurInfo())
SINON
	HLitPremier(sdRequete1)
	TANTQUE PAS HEnDehors(sdRequete1)
		TableAjouteLigne(TABLE_SansNom1,COL_SansNom1,COL_SansNom2)
		HLitSuivant(sdRequete1)
	FIN
FIN
HAnnuleDéclaration(sdRequete1)
HFermeConnexion(gsNomConnexion)

[Xipotera]

Moi je partirais sur ça maintenant pas sur que ce soit la bonne solution.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
// Importe la description du fichier sous le nom FICHIERWD
SI PAS HDéclare(sNomFichier, LEMPLACEMENT_DE_LANALYSE_DECRIVANT_TON_FICHIER,"","FICHIERWD") ALORS
	Erreur(ErreurInfo())
	RETOUR
FIN
 
 
SI PAS HOuvreConnexion(gsNomConnexion) ALORS 
	Erreur(ErreurInfo())
FIN
 
HChangeConnexion("FICHIERWD", gsNomConnexion)