J'ai ce message a l'execution de ma procedure :Impossible d'affecter TADOQuery a TADOQuery
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
25
26
27
28 procedure TfrmMain.FillCategoryList; Var qry : TADOQuery; Begin qry := TADOQuery.Create(nil); if cbbChooseBiblio.ItemIndex = 1 then qry.Assign(DataModule1.qryS) else if cbbChooseBiblio.ItemIndex = 1 then qry.Assign(DataModule1.qryP); categoryList.Clear; with qry do begin Open; while not EOF do Begin //.... // Traitement de qry ... next; end; Close; end; qry.Free; end;
Je ne suis pas sur que ca aie a voir avec ce sujet FAQ :
http://delphi.developpez.com/faq/?pa...ctertfonttfont
Merci pour votre aide...
Partager