Aide pour une requête SQL Server sous delphi

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

Code:

---

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:

---

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

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:

---

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;

---

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:

---

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'

Citation:

---

Envoyé par netsoft

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 :mouarf: (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

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

Code:

---

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

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:

---

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

Citation:

---

Envoyé par SergioMaster

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

---

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

Citation:

---

Envoyé par netsoft

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

Citation:

---

Envoyé par netsoft

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

Citation:

---

Envoyé par netsoft

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

bonjour ShaiLeTroll effectivement votre code source marche a merveille :ccool:

Code:

---

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 !!!:merci:
un grand merci ShaiLeTroll