Discussion :

[rphenix]

Slt!
J'ai fouillé sur ce forum, je n'ai rien vu de succeptible de m'orienter c'est pourquoi je fais ce post.

Voilà j'ai une appli qui doit se connecter à une base de données et y faire des manipulations comme insertion, modification et suppression d'enregistrements. seulement j'ai un pb dans mmon code. une connexion est déclarée comme variable globale du projet et initialisé par ouverture de la connexion au lancement de l'appli. SBDT est une source de données et strSQL est une chaine
ma source

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
strSQL="INSERT INTO TBDT_CMR(numbdt,typebdt,datedeclaration,client,contribuable,transitaire,numavi,recette,mtrecette,mtfeicom,total,reglement,datesaisie,utilisateur,datemodif,numrecu,paye)"
strSQL=strSQL+" VALUES ('" + numero + "','" +type + "','" + datedeclaration +"','"+ nomclient + "','" + contrib+ "','" 
strSQL=strSQL + transitaire + "','" + reference+ "','" + recette + "','" + MtRecette + "','" +MtF+"','" + MtTotal +"','" + reglement + "','"
strSQL=strSQL + DateVersChaîne(DateSys) +"','" + userConnected + "','" + "',' " + "','" + numrecu + "','" 
SELON  mdeRèglement
	CAS 1: strSQL=strSQL + 0 + "')"
	CAS 2: strSQL=strSQL + 1 + "')"
FIN	
 
HChangeConnexion(sBDT,"UneConnexion")
SI OuiNon("Confirmez vous l'enregistrement de ce BDT?")=Oui ALORS
	//Préparation de la requête pour de multiples exécutions
 
    //exécution de la requête
    SI HExécuteRequêteSQL(sBDT,"UneConnexion",hRequêteSansCorrectionHF,strSQL)=Vrai ALORS
		Info("BDT numéro  " + numerobdt + " enrégistré avec succès")		
		//réinitialisation des champs
		InitChamp
   SINON
		Erreur("Erreur Hyper File : " + HErreurInfo())
   FIN		
 
FIN

j'ai inlassablement le message:

Code :

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

1
2
Erreur Hyper File : Problème d'initialisation de la requête <sBDT>,
Fichier TBDT_CMR inconnu.

Des idées et suggestions sont les bienvenues!

[Louis Griffont]

Je ne sais pas comment ça marche en HF, mais quand je dois intervenir sur une base Acces, j'utilise SQLManagerX avec l'acces "alter" natif ADO4WD !

Voir leur site : www.sqlManagerX.com

[rphenix]

Il m'a toujours semblé que ces accès natif sqlmanagerX sont developpées pour les version 7i de Windev or moi je suis à la 10. Est-ce inexacte?
Merçi pour la suggestion.

[hexawar]

Au vue du message d'erreur, je dirait que tu n'est pas connecté sur la bonne base de donnée !

Comment te connecte tu à la base de donnée ?

Personnellement, j'utilise ODBC et ensuite j'ouvre la connection avec les commandes suivantes :

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
gnNumConnexionAccess = SQLConnecte(sNom_du_driver_ODBC_Access,"","","","ODBC")
 
SI gnNumConnexionAccess = 0 ALORS
	// La connexion a échoué : affichage d'un message explicatif
	SQLInfoGene()
	Erreur("La connexion à la source de données " + sNom_du_driver_ODBC_Access + " a échoué.","Code erreur : " + SQL.Erreur ,	SQL.MesErreur)
FIN
 
 
et les ordres SQL comme suit :
 
SQLChangeConnexion(gnNumConnexionAccess) // Si tu a plus d'une connection, sinon inutile
 
WcodeSQL = "Select * from fichier Where condition"
 
SI SQLExec(WcodeSql,"REQ01") alors
  SQLPremier("REQ01")
  TANTQUE PAS SQL.endehors
    Zone1 = SQLCol( "REQ01", 1)
    Zone2 = SQLCol( "REQ01", 2)
    SQLSuivant("REQ01")
  fin
sinon
  SQLInfoGene("REQ01")
  Erreur("Erreur : " + SQL.Erreur + "dans la requête : ", SQL.MesErreur)
  Erreur("Texte de la requette : " + wcodesql  )
fin
SQLFerme("REQ01")

Et donc je n'utilise JAMAIS les ordres H... pour le SQL (Trop gourmand ! et pas toujours fiable)

[Emmanuel Lecoester]

Il m'a toujours semblé que ces accès natif sqlmanagerX sont developpées pour les version 7i de Windev or moi je suis à la 10. Est-ce inexacte?
Merçi pour la suggestion.

Une simple recompilation suffit. SQLManagerX est donc compatible avec WD8, WD9 et WD10.

[rphenix]

Pas de succès avec SQLExec, je croit qu'il me faut une instruction du genre ado.addNew
ado("fields")=valeur

Y at-il une solution?

[Louis Griffont]

As-tu essaye ADO4WD de SQLManagerX ?

[rphenix]

le gros problème c'est que je ne sais pas me servir de ADO4WD, je l'ai téléchargé, que dois je faire ensuite?

Peux-tu me faire un rapide breifing de la chose, STP?

Cdlt.

[rphenix]

hexawar, je crois que tu m'avais déjà mis sur la voie. En creusant un peu, voici ce que j'ai obtenu:

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
Connexion OLEBD, source dbbdt:
	NumConnexion est un entier = SQLConnecte("dbbdt", "Admin", "", "","OLEDB","MSDASQL.1")
 
	SI NumConnexion = 0 ALORS
		SQLInfoGene()
		Erreur("Erreur d'ouverture de la connexion : " + SQL.MesErreur)
	SINON
 
exécution du sql :
	SI SQLExec("INSERT INTO TRECU(numrecu,montantrecu) VALUES('" + numrecu + "' ,  '" + MtTotal + "')", "RequeteAjout") = 0  ALORS
					SQLInfoGene("RequeteAjout")
					Erreur("Erreur d'execution de la requête : " + SQL.MesErreur)
	   			SINON
		   			Info ("Insertion dans TRECU effectué avec succès")
	   			FIN

Et le tout est joué...

A tout à l'heure.