[resolu]ADO Access SQL : filtre

ADO Access SQL : filtre [resolu] - Delphi/Pascal - Programmation

Marsh Posté le 06-01-2003 à 14:22:27    

Bonne Anne a toutes & a tous  ,  :D  
je me suis mis au base de donne et il y a un truck que je comprends pas.   :pt1cable:  
description :  
Access : j ai un fichier access contenant trois tables : Applications, Authors et Types. Qui ne sont pas liees car sinon l application bug.  
Delphi : DBGrid, ADOconection et ADOQuery.  
Le programme: l utilisateur peut visionner les trois tables en selectionnant l une d entre elle a partir une combobox. Lorsqu il a ppuie sur le bouton la DBGrid affiche la table selectionnee. l utilisateur peut aussi Filtrer ce qu il veut voir (le filtre s adapte a la table selectionnee). Or quand le filtre est utilise ca ne marche que sur une table ! Exemple : filtre sur la table Application ca marche. Mais filtre sur la table Authors me renvoit l erreur Impossible de retrouver les elements de la collection (Message en anglais : Item cannot be found in the collection corresponding to the request name or ordinnal)  
L erreur n est pas lie a la table selectionne en effet le filtre ne marche que sur la premiere table sur laquelle on applique un filtre.  
Un bout de code:

Code :
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var  tblname : string;
  3. var I, NbColumns : integer;
  4. begin
  5. if ComboBox1.ItemIndex < 0 then Exit;
  6. tblname := ComboBox1.Items[ComboBox1.ItemIndex];
  7. ADOQuery1.Filtered := false;
  8. if ChkBx_Filter.Checked = true then  begin
  9.   ADOQuery1.Filtered := True;
  10.   case ComboBox1.ItemIndex of
  11.    0 : ADOQuery1.Filter := 'Type = ' + QuotedStr(Edit_Params.Text);
  12.    1 : ADOQuery1.Filter := 'AuthorName = ' + QuotedStr(Edit_Params.Text);
  13.   end;//case  
  14.   end//if  
  15.   else
  16.     ADOQuery1.Filtered := false;
  18. with ADOQuery1 do begin
  19.   Close;
  20.   SQL.Text := 'SELECT * FROM ' + tblname;
  21.   Open;
  22.   end;
  23.   NbColumns := DBGrid1.Columns.Count;
  24.   for I := 0 to NbColumns-1 do begin
  25.     DBGrid1.Columns.Items[I].Width := 100;
  26.     end;
  27. end;


Code :
  1. procedure TForm1.FormCreate(Sender: TObject);
  2. begin
  3.   with Form1 do begin
  4.     Height := 350;
  5.     Width := 410;
  6.   end;
  7.   ADOConnection1.GetTableNames(ComboBox1.Items);
  8.   ComboBox1.ItemIndex :=0;
  9.   ChkBx_Filter.Checked := False;
  10.   Edit_Params.Enabled := false;
  11.   Static_params.Caption := 'Type :';
  12. end;


 
Appli creee a partir de ce lien chapitre 08
 
Merci a tous !
 
@->--


Message édité par KrzAramis le 07-01-2003 à 15:06:15

---------------
The Only Way for Evils to Triumph is for Good Men to do Nothing @->-- Cours Réseaux@->-- Mon Site
Reply

Marsh Posté le 06-01-2003 à 14:22:27   

Reply

Marsh Posté le 06-01-2003 à 18:19:09    

[:rv82]  
 
god damn it

Reply

Marsh Posté le 07-01-2003 à 11:34:02    

:jap:

Reply

Marsh Posté le 07-01-2003 à 15:04:19    

Bande de mechants !  :fou:  vous m avez pas aide !  :(  c est trop dur le debut d anne ou quoi !  :??:  
enfin MOA ! j ai trouve MOA ! (faute d ortographe voulue)  :p  
voici la soluce ( ne pas utiliser case ... of )
 

Code :
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var  tblname : string;
  3. var I, NbColumns : integer;
  4. begin
  5. if ComboBox1.ItemIndex < 0 then Exit;
  6. tblname := ComboBox1.Items[ComboBox1.ItemIndex];
  7. ADOQuery1.Filtered := false;
  9. with ADOQuery1 do begin
  10.   Close;
  11.   SQL.Clear;
  12.   SQL.Text := 'SELECT * FROM ' + tblname;
  13.   Open;
  14.   end;
  15.   NbColumns := DBGrid1.Columns.Count;
  16.   for I := 0 to NbColumns-1 do begin
  17.     DBGrid1.Columns.Items[I].Width := 100;
  18.     end;
  20. if ChkBx_Filter.Checked = true then  begin
  21.   if ComboBox1.ItemIndex = 0 then begin
  22.     ADOQuery1.Filter := 'Type = ' + QuotedStr(Edit_Params.Text);
  23.     end;
  24.   if ComboBox1.ItemIndex = 1 then begin
  25.     ADOQuery1.Filter := 'AuthorName = ' + QuotedStr(Edit_Params.Text);
  26.     end;
  27.    ADOQuery1.Filtered := True;
  28.   end//if
  29.   else
  30.     ADOQuery1.Filtered := false;
  31. end;


 
 :hello:  
 
A bientot  @->--


Message édité par KrzAramis le 07-01-2003 à 15:05:16
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed