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