Requête SQL Paramétrée

Version imprimable

salut, je faire une recherche avec une requête sql dynamique,l'utilisateur spécifie la table, le champ et la valeur, mais quand je l'exécute rien ne se passe, j'utilise un ADOQuery connecté avec une ADOconnection. je voudrai savoir ou est le problème. voila le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm10.BitBtn1Click(Sender: TObject);
begin
// Vérification que les la table ainsi que le champ sont spécifier
if (AdvComboBox1.Text='') or (AdvComboBox2.Text='') then
ShowMessage('Vous devez spécifiez une table!')
else
    //Traitement pour les chaine de caractères
    if ADOTable1.FieldList.FieldByName(AdvComboBox2.Text).DataType=ftString then
        begin
 
                ADOQuery1.SQL.Clear;
                ADOQuery1.Close;
                ADOQuery1.SQL.Add('Select * From'+AdvComboBox1.Text+'Where'+AdvComboBox2.Text+'= :x');
 
                ADOQuery1.Parameters.ParamByName('x').Value:=AdvEdit1.Text;
 
 
                ADOQuery1.Open;
	end;
end;

Merci beaucoup.

30/06/2008, 20h21
Franck SORIANO

Tu devrais avoir une erreur de syntaxe à l'execution de la requête. Il faut mettre un espace après le from, avant et après le where :

Code:

ADOQuery1.SQL.Add('Select * From '+AdvComboBox1.Text+' Where '+AdvComboBox2.Text+'= :x');
30/06/2008, 21h02
K-PAX

je vais essayé, merci :D
30/06/2008, 21h12
K-PAX

une autre chose, quand j'utilise AsString avec la paramètre de ADOQuery ça marche pas, et il me dit:
AsString:identificateur non déclaré.
par exemple:

Code:

ADOQuery1.Parameters.ParamByName('x').AsString:=AdvEdit1.Text;

c'est quoi le problème SVP?!
30/06/2008, 21h25
Franck SORIANO

Les paramètres ADO n'ont pas de propriétés AsString. ADO et dbGO ne travaillent qu'avec les variants. Donc tu dois utiliser .value.
30/06/2008, 21h39
K-PAX

merci beaucoup:D