Discussion :

[netsoft]

Bonjour
j 'ai une requête SQL-SERVEUR qui marche bien comme suite :

Code :

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

1
2
3
4
5
Declare @T  varchar(80);
SET @T = 'TRACTEUR ROUTIER';
SELECT VEHICULE.CODE, VEHICULE.TYPEV, VEHICULE.MARQUE, VEHICULE.GENRE, VEHICULE.NumCHASSIE, VEHICULE.NSERIE, VEHICULE.MATRICULE, VEHICULE.CDS
FROM VEHICULE
WHERE (((VEHICULE.TYPEV)=@T));

je désire interpréter cette requête en delphi 7 , j'ai éssayé de faire ce code mais il ne marche pas

Code :

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

1
2
3
Data.QTYPEV.Close;
Data.QTYPEV.Parameters.ParamByName('@T').Value:=Edit1.Text;
Data.QTYPEV.Open;

pouvez vous me corriger et m'aider merci

[ShaiLeTroll]

Faudrait lire la documentation : ADOQuery (Delphi)
ou Utilisation de paramètres dans les requêtes

le symbole c'est " : " et non " @ "
Il est présent dans le SQL mais le nom du paramètre ne le contient pas


J'ajoute aussi l'alias V pour réduire la taille de la requête

Code :

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

1
2
3
4
5
 
Data.QTYPEV.Close;
Data.QTYPEV.SQL.Text := 'SELECT V.CODE, V.TYPEV, V.MARQUE, V.GENRE, V.NumCHASSIE, V.NSERIE, V.MATRICULE, V.CDS FROM VEHICULE V WHERE V.TYPEV = :pTypeVehicule';
Data.QTYPEV.Parameters.ParamByName('pTypeVehicule').Value := Edit1.Text; // Edit1 doit contenir 'TRACTEUR ROUTIER'
Data.QTYPEV.Open;

[netsoft]

merci de votre réponse
mais je crois que votre solution marche avec les BDD comme access , paradox ou autre .....
moi j'ai une base de donnée SQL serveur 2012 le @ c'est une syntaxe de SQL serveur
dans l'éditeur du SQL j'ai pu faire une requête qui marche mais je sais pas l’interpréter vers Delphi
j'ai chercher dans le net et le site developpez et le forum j'ai trouver ce code :

Code :

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

1
2
QTYPEV.Parameters.Add(new SqlParameter ('@T', SqlDbType.VarChar, 80));
QTYPEV.Parameters['@T'].Value = Edit1.Text;

mais il y'a des erreurs :
[Error]: Too many actual parameters
[Error] : Undeclared identifier: 'SqlDbType'

[SergioMaster]

mais je crois que votre solution marche avec les BDD comme access , paradox ou autre .....
moi j'ai une base de donnée SQL serveur 2012 le @ c'est une syntaxe de SQL serveur

ShaiLeTroll vous à fourni la bonne syntaxe
- le : est le marqueur des paramètres SQL des requêtes Delphi
- le @ c'est le marqueur pour l'outil de requêtage de SQLServeur

La seule chose que je reprocherai à ShaiLeTroll c'est de présumer qu'il s'agit d'un composant TADOQuery (ce pourrait être un DBExpress DBXQuery ou un TQuery pour ce que l'on en sait !) mais comme vous ne l'avez pas indiqué et que vous avez écrit Data.QTYPEV.Parameters.ParamByName('@T').Value:=Edit1.Text; je pense qu'il a raison

[netsoft]

finalement après réflexion j'ai opter pour cette syntaxe ça marche

Code :

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

1
2
3
4
5
6
7
8
 
Data.QTYPEV.Close;
Data.QTYPEV.SQL.Clear;
Data.QTYPEV.SQL.Add('Declare @T  varchar(80)');
Data.QTYPEV.SQL.Add('SET @T = '''+Edit1.text+'''');
Data.QTYPEV.SQL.Add('SELECT VEHICULE.CODE, VEHICULE.TYPEV, VEHICULE.MARQUE, VEHICULE.GENRE, VEHICULE.NumCHASSIE, VEHICULE.NSERIE, VEHICULE.MATRICULE, VEHICULE.CDS');
Data.QTYPEV.SQL.Add('FROM VEHICULE');
Data.QTYPEV.SQL.Add('WHERE (((VEHICULE.TYPEV)=@T))');

merci pour vos réponses

[ShaiLeTroll]

La seule chose que je reprocherai à ShaiLeTroll c'est de présumer qu'il s'agit d'un composant TADOQuery

L'expérience ! C'est que je me fais vieux maintenant !
TADOQuery est le seul à avoir une propriété Parameters
TSQLQuery (DBX), TQuery (BDE), TOraQuery (Devart), TFDQuery (FireDAC) ont tous une propriété Params

mais je crois que votre solution marche avec les BDD comme access , paradox ou autre .....

Tu n'as même pas lu la page d'aide que j'ai fourni qui évoque TQuery, TIBQuery, TSQLQuery et TADOQuery
Vu que TIBQuery c'est pour InterBase et FireBird, tu poses des questions mais tu ne persiste dans ton erreur

moi j'ai une base de donnée SQL serveur 2012 le @ c'est une syntaxe de SQL serveur
dans l'éditeur du SQL j'ai pu faire une requête qui marche mais je sais pas l’interpréter vers Delphi

Justement la librairie, que ce soit BDE, ADO, DBX, SDAC transforme la syntaxe standard de Delphi vers la syntaxe alternative en fonction du SGBD

finalement après réflexion j'ai opter pour cette syntaxe ça marche
merci pour vos réponses

De rien, tu ne suis pas nos conseils et je plains celui devra reprendre ton code

[netsoft]

bonjour ShaiLeTroll effectivement votre code source marche a merveille

Code :

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

1
2
3
4
Data.QTYPEV.Close;
Data.QTYPEV.SQL.Text := 'SELECT VEHICULE.CODE, VEHICULE.TYPEV, VEHICULE.MARQUE, VEHICULE.GENRE, VEHICULE.NumCHASSIE, VEHICULE.NSERIE, VEHICULE.MATRICULE, VEHICULE.CDS FROM VEHICULE WHERE VEHICULE.TYPEV = :pTypeVehicule';
Data.QTYPEV.Parameters.ParamByName('pTypeVehicule').Value := Edit1.Text; 
Data.QTYPEV.Open;

j'avais essayé de faire un code similaire j'avais une erreur c'est pour cela que j'ai opter pour l'autre code , je ne doute pas de votre compétence je sais que vous être un expert !!!
un grand merci ShaiLeTroll

[ShaiLeTroll]

Ton code c'est du C# (Framework .net) et non du Delphi, c'est normal que tu ai des erreurs et anormal que tu ne t'en rendes pas compte

Code c# :

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

1
2
QTYPEV.Parameters.Add(new SqlParameter ('@T', SqlDbType.VarChar, 80));
QTYPEV.Parameters['@T'].Value = Edit1.Text;

La technique que j'ai proposé fonctionne avec SYBASE, SQL SERVEUR, ORACLE, et j'en passe tellement j'ai utilisé cette même méthode depuis plus de 15 ans

j'ai fait des requêtes plus complexe de cette façon et j'ai appris pas mal de chose comme des différences en la couche BDE et ADO, cette dernière ne supportant pas deux fois le même nom de paramètre : ORACLE même SQL lancé via BDE ou ADO = DataSet différent