Discussion :

[Motti2]

Bonjour,

je travail avec MySQL 5.5

losque j'essaie d'executer une requete d'insert avec la commande HExécuteRequêteSQL() j'obtiens l'erreur suivante:

La requête <sdInsertSQL> n'a pas été préparée ni exécutée au préalable. La réexécution de la requête n'est pas possible. Vous devez spécifier un code SQL.

Dans le code ci-dessous
la variable FusionParTable.gstrBaseFinale:sNomCrp contient le nom de la connexion

et la commande bResult = HExécuteRequêteSQL(sdRequeSQL, FusionParTable.gstrBaseFinale:sNomCrp, "select Max(nIdVaccination) as compteur from t_vaccination") renvoie vrai

alors que la ligne bResult = HExécuteRequêteSQL(sdInsertSQL)
renvoie faux

voici le code:

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
sdRequeSQL, sdInsertSQL est une Source de Données
 
HPrépareRequêteSQL(sdInsertSQL, FusionParTable.gstrBaseFinale:sNomCrp, hRequêteSansCorrection, "INSERT INTO t_vaccination (nIdVaccination, nIdVaccin, nIdVacProtocole, nIdPatient, nIdUtilisateur, sDateInjection, nNumInjection, sNumLot, nRappel, sLibelle, sAction, sDH_REPLIC) SELECT 251,41,4,53,1,'20030528','0','W5770-2',0,'DTP - REVAXIS','A 20130521170623','2013-05-21 17:06:23' FROM t_vaccination  WHERE NOT EXISTS (SELECT nIdVaccin, nIdVacProtocole, nIdPatient, nIdUtilisateur FROM t_vaccination WHERE nIdVaccin =:IdVaccin and nIdVacProtocole =:IdVacProtocole and nIdPatient =:IdPatient and nIdUtilisateur =:IdUser ) LIMIT 1")
 
TANTQUE 
             .....
 
	bResult = HExécuteRequêteSQL(sdRequeSQL, FusionParTable.gstrBaseFinale:sNomCrp,  "select Max(nIdVaccination) as compteur from t_vaccination")
	sdInsertSQL.IdVaccin		= Val(sIdVaccin)
	sdInsertSQL.IdVacProtocole = Val(sIdVacProtocole)
	sdInsertSQL.IdPatient		= Val(sIdPatient)
	sdInsertSQL.IdUser			= Val(sIdUser)
	//bResult = HExécuteRequêteSQL(sdInsertSQL, FusionParTable.gstrBaseFinale:sNomCrp,  sInsertSQL)
	bResult = HExécuteRequêteSQL(sdInsertSQL)
 
            .....
FIN

Votre aide sera la bienvenue

Cordialement,

Motti

[Atsibat]

Bonjour,

sur une base non Hyperfile je vous conseille la synthaxe suivante :

Code :

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

1
2
3
4
5
6
 
txtSQL est une chaîne
txtSQL = "SELECT %1 FROM %2 WHERE nNumInjection='%3' "
MaRequeteSQL est une chaîne = ChaîneConstruit(txtSQL , "IdPatient", "t_vaccination","12345")
 
HExécuteRequêteSQL(sdRequeSQL, FusionParTable.gstrBaseFinale:sNomCrp,hRequêteSansCorrection,MaRequeteSQL)

Bon dev

[Motti2]

Bonjour Atsibat,

En fait c'est la solution pour laquelle j'avais en premier mais j'obtiens l'erreur suivante:

Erreur de l'accès natif MySQL.

et voici le code correspondant:

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
sClauseInsert	= "INSERT INTO t_vaccination (nIdVaccination, nIdVaccin, nIdVacProtocole, nIdPatient, nIdUtilisateur, sDateInjection, nNumInjection, sNumLot, nRappel, sLibelle, sAction, sDH_REPLIC) "
sClauseSelect1	= "SELECT %1 FROM t_vaccination  WHERE NOT EXISTS "
sClauseSelect2	= "(SELECT nIdVaccin, nIdVacProtocole, nIdPatient, nIdUtilisateur FROM t_vaccination WHERE nIdVaccin =%2 and nIdVacProtocole =%3 and nIdPatient =%4 and nIdUtilisateur =%5 ) LIMIT 1"
sInsertQuery	= sClauseInsert + sClauseSelect1 + sClauseSelect2
 
nCpt = 1
nMaxIdVaccination ++
 
TANTQUE 
            ......	
            sIdVaccin		= Milieu(sRowValues, nPosVirgule+1, nLength)
            .....
            sIdVacProtocole	= Milieu(sRowValues, nPosVirgule2+1, nLength)
            .....
            sIdPatient		= Milieu(sRowValues, nPosVirgule+1, nLength)
            .....
            sIdUser			= Milieu(sRowValues, nPosVirgule2+1, nLength)
	sInsertSQL =  ChaîneConstruit(sInsertQuery, sRowValues, sIdVaccin, sIdVacProtocole, sIdPatient, sIdUser)
	bResult = HExécuteRequêteSQL(sdRequeSQL, FusionParTable.gstrBaseFinale:sNomCrp,  "select Max(nIdVaccination) as compteur from t_vaccination")
	bResult = HExécuteRequêteSQL(sdInsertSQL, FusionParTable.gstrBaseFinale:sNomCrp,  sInsertSQL)
 
             .....
