Delphi et SQL (Newbie Inside)

Bonjour,

J'ai "développé" une appli qui tapait dans une base Access (via le BDE) et tout fonctionnait correctement.
Malheureusement (ou heureusement), la database doit migrer sur un serveur SQL 2000.
Il me faut donc modifier l'appli.
N'étant pas spécialiste du développement, et encore moins entre SQL et Delphi, je tatonne et je cherche des exemples un peu partout, mais j'ai du mal à en trouver ...
Donc si qqun à qq liens à me fournir, ca m'interesse :)

J'ai un problème avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

ADOQuery1.SQL; ADOQuery1.Parameters.ParamByName('CodeTemp').Value:=CodeTemp;   Label39.Caption:=ADOQuery1.Fieldbyname('Cust_name').asstring; Label40.Caption:=ADOQuery1.FieldByName('Customer_nbr').asstring; Label41.Caption:=ADOQuery1.FieldByName('Cust_name').asstring; Label42.Caption:=ADOQuery1.FieldByName('Credit_Limit').asstring+' €'; Label43.Caption:=ADOQuery1.FieldByName('Customer_prev_year_sales').asstring+' €'; Label44.Caption:=ADOQuery1.FieldByName('Customer_ytd_sales').asstring+' €'; Label45.Caption:=ADOQuery1.FieldByName('customer_mtd_sales').asstring+' €'; Label46.Caption:=ADOQuery1.FieldByName('last_sales_date').asstring; Label47.Caption:=ADOQuery1.FieldByName('ContactNam').asstring; Label48.Caption:=ADOQuery1.FieldByName('PhoneNbr').asstring; DatPrivilege:=ADOQuery1.FieldByName('DernierDeInvoice_date').asstring; Label49.Caption:=DatPrivilege; Label50.Caption:=ADOQuery1.FieldByName('DernierDeInvAmt').asstring; CodePrivilege:=ADOQuery1.FieldByName('DernierDeMisc_Charge_Code').asstring; Label51.Caption:=CodePrivilege; Label54.Caption:=ADOQuery1.FieldByName('CustAdd4Desc').asstring; Label56.Caption:=ADOQuery1.FieldByName('BtcFlg').asstring; BtcFlg:=ADOQuery1.FieldByName('BtcFlg').asstring; Label58.Caption:=ADOQuery1.FieldByName('SmallBusFlg').asstring; SmallBusFlg:=ADOQuery1.FieldByName('SmallBusFlg').asstring; ADOQuery1.ExecSQL;

---

La requête SQL dans le composant est :

Code:

---

select customer_nbr, cust_name,credit_limit,Customer_ytd_sales, customer_mtd_sales, Customer_prev_year_sales, Last_sales_date, BtcFlg, SmallBusFlg, CustAdd4Desc, DernierDeinvoice_date, DernierDeInvAmt, DernierDeMisc_charge_code, ContactNam, PhoneNbr from t_customer where customer_nbr = :CodeTemp;

---

Quand j'exexute, il me donne le message d'erreur

Citation:

---

"CodeTemp, paramètre non trouvé" ...

---

Si qqun à une idée :)

D'avance merci pour votre aide

:tagcode: :merci:
FRANK

Humm, le message est pourtant clair.
Ton paramêtre doit être crée.

tu peux le faire dans le composant ADOQuery ou par le code.

Et tu peux faire un

Code:

---

ADOQuery1.open;

---

à la place du

Code:

---

ADOQuery1.ExecSQL;

---

Merci pour la réponse rapide et désolé pour les balises ... j'y penserai la prochaine fois.

J'abuse peut être, mais aurais tu un exemple de code pour la création des paramètres ?

Voici un exemple issu d'une de mes applications dont la bdd est Access:

Code:

---

1 2 3 4 5 6 7 8

with qryStock do begin close; Parameters.Clear; Parameters.CreateParameter('DateFichier',ftinteger,pdinput,8,lDateFichier); sql.Text:='SELECT * FROM Tbl_MvtStock WHERE nDatefichier=:DateFichier'; Parameters.ParamByName('DateFichier').Value:=lDateFichier; open; end;

---

Dans

Code:

---

Parameters.CreateParameter('DateFichier',ftinteger,pdinput,8,lDateFichier);

---

, je crée le paramètre et je lui affecte un type et la valeur retournée par la requête

Ca marche :)

Merci de ton aide