안녕하세요... 도움을 받으려고 글을 올립니다.
DBLookupComboBox1 에서 리스트를 선택하면 리스트값이
ADOQuery2.SQL에 반영되어
DBLookupComboBox2 에서 리스트에 추가하려고 합니다. 그런데..아래와 같은
코드를 작성해서 넣어도 DBLookupComboBox2에는 아무런 리스트가 나오질 않습니다.
제가 뭐 잘못했는지좀 알려주세요..
<!--
procedure TForm4.DBLookupComboBox1CloseUp(Sender: TObject);
Var
Input_A : string;
begin
Input_A := DBLookupComboBox1.Text;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT Distinct 대분류, 중분류 FROM 장비계정 WHERE 대분류=:Input_A');
ADOQuery2.Open;
end;
end.
--!>
혼자 해결해보려고 하고는 있는데...잘 안되는군요...많은 도움 부탁드립니다...^^
이 부분이 좀 이상하군요..
ADOQuery2.SQL.Add('SELECT Distinct 대분류, 중분류 FROM 장비계정 WHERE 대분류= '+QuotedStr(Input_A));
or
ADOQuery2.SQL.Add('SELECT Distinct 대분류, 중분류 FROM 장비계정 WHERE 대분류=''' + Input_A + '''');
or
ADOQuery2.SQL.Add('SELECT Distinct 대분류, 중분류 FROM 장비계정 WHERE 대분류=:Input_A');
ADOQuery2.parameters.parambyname(''Input_A').value := Input_A;
이런식으로 작업하셔야 할것 같은데요..