combobox1을 이용해서 특정 필드값을 불러와서 선택한후에 그 선택한 값으로
combobox2에 리스트를 나타내려고 합니다.
밑에 소스가 틀린건 알겠는데요.
where 부분에서 조건을 줄때 도대체 어떻게 줘야하는지 잘 모르겠습니다.
이거때문에 7시간째 헤메고 있습니다. 시작한지 얼마 안돼서...ㅜㅡ 벌써 새벽닭이 우네요. 부디 이 초보한테 길을 보여주십시요.
감사합니다.
procedure TForm2.ComboBox1Change(Sender: TObject);
Var
I:Integer;
begin
combobox2.Enabled:=True;
showmessage(combobox1.text);
with ADOQuery2 do
begin
Active := False;
SQL.Clear;
SQL.Add('Select Mu_No from Churchyard_Info Where');
SQL.Add('Dangi_No ='+''''combobox1.text''''+')');
Active := True;
end;
for i := 0 to ADOquery2.RecordCount do
begin
combobox2.Items.Add(ADOquery2.fieldbyname('Mu_No').asstring);
ADOquery2.Next;
end;
end;
> combobox1을 이용해서 특정 필드값을 불러와서 선택한후에 그 선택한 값으로
> combobox2에 리스트를 나타내려고 합니다.
> 밑에 소스가 틀린건 알겠는데요.
> where 부분에서 조건을 줄때 도대체 어떻게 줘야하는지 잘 모르겠습니다.
> 이거때문에 7시간째 헤메고 있습니다. 시작한지 얼마 안돼서...ㅜㅡ 벌써 새벽닭이 우네요. 부디 이 초보한테 길을 보여주십시요.
> 감사합니다.
>
> procedure TForm2.ComboBox1Change(Sender: TObject);
> Var
> I:Integer;
> begin
> combobox2.Enabled:=True;
> showmessage(combobox1.text);
> with ADOQuery2 do
> begin
> Active := False;
> SQL.Clear;
> SQL.Add('Select Mu_No from Churchyard_Info Where');
> SQL.Add('Dangi_No = '''+combobox1.text+'''');//이부분을 이렇게 수정하심됨당.. 그럼 즐프엽 ^^
> Active := True;
> end;
>
> for i := 0 to ADOquery2.RecordCount do
> begin
> combobox2.Items.Add(ADOquery2.fieldbyname('Mu_No').asstring);
> ADOquery2.Next;
> end;
>
> end;