Discussion :

[vbcasimir]

Bonjour ,

je tente de faire un simple select avec une condition where afin de recupérer le nom dans un champ texte.

j'utilise donc le composant TSQLQuery de DBExpress

je sais ma connexion est correcte puisque j'ai pu obtenir le résultat que je voulais avec le composant TSQLDataSet ...

voici mon 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
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
   DataModule2.SQLConnection1.Connected := true;
   memo.Lines.Clear;
   DataModule2.SQLQuery1.SQL.Clear;
   DataModule2.SQLQuery1.Active := true;
   DataModule2.SQLQuery1.SQL.Add ('select last_name from EMPLOYEE where first_name = ''Luke''');
 
  memo.Lines.Append(DataModule2.SQLQuery1.FieldByName('LAST_NAME').AsString);
   DataModule2.SQLConnection1.Connected := false;
end;

l'erreur que j'obtiens est la suivante

le projet select.exe a provoqué une classe d'execption .... avec le message 'Requête , nom de table ou nom procédure manquant' ....

aurais-je oublié un composant ???

je n'ai mis que la composant TSQLConnection et TSQLQuery ..

Merci

[Rayek]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
   DataModule2.SQLConnection1.Connected := true;
   memo.Lines.Clear;
   DataModule2.SQLQuery1.SQL.Clear;
   DataModule2.SQLQuery1.Active := true; // <----- ICI l'erreur
   DataModule2.SQLQuery1.SQL.Add ('select last_name from EMPLOYEE where first_name = ''Luke''');
 
  memo.Lines.Append(DataModule2.SQLQuery1.FieldByName('LAST_NAME').AsString); // <---- c'est Add pas Append
   DataModule2.SQLConnection1.Connected := false;
end;

tu devrais ecrire :

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
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  With DataModule2 do
  begin
   SQLConnection1.Connected := true;
   memo.Lines.Clear;
   SQLQuery1.Close;
   SQLQuery1.SQL.Clear;
   SQLQuery1.SQL.Add ('select last_name from EMPLOYEE where first_name = ''Luke''');
   SQLQuery1.open;
  memo.Lines.Add(SQLQuery1.FieldByName('LAST_NAME').AsString); 
   SQLConnection1.Connected := false;
  end;
end;

En fait tu ouvrais la requete avant d'avoir mis ce qu'elle devait faire.

[vbcasimir]

effectivement j'ai encore besoin de comprendre comment fonctionne les composants en fait je ne voyais cela comme ça lorsque j'ai écris

ataModule2.SQLQuery1.Active := true;

je pensais que cela se traduisait par je rend le composant actif prêt à executer une requête .. alors qu'en fait ça veut dire j'execute la requête passer en paramétre à la propriété SQL .. je pense que c'est un peu ainsi qu'il faut le voir

[Rayek]

oui en gros

Active := False; -> close; (Fermeture du composants, des connexions, etc..)
Active := True; -> open; (Activation d'un peu tout)

[vbcasimir]

par contre quelle va être la différence (si il y en a une) entre le fait de fermer la connexion en faisant

Code :

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

1
2
3
 
 
DataModule2.SQLQuery1.close

et

Code :

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

1
2
3
4
 
 
 
DataModule2.SQLQuery1.active := false;

reciproquement pour l'ouverture ?

[Rayek]

A ma connaissance aucune, pour moi c'est plus simple d'ecrire Close/Open, puis visuellement on les repère plus facilement qu'un Active := True/False;

Enfin, c'est personnel ^^, je me suis jamais posé la question. Regarde dans l'aide de delphi c'est peut être indiqué

[vbcasimir]

c'est déjà fait mais je n'ai rien lu qui m'explique la différence ...

bon en attendant je vais utiliser l'un ou l'autre ...