Discussion :

[marsupilami34]

Bonjour à tous,

Voici mon probleme

Le message suivant s'affiche lors d'une execution de requete


La requete n'est pas compliqué

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 MyQuery:= TMyQuery.Create(nil);
      try
        with MyQuery do
        begin
          Connection:= MyConnection1;
          SQL.Clear;
          SQL.add('SELECT champ1, champ2, champ3  FROM maTable  WHERE  id=' + inttostr(monId));
 
          Execute;

Le message s'affiche lors de l'execution

Du coup, j'ai voulu tenté avec une requete que je fais fais en début de programme pour initialisation qui fonctionne. Je l'ai placé à cet endroit là et là le message apparait.

Pour information,
j'utilise Delphi 7 et MySQL

je suis toujours dans la meme unité, je libère MyQuery à chaque fois dans

Code :

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

1
2
3
4
 
finally
        MyQuery.Free;
end;

Quelqu'un saurait-il m'aider ?

Merci d'avance
Cdlt,

Marsup

[blonde]

Tu as essayé "open" à la place de "execute" ?

[marsupilami34]

Tu as essayé "open" à la place de "execute" ?

Je viens d'essayer... Toujours pareil

[blonde]

Et sur MyConnection1 ? tu as aussi ouvert la connexion à la base ?

MyConnection1 : tu le créés à la volée ou bien posé sur la fiche ? J'imagine que c'est un TSQLConnection?

Et TMyQuery hérite de TSQLQuery ?

[ShaiLeTroll]

Effectivement, un SELECT c'est toujours Open jamais Execute mais tu aurais une erreur DB sur le Curseur ou un truc du genre.

le Self associé à MyConnection1 est-il instancié correctement ?
Ou alors libéré involontairement vu les adresses mémoire.

TMyQuery et TMyConnection, c'est ceux CoreLab Devart pour MySQL ?

tu peux aussi simplifier le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
        with TMyQuery.Create(nil)do
        try
          Connection:= MyConnection1; // vérifie si Self est nil, si MyConnection1 est nil ou alors libéré ailleurs de façon imprévue.
          SQL.Text := 'SELECT champ1, champ2, champ3  FROM maTable  WHERE  id = :pID';
          ParamByName('pID').AsInteger := monId;
 
          Open;
          // Travail avec ...
          Close();
        finally 
          Free();
        end;

[marsupilami34]

Bonjour

le Self associé à MyConnection1 est-il instancié correctement ?
Ou alors libéré involontairement vu les adresses mémoire.

Je ne comprends pas ce point

TMyQuery et TMyConnection, c'est ceux CoreLab Devart pour MySQL ?

Oui c'est pour MySQL

J'ai également simplifier le code mais ca ne change rien

Après, ca ne vient pas de la requete car si je la met en début de programme (dans des procédures init) ca fonctionne
Et si je met une requete qui fonctionne au début à cet endroit, ca plante

Je ne comprends vraiment pas pourquoi

Help please

cdlt,
Marsup

[marsupilami34]

Je viens de tester quelque-chose

Puise ma fonction contenant la requete fonctionne au début, j'ai déplacé cette fonction pour voir à quel moment elle ne fonctionnait plus.
Et là...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
 
 CalculGraphique; // Ma Fonction contenant la requete (juste un SELECT * FROM MaTable) --> à ce niveau là elle fonctionne
 
  for I := 1 to nbParameters do
  begin
      ListeValeur[I]:=StrToFloat(copy(S,1,Pos(',',S)-1));
      S:=Copy(S,Pos(',',S)+1,Length(S)-Pos(',',S));
  end;
 
  CalculGraphique // Ne fonctionne plus;

Pourtant je ne vois pas en quoi ca joue sur ma requete...

Pour info

Code :

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

1
2
 
ListeValeur: Array of Double;

Et ma requete ne fait pas appel à ce tableau

[SergioMaster]

Ce qu'il nous faudrait, c'est plus la procédure CalculGraphique complète ou du moins la partie impliquant totalement la requête et la totalité des variables/composants impliqués.

Là, on a des bouts de codes sans savoir si les conseils de ShaiLeTroll ont été appliqués

[marsupilami34]

Ben en fait je viens de m'apercevoir que pour remplir mon tableau je commencais à 1 et pas à 0


Du coup, j'ai modifié ca et ma fonction fonctionne maintenant

Du coup je ne comprends pas le lien entre le tableau et ma fonction car ca aurait du planter avant. Si quelqu'un sait pourquoi, j'aimerai bien savoir

Mais bon en tous cas ca fonctionne maintenant.

Merci beaucoup à tous

Marsup

[ShaiLeTroll]

C'est une question mémoire

ListeValeur[0] à ListeValeur[nbParameters - 1] c'est l'espace du tableau
Mais par un hasard la mémoire située à ListeValeur[nbParameters] est une des données du TMyConnection et en modifiant à cet endroit, cela altère cet objet le rendant incohérent pour toute utilisation suivante.