Wie zwei DBLookUpComboboxes zu verbinden, die

Question

als Filter in Lazarus verwendet werden kann, ich habe 2 Tabellen: 1. Projekte, 2. Article_Weights. Tabelle Die Projekte sind mit der ersten DBLookUpCombobox DBLkpCbo_Projects verbunden. Es hat eine Spalte Projekt, die vierstellige Zahlen enthält. (1001, 1004, 1008, ...)

Tabelle Article_Weights enthaltende Säulen Projekt, Article_Number, Article_Weights usw. Diese Tabelle mit DBLookUpCombobox DBLkpCbo_Articles verbunden ist.

Was ich erreichen möchte, ist, wenn ich aus der ersten Combobox ein Projekt auswähle, zeigt die zweite Combobox nur die Artikelnummer an, die zu diesem Projekt gehört. Wenn ich dann eine Artikelnummer aus der zweiten Combobox auswähle, werden Informationen zu diesem Artikel in DBGrid angezeigt.

Filterung funktioniert. Ich bin am letzten Punkt fest. Wenn ich eine Artikelnummer wählen, erhalte ich Fehler „Datentypen in dem Ausdruck Kriterien stimmen nicht überein“

Dies ist mein Code:

procedure TMainForm.DBLkpCbo_ProjectSelect(Sender: TObject); 
begin 
    if DBLkpCbo_Project.ItemIndex <> -1 then begin 
    SQLQuery2.Active:=true; 
    //SQLQuery1.ApplyUpdates(); 
    SQLTransaction1.Commit(); 
    SQLQuery2.Close; 
    SQLQuery2.SQL.Text:='SELECT Article_Number FROM Article_Weights WHERE Project = '+DBLkpCbo_Project.Text+''; 
    SQLQuery2.Open; 
    end; 
end; 


procedure TMainForm.DBLkpCbo_ArticleChange(Sender: TObject); 
begin 
    if DBLkpCbo_Article.ItemIndex <> -1 then begin 
    //DBGrid1.Enabled:=true; 
    SQLQuery3.Active:=true; 
    //SQLQuery1.ApplyUpdates(); 
    SQLTransaction1.Commit(); 
    SQLQuery3.Close; 
    SQLQuery3.SQL.Text:='SELECT Article_Number FROM Article_Weights WHERE Article_Number='+DBLkpCbo_Article.Text+''; 
    SQLQuery3.Open; 
    end; 
end; 

Vielen Dank für jede Antwort

Answer 1

Ist Article_Number ein Textfeld oder (wie der Name schon sagt) ein numerisches Feld? Wenn es eine Zahl ist, ist DBLkpCbo_Article.Text tatsächlich numerisch (d. H. Eine Zeichenfolge, die eine gültige Zahl enthält)? Wenn man, wie ich vermute, Article_Number ein Textfeld ist, haben Sie die Anführungszeichen weggelassen:

SQLQuery3.SQL.Text:='SELECT Article_Number FROM Article_Weights WHERE Article_Number='''+DBLkpCbo_Article.Text+'''';