ADOTable: Message d'erreur lors de la modification des propriétés par codeRésolu

Question

Bonjour,
Je travaille sur petite application en utilisant Delphi (RAD Studio 10.4).
Dans un de mes codes je lis la valeur d’un DBlookupComboBox et voudrais appliquer un filtre sur un AdoTable « ADOTableCmdeNlivree ».
A chaque exécution, j’obtiens un message d’érreur « Acces violation » lors de la tentative de modification des propriétés de ADOTableCmdeNlivree .
Je souhaiterais savoir si cette erreur est liée à une propriété de « ADOTableCmdeNlivree »


var
 lsCodeBque : string;
begin
lsCodeBque:= DBLookupComboBox2.Text;
if lsCodeBque <>'' then
   with ADOTableCmdeNlivree do
     begin
      Active:= False;
      Filter:='(BonLivraison='')AND(Code_Banque=' + lsCodeBque + ')' ;
      Filtered:=true;
      Active:=true ;
     end;
end;

cs_yanb · Answer

Salut,
Peut-être...
var
 lsCodeBque : string;
begin
  lsCodeBque := DBLookupComboBox2.Text;
  if lsCodeBque <> '' then
    with ADOTableCmdeNlivree do
    begin
      Close;
      Filtered := False;
      Filter := '(BonLivraison=' + QuotedStr('') + ')AND(Code_Banque=' + QuotedStr(lsCodeBque) + ')';
      //Par contre le BonLivraison='' je sais plus si le filtre interprète comme valeur vide ou null ou...
      Open;
      Filtered := True;
    end;
end;
Sinon passer par un ADOQuery et une requête SQL à la place des filtres...
@+

papyvore · Answer

Bonjour
moi je l'utilise sans close ni active, uniquement
dans DBLookupComboBox1CloseUp(Sender: TObject);Filter := '(BonLivraison=' + QuotedStr('') + ')AND(Code_Banque=' + DBLookupComboBox1.KeyValue + ')'; 
et ça marche !!

ADOTable: Message d'erreur lors de la modification des propriétés par code

2 réponses

Votre réponse