Q&A
- 질문]쿼리때문에T.T 도와주세요~~
델파이 왕초봅니당~~
뭐가 잘못인지 몰르겠어요..
쿼리를 겹쳐서 그러지 어떤지...
제가 하고픈건
+ 경제
- 금융
- 마케팅
+ 교육
- 음악
- 미술
이렇게 TreeView로 보여주는건데
테이블이
CREATE TABLE NFRALOC.TS_INTEREST (
C_INTINDEX NUMBER(38, 0) NOT NULL,
C_INTEREST VARCHAR2(30) NOT NULL,
C_PARENT NUMBER(38, 0) NOT NULL
)
경제랑 교육은 c_parent가 0 금융, 마케팅의 c_parent는 경제의 c_iniindex값과 같고
음악, 미술의 c_parent는 교육의 c_iniindex값과 같습니다.
subitem이 없을 수도 있구요...
뭐가 잘못인지 자꾸 쿼리에러가 납니다..
도와주세요..벌써 며칠째이러고 있답니다!!!
//TabSheet7 관심분야
try
Interest_query.DatabaseName := 'nfraTool';
Interest_sub_query.DatabaseName := 'nfraTool';
Interest_query.Close;
Interest_query.SQL.Clear;
Interest_query.SQL.Add('Select c_intindex, c_interest, c_parent from TS_INTEREST');
Interest_query.Open;
Interest_query.Last;
Interest_query.First;
Max := Interest_query.RecordCount;
for i:= 0 to Max-1 do
begin
type_value := Interest_query.FieldByName('c_parent').AsString;
type_value2 := Interest_query.FieldByName('c_interest').AsString;
if type_value = '0' then
begin
node := TreeView1.Items.Add(Treeview1.Selected,type_value2);
j := interest_query.fieldByName('c_intindex').AsInteger;
Interest_sub_query.Close;
Interest_sub_query.SQL.Add('Select c_interest from TS_INTEREST');
Interest_sub_query.SQL.Add('Where c_parent = :c_parent');
Interest_Sub_query.ParamByName('c_parent').AsInteger := j;
Interest_sub_query.Open;
// 우선 c_parent값부터 찍어보자
if Interest_sub_query.RecordCount > 0 then
treeview1.items.addchild(node,inttostr(j))
else
treeview1.items.addchild(node,inttostr(0));
end; //begin
Interest_sub_query.free;
Interest_query.Next;
end; //begin
finally
Interest_query.free;
end; //try
end;
뭐가 잘못인지 몰르겠어요..
쿼리를 겹쳐서 그러지 어떤지...
제가 하고픈건
+ 경제
- 금융
- 마케팅
+ 교육
- 음악
- 미술
이렇게 TreeView로 보여주는건데
테이블이
CREATE TABLE NFRALOC.TS_INTEREST (
C_INTINDEX NUMBER(38, 0) NOT NULL,
C_INTEREST VARCHAR2(30) NOT NULL,
C_PARENT NUMBER(38, 0) NOT NULL
)
경제랑 교육은 c_parent가 0 금융, 마케팅의 c_parent는 경제의 c_iniindex값과 같고
음악, 미술의 c_parent는 교육의 c_iniindex값과 같습니다.
subitem이 없을 수도 있구요...
뭐가 잘못인지 자꾸 쿼리에러가 납니다..
도와주세요..벌써 며칠째이러고 있답니다!!!
//TabSheet7 관심분야
try
Interest_query.DatabaseName := 'nfraTool';
Interest_sub_query.DatabaseName := 'nfraTool';
Interest_query.Close;
Interest_query.SQL.Clear;
Interest_query.SQL.Add('Select c_intindex, c_interest, c_parent from TS_INTEREST');
Interest_query.Open;
Interest_query.Last;
Interest_query.First;
Max := Interest_query.RecordCount;
for i:= 0 to Max-1 do
begin
type_value := Interest_query.FieldByName('c_parent').AsString;
type_value2 := Interest_query.FieldByName('c_interest').AsString;
if type_value = '0' then
begin
node := TreeView1.Items.Add(Treeview1.Selected,type_value2);
j := interest_query.fieldByName('c_intindex').AsInteger;
Interest_sub_query.Close;
Interest_sub_query.SQL.Add('Select c_interest from TS_INTEREST');
Interest_sub_query.SQL.Add('Where c_parent = :c_parent');
Interest_Sub_query.ParamByName('c_parent').AsInteger := j;
Interest_sub_query.Open;
// 우선 c_parent값부터 찍어보자
if Interest_sub_query.RecordCount > 0 then
treeview1.items.addchild(node,inttostr(j))
else
treeview1.items.addchild(node,inttostr(0));
end; //begin
Interest_sub_query.free;
Interest_query.Next;
end; //begin
finally
Interest_query.free;
end; //try
end;
(NOTICE) You must be logged in to comment on this post.
-
- 이성운
- 2001.05.03 03:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 서니
- •
- 2001.05.03 02:51
- 2 COMMENTS
- /
- 0 LIKES
-
송종석•2001.05.03 09:13Master/Detail관계를 이용하셔도 됩니다. 방법: File-New-Forms-QuickReport Master/Detail 선택 후 몇가...
-
호호•2001.05.03 05:45서니 wrote: > [paradox] > > 3개의 테이블에서 데이터 값을 읽어와 출력을 하려고 합니다. > dataset...
-
- 전승헌
- •
- 2001.05.03 02:44
- 1 COMMENTS
- /
- 0 LIKES
-
송종석•2001.05.03 08:57Report폼을 Modal폼으로 띄워놓고 조회화면 폼에서 Report폼의 콤포넌트를 핸들링하는 방법이 있습니다. ...
-
- 델
- •
- 2001.05.03 02:14
- 2 COMMENTS
- /
- 0 LIKES
-
kylix•2001.05.03 04:07안녕하세요. 최용일입니다. 별거 없는데요. 아래 말씀하신 님처럼 Rx를 사용하셔두 되구요. 그냥 간단하...
-
parkisu•2001.05.03 03:41델 wrote: > 일반적으로 윈도우즈 프로그램에서 볼 수 있는 엘립시스 버튼, 텍스트를 입력할 수 있는 창 ...
-
- 윤영균
- 2001.05.03 01:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 프롬프트
- 2001.05.03 01:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 강동희
- •
- 2001.05.03 01:24
- 1 COMMENTS
- /
- 0 LIKES
-
강동희•2001.05.03 18:11강동희 wrote: 지금 *.mdb (Access DB) 를 --> Paradox 테이블로 변환중인데요... 물론 엑세스 디비...
-
- erin
- •
- 2001.05.03 00:27
- 2 COMMENTS
- /
- 0 LIKES
-
감초•2001.05.04 02:35어쩌면 interbase의 사용자 설명서나 데모 gdb화일에조차 generator는 진짜로 설명이 엉성하게 나와있는게 ...
-
프롬프트•2001.05.03 01:19인프라이즈 뉴스그룹 서치엔진입니다. 이곳에서 generator로 검색해보셔서 해당되는 내용이 있나 살펴보...
-
- 초보
- •
- 2001.05.03 00:07
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.03 01:40허걱~ 제가 그렇게 설명 드렸는데... 다시 읽어보세요. 먼저 컴포넌트를 인스톨하시구 컴포넌트 팔레트...
-
- 델초보
- 2001.05.02 23:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 델
- •
- 2001.05.02 23:08
- 4 COMMENTS
- /
- 0 LIKES
-
나그네•2001.05.03 02:24델 wrote: > EDIT 로부터 스트링을 입력 받을때, > 특정부분, 예를 들면, 첫 문자라던가, 전체 스트링중...
-
델•2001.05.03 03:12KeyPress를 했더니, 숫자를 지정하면, 숫자는 전체가 다 안되는군요.. 첫번째에만 숫자가 들어올 수 있...
-
최용일•2001.05.03 04:38안녕하세요. 최용일입니다. 아래와 같이 하세요... procedure TForm1.Edit1KeyPress(Sender: TObject...
-
유레카•2001.05.03 02:23델 wrote: > EDIT 로부터 스트링을 입력 받을때, > 특정부분, 예를 들면, 첫 문자라던가, 전체 스트링중...
-
- 피카피카
- 2001.05.02 23:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 이석민
- 2001.05.02 22:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 최용일
- 2001.05.02 22:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 박한호
- •
- 2001.05.02 21:40
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.02 22:35안녕하세요. 최용일입니다. 이 에러의 99%는 이름매칭이 잘못되서 그런겁니다. Name뒤에 써주는 DLL...
-
- 델초보
- •
- 2001.05.02 21:18
- 1 COMMENTS
- /
- 0 LIKES
-
사발우성•2001.05.03 01:30OnClickSeries이밴트에 이렇게 함됨다. ^_________^;; series.YValues[ValueIndex] series.XValues[Value...
-
- hlpark
- •
- 2001.05.02 21:13
- 2 COMMENTS
- /
- 0 LIKES
델파이 왕초봅니당~~ 뭐가 잘못인지 몰르겠어요.. 쿼리를 겹쳐서 그러지 어떤지... 제가 하고픈건 + 경제 - 금융 - 마케팅 + 교육 - 음악 - 미술 이렇게 TreeView로 보여주는건데 테이블이 CREATE TABLE NFRALOC.TS_INTEREST ( C_INTINDEX...-
아폴론•2001.05.03 21:20hlpark wrote: > 델파이 왕초봅니당~~ > > 뭐가 잘못인지 몰르겠어요.. > 쿼리를 겹쳐서 그러지 어떤...
-
hlpark•2001.05.03 21:52
-
- 김종석
- 2001.05.02 21:05
- 0 COMMENTS
- /
- 0 LIKES
-
-
hoon•2001.05.03 23:183107 wrote: > sql plus에서 현재 잡혀있는 인텍스를 본다던지... user_indexes 를 보시면 될...
-
-
- 델초보
- 2001.05.02 20:55
- 0 COMMENTS
- /
- 0 LIKES
> 델파이 왕초봅니당~~
>
> 뭐가 잘못인지 몰르겠어요..
> 쿼리를 겹쳐서 그러지 어떤지...
> 제가 하고픈건
>
> + 경제
> - 금융
> - 마케팅
> + 교육
> - 음악
> - 미술
>
> 이렇게 TreeView로 보여주는건데
>
> 테이블이
>
> CREATE TABLE NFRALOC.TS_INTEREST (
> C_INTINDEX NUMBER(38, 0) NOT NULL,
> C_INTEREST VARCHAR2(30) NOT NULL,
> C_PARENT NUMBER(38, 0) NOT NULL
> )
>
> 경제랑 교육은 c_parent가 0 금융, 마케팅의 c_parent는 경제의 c_iniindex값과 같고
> 음악, 미술의 c_parent는 교육의 c_iniindex값과 같습니다.
> subitem이 없을 수도 있구요...
> 뭐가 잘못인지 자꾸 쿼리에러가 납니다..
> 도와주세요..벌써 며칠째이러고 있답니다!!!
>
>
> //TabSheet7 관심분야
> try
> Interest_query.DatabaseName := 'nfraTool';
> Interest_sub_query.DatabaseName := 'nfraTool';
> Interest_query.Close;
> Interest_query.SQL.Clear;
> Interest_query.SQL.Add('Select c_intindex, c_interest, c_parent from TS_INTEREST');
> Interest_query.Open;
> Interest_query.Last;
> Interest_query.First;
> Max := Interest_query.RecordCount;
> for i:= 0 to Max-1 do
> begin
> type_value := Interest_query.FieldByName('c_parent').AsString;
> type_value2 := Interest_query.FieldByName('c_interest').AsString;
> if type_value = '0' then
> begin
> node := TreeView1.Items.Add(Treeview1.Selected,type_value2);
> j := interest_query.fieldByName('c_intindex').AsInteger;
==========아래처럼 바꿔보세요=========================
with Interest_sub_query do begin>
> Close;
SQL.clear;
> SQL.Add('Select c_interest from TS_INTEREST');
> SQL.Add('Where c_parent = :p_parent');
> ParamByName('p_parent').AsInteger := j;
> Open;
if while not eof do begin
> treeview1.items.addchild(node,inttostr(0));
> Next;
end;
end;
====================================================
>
> end; //begin
> Interest_sub_query.free;
> end; //begin
> finally
> Interest_query.free;
> end; //try
>
> end;
>
>
>
>
>