FIN

la aussi la commande HExécuteRequêteSQL marche avec la requete:
"select Max(nIdVaccination) as compteur from t_vaccination")

mais pas avec la requete insert

c'est pourquoi j'ai essayé avec la deuxieme possibilité que j'ai envoyé dans le premier message

Cordialement,

Motti

[Atsibat]

Mettez un trace() juste avant la commande hexecuterequetesql(insert...)
pour voir le texte de votre requête d'insert
et si vous ne trouvez pas l'erreur envoyer nous le texte de la requête.

[Motti2]

Atsibat,

voici le texte de la requete qui s'execute bien lorsque je la lance a partir de Heidi SQL:

Code SQL :

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

INSERT INTO t_vaccination (nIdVaccination, nIdVaccin, nIdVacProtocole, nIdPatient, nIdUtilisateur, sDateInjection, nNumInjection, sNumLot, nRappel, sLibelle, sAction, sDH_REPLIC) SELECT 289,NULL,NULL,1445,1,'20020927','1','',0,'DTP - REVAXIS','','2010-01-01 00:00:00' FROM t_vaccination  WHERE NOT EXISTS (SELECT nIdVaccin, nIdVacProtocole, nIdPatient, nIdUtilisateur FROM t_vaccination WHERE nIdVaccin =NULL and nIdVacProtocole =NULL and nIdPatient =1445 and nIdUtilisateur =1 ) LIMIT 1

Cordialement,

Motti

[WebJaseur]

bonjour,

je suis surpris de
SELECT 289,NULL,NULL,1445,1,'20020927','1','',0,'DTP - REVAXIS','','2010-01-01 00:00:00' FROM
apres un select cela devrait etre les noms des champs et pas des valeurs fixes mais je n'ai peut-être pas tout saisi dans cette requete

bon dev

Jean-Jacques

[cladoo]

Je suis également un peu surpris par la syntaxe, mais je suis loin d'être un pro du SQL, j'utilise pour ma part la syntaxe de base suivante :

Code :

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

INSERT INTO `NomTable` (`Rubrique1`, `Rubrique2`, `Rubrique3`) VALUES ('Valeur 1', 'Valeur 2', 'Valeur 3');

Je ne vois pas le mot clé VALUES dans ta requête, est-ce gênant ?

[Motti2]

Bonjour,

La forme de la requete est ainsi faite afin d'eviter l'insertion de doublons.

Le probleme n'est pas dans la forme de la requete d'insertion, puisque lorsque je prends la valeur de la chaine sInsertSQL en debuggant et execute avec un editeur comme Heidi SQL, la ligne est inséré dans la table si ce n'est pas un doublon.

le probleme vient du fait qu'il m'affiche le message d'erreur:
Erreur de l'accès natif MySQL.

alors qu'avec une requete select, cela marche tres bien.

Cordialement,

Motti

[cladoo]

Si tu demandes le détail de l'erreur, tu n'as pas plus d'infos que 'Erreur de l'accès natif MySQL' ?

Code :

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

1
2
3
4
 
SI PAS HExécuteRequêteSQL(sdInsertSQL, FusionParTable.gstrBaseFinale:sNomCrp,  sInsertSQL) ALORS
Erreur(HErreurInfo())
FIN

[Kyroon]

Bonjour,

En ce qui me concerne, ta requête ne me choque pas, on peut voir ça sur SQLPro Insertion en auto référence pour ceux qui veulent plus d'infos.
Bref, je pars du principe que MySQL accepte cette syntaxe.

Par contre, ce qui pourrait gêner dans ta requête c'est la valeur de sLibelle. Si cette variable contient une quote, tu pourrais te retrouver avec une requête foireuse. A voir.

Fait comme cladoo a dit pour intercepter l'erreur, mais ajoute ta requête pour voir les valeurs qui plantent exactement.

Bonne continuation.

[laurent30s]

Erreur de l'accès natif MySQL

Ta connexion fonctionne ???

[Nicolas_Jeanneau]

Peut-être devrais-tu utiliser l'option "hRequêteSansCorrection" pour que la requête ne soit pas modifiée ... ?

[michel.souris]

alors que la ligne bResult = HExécuteRequêteSQL(sdInsertSQL)
renvoie faux

Je prends la discussion en route mais... il faut préciser une variable de type "source de donnée" en premier paramètre... n'est-ce pas là ton problème ?

[Nicolas_Jeanneau]

Je prends la discussion en route mais... il faut préciser une variable de type "source de donnée" en premier paramètre... n'est-ce pas là ton problème ?

oui je me suis fait la réflexion aussi au départ mais en fait il y a sdInsertSQL comme source de données et sInsertSQL qui est une chaine pour la requête ...