Discussion :

[Cdx]

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 :

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

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

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

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

Si qqun à une idée

D'avance merci pour votre aide


FRANK

[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 :

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

ADOQuery1.open;

à la place du

Code :

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

ADOQuery1.ExecSQL;

[Cdx]

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 ?

[Frank]

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

Code :

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

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 :

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

 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

[Cdx]

Ca marche

Merci de ton aide