Q&A
- 임시테이블의 획득과 삭제에 대해.....
안녕하세요! 포근한 날씨임다...
버튼을 누르면 임시테이블을 생성하고 서버로부터 'BMT750'라는 테이블에서 필요한 부문만 임시테이블로 INSERT하고 여기에사 몇가지 더 조합을 시키고 다시 생성된 임시테이블로부터 쿼리를 이용한 조회프로그램을 짜려고 합니다..임시테이블을 생성하고 drop은 되는데....다시 프로그램을 돌릴때 처음부문의 drop에서 테이블이 존재하지 않는 다는 ERROR메시지가 나옵니다....
임시테이블 이름을 획득해서 존재하면 삭제하고 존재하지 않으면 다음 부문으로 돌려야 겠는데 좋은 방법(임시 테이블이 이미 존재하는지(아님 테이블 이름 획득하는 방법)의 획득 여부) 이 있으면 좀 갈켜주세요.. 많은 도움 바랍니다....
아래에 제가 작성한 소스올립니다..
procedure TForm1.querybitbtn1Click(Sender: TObject);
var
i:integer;
begin
with query1 do
begin
close;
sql.clear;
sql.add('drop table bmt750t'); //요부문에서 임시테이블이 이미 존해하면 DROP을
// 시키고 존재하지 않으면 다음루틴으로 돌리려 함
execsql;
close;
sql.clear;
sql.add('create table bmt750t(');
sql.add('prdcod char(13),');
sql.add('stkid char(2),');
sql.add('subid char(1),');
sql.add('trans numeric(9),');
sql.add('netinp numeric(9),');
sql.add('brkinp numeric(7),');
sql.add('netoup numeric(9))');
execsql;
close;
sql.clear;
sql.add('insert into bmt750t(prdcod,stkid,subid,trans,netinp,brkinp,netoup)');
sql.add(' select prdcod,stkid,subid,trans,netinp,brkinp,netoup');
sql.add(' from bmt750');
sql.add('where stkyr+stkmm+stkdd>=20001129');
execsql;
close;
sql.clear;
sql.add('select prdcod,stkid,subid,trans,netinp,brkinp,netoup');
sql.add('from bmt750t');
open;
first;
i:=1;
stringgrid1.rowcount:=recordcount+1;
while not eof do
begin
stringgrid1.cells[0,i]:=fieldbyname('prdcod').asstring;
stringgrid1.cells[1,i]:=fieldbyname('stkid').asstring;
stringgrid1.cells[2,i]:=fieldbyname('subid').asstring;
stringgrid1.cells[3,i]:=fieldbyname('trans').asstring;
stringgrid1.cells[4,i]:=fieldbyname('netinp').asstring;
stringgrid1.cells[5,i]:=fieldbyname('brkinp').asstring;
stringgrid1.cells[6,i]:=fieldbyname('netoup').asstring;
next;
inc(i);
end;
close;
sql.clear;
sql.add('drop table bmt750t');
execsql;
close;
end;
end;
버튼을 누르면 임시테이블을 생성하고 서버로부터 'BMT750'라는 테이블에서 필요한 부문만 임시테이블로 INSERT하고 여기에사 몇가지 더 조합을 시키고 다시 생성된 임시테이블로부터 쿼리를 이용한 조회프로그램을 짜려고 합니다..임시테이블을 생성하고 drop은 되는데....다시 프로그램을 돌릴때 처음부문의 drop에서 테이블이 존재하지 않는 다는 ERROR메시지가 나옵니다....
임시테이블 이름을 획득해서 존재하면 삭제하고 존재하지 않으면 다음 부문으로 돌려야 겠는데 좋은 방법(임시 테이블이 이미 존재하는지(아님 테이블 이름 획득하는 방법)의 획득 여부) 이 있으면 좀 갈켜주세요.. 많은 도움 바랍니다....
아래에 제가 작성한 소스올립니다..
procedure TForm1.querybitbtn1Click(Sender: TObject);
var
i:integer;
begin
with query1 do
begin
close;
sql.clear;
sql.add('drop table bmt750t'); //요부문에서 임시테이블이 이미 존해하면 DROP을
// 시키고 존재하지 않으면 다음루틴으로 돌리려 함
execsql;
close;
sql.clear;
sql.add('create table bmt750t(');
sql.add('prdcod char(13),');
sql.add('stkid char(2),');
sql.add('subid char(1),');
sql.add('trans numeric(9),');
sql.add('netinp numeric(9),');
sql.add('brkinp numeric(7),');
sql.add('netoup numeric(9))');
execsql;
close;
sql.clear;
sql.add('insert into bmt750t(prdcod,stkid,subid,trans,netinp,brkinp,netoup)');
sql.add(' select prdcod,stkid,subid,trans,netinp,brkinp,netoup');
sql.add(' from bmt750');
sql.add('where stkyr+stkmm+stkdd>=20001129');
execsql;
close;
sql.clear;
sql.add('select prdcod,stkid,subid,trans,netinp,brkinp,netoup');
sql.add('from bmt750t');
open;
first;
i:=1;
stringgrid1.rowcount:=recordcount+1;
while not eof do
begin
stringgrid1.cells[0,i]:=fieldbyname('prdcod').asstring;
stringgrid1.cells[1,i]:=fieldbyname('stkid').asstring;
stringgrid1.cells[2,i]:=fieldbyname('subid').asstring;
stringgrid1.cells[3,i]:=fieldbyname('trans').asstring;
stringgrid1.cells[4,i]:=fieldbyname('netinp').asstring;
stringgrid1.cells[5,i]:=fieldbyname('brkinp').asstring;
stringgrid1.cells[6,i]:=fieldbyname('netoup').asstring;
next;
inc(i);
end;
close;
sql.clear;
sql.add('drop table bmt750t');
execsql;
close;
end;
end;
2
COMMENTS
-
-
김종언 님...
정말 감사드려요...덕분에 유용하게 프로그래밍하고 있습니다..
김종언님에게는 자그마한 부문이 저에게는 큰 도움이 되고 있네요....
앞으로도 많은 조언과 도움말 부탁드릴께요....
그럼 좋은 하루되세요...
김종언 wrote:
> 아이구 이런.. 또 나아니면 답해줄사람이 없을것 같네요....
> 테이블의 존재 여부를 알아오는 방법이 있습니다...
> 그부분을 적어드리죠... 아까 물어볼때 같이 물어보시지...
> 저는 이걸 함수를 만들어서 사용했습니다.
>
>
> 테이블이. 존재하는가?
>
> function Tform1.havingtable(table_name : String) : integer;
> var
> itemlist : Tstringlist;
> begin
> itemlist := TStringList.Create;
> Session.GetTableNames('recons','',false,false,itemlist);
> Result := itemlist.IndexOf(table_name);
> end;
>
>
> 위를 보면 이해가 가시겠죠? recons는 DB입니다 DB에서 itemlist가 바로... 테이블의 목록입니다. 테이블목록에서... 아까 전달받은 테이블네임... 이 있는가 확인하고..
> 값을 전달해줍니다.. 반환값은 테이블이 없을때.. -1 입니다..
>
>
> 델이랑파이랑 wrote:
> > 안녕하세요! 포근한 날씨임다...
> > 버튼을 누르면 임시테이블을 생성하고 서버로부터 'BMT750'라는 테이블에서 필요한 부문만 임시테이블로 INSERT하고 여기에사 몇가지 더 조합을 시키고 다시 생성된 임시테이블로부터 쿼리를 이용한 조회프로그램을 짜려고 합니다..임시테이블을 생성하고 drop은 되는데....다시 프로그램을 돌릴때 처음부문의 drop에서 테이블이 존재하지 않는 다는 ERROR메시지가 나옵니다....
> > 임시테이블 이름을 획득해서 존재하면 삭제하고 존재하지 않으면 다음 부문으로 돌려야 겠는데 좋은 방법(임시 테이블이 이미 존재하는지(아님 테이블 이름 획득하는 방법)의 획득 여부) 이 있으면 좀 갈켜주세요.. 많은 도움 바랍니다....
> > 아래에 제가 작성한 소스올립니다..
> >
> > procedure TForm1.querybitbtn1Click(Sender: TObject);
> > var
> > i:integer;
> > begin
> > with query1 do
> > begin
> > close;
> > sql.clear;
> > sql.add('drop table bmt750t'); //요부문에서 임시테이블이 이미 존해하면 DROP을
> > // 시키고 존재하지 않으면 다음루틴으로 돌리려 함
> > execsql;
> >
> >
> > close;
> > sql.clear;
> > sql.add('create table bmt750t(');
> > sql.add('prdcod char(13),');
> > sql.add('stkid char(2),');
> > sql.add('subid char(1),');
> > sql.add('trans numeric(9),');
> > sql.add('netinp numeric(9),');
> > sql.add('brkinp numeric(7),');
> > sql.add('netoup numeric(9))');
> > execsql;
> > close;
> >
> > sql.clear;
> > sql.add('insert into bmt750t(prdcod,stkid,subid,trans,netinp,brkinp,netoup)');
> > sql.add(' select prdcod,stkid,subid,trans,netinp,brkinp,netoup');
> > sql.add(' from bmt750');
> > sql.add('where stkyr+stkmm+stkdd>=20001129');
> > execsql;
> > close;
> >
> > sql.clear;
> > sql.add('select prdcod,stkid,subid,trans,netinp,brkinp,netoup');
> > sql.add('from bmt750t');
> > open;
> > first;
> > i:=1;
> > stringgrid1.rowcount:=recordcount+1;
> > while not eof do
> > begin
> > stringgrid1.cells[0,i]:=fieldbyname('prdcod').asstring;
> > stringgrid1.cells[1,i]:=fieldbyname('stkid').asstring;
> > stringgrid1.cells[2,i]:=fieldbyname('subid').asstring;
> > stringgrid1.cells[3,i]:=fieldbyname('trans').asstring;
> > stringgrid1.cells[4,i]:=fieldbyname('netinp').asstring;
> > stringgrid1.cells[5,i]:=fieldbyname('brkinp').asstring;
> > stringgrid1.cells[6,i]:=fieldbyname('netoup').asstring;
> > next;
> > inc(i);
> > end;
> > close;
> >
> > sql.clear;
> > sql.add('drop table bmt750t');
> > execsql;
> > close;
> >
> > end;
> > end;
> >
> >
(NOTICE) You must be logged in to comment on this post.
-
- 델이랑파이랑
- •
- 2000.12.02 02:58
- 1 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.04 20:24쩝... up2 라는 필드에 아무것도 넣지 않을거라면 없애버리면 되지 않을까요? sql.add('insert i...
-
- 초보자
- •
- 2000.12.02 02:52
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.12.04 11:20다른 사용자들로부터 데이터(패킷)을 수신하는 부분은 쓰레드로 처리하고 송신하는 부분은 Lock을 사용하...
-
- 초보중 초보
- 2000.12.02 02:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 김인수
- •
- 2000.12.02 02:45
- 4 COMMENTS
- /
- 0 LIKES
-
찬호 김•2000.12.02 20:33문제를 해결하셨는지 모르겠네요. 보니까 별 문제는 없는듯 싶네요. A, B 두개의 인라인 뷰에서 같은 PR...
-
김인수•2000.12.02 21:14고수님 정말
-
김종언•2000.12.02 20:03보니깐 안될리가 없는데여... 다시 확인해보세요... 델파이내에서.. 잘못된 문장이 있는지 찾아보세요... ...
-
김인수•2000.12.02 21:17저에게 관심을 갖고 해결점을 알려주셔서 감사합니다 대단히 큰 도움이 되었습니다 항상 즐거운일이 넘...
-
- 이석현
- 2000.12.02 02:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 한창도
- •
- 2000.12.02 02:28
- 1 COMMENTS
- /
- 0 LIKES
-
고드름•2000.12.06 09:37안녕하세요? 고드름 김정입니다. 태스크바에 표시되는 것은 Application 자체입니다. 따라서 이렇게...
-
- 남기룡
- •
- 2000.12.02 02:26
- 2 COMMENTS
- /
- 0 LIKES
-
남기룡•2000.12.02 02:29남기룡 wrote: > EDIT컴포넌트를 투명하게 하려고 그러는데요.. > EDIT는 폼이나 판넬과는 다르게 잘 안...
-
이홍석•2000.12.02 07:55남기룡 wrote: > 남기룡 wrote: > > EDIT컴포넌트를 투명하게 하려고 그러는데요.. > > EDIT는 폼이나 ...
-
- 황하성
- 2000.12.02 02:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 최의종
- •
- 2000.12.02 02:02
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.12.02 02:18최의종 wrote: > 안녕하세요! > > SetWindowPos(..., HWND_TOPMOST, ....)로 폼을 최상위 윈도우로 만...
-
- 조휘석
- •
- 2000.12.02 02:01
- 1 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.02 20:11ipx 프로토콜 아시죠? 파일 공유하고 하는거.. 그걸 이용해서 폴더 공유하고 내 컴퓨터처럼 사용하는 방...
-
- 빙
- •
- 2000.12.02 01:34
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.12.04 20:43가능합니다. 단, function Add(Item: Pointer): Integer; 이렇게 되여 있져. 그러므로 TList에서 상속을...
-
-
- 금강산
- 2000.12.02 01:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 박경진
- •
- 2000.12.02 00:44
- 1 COMMENTS
- /
- 0 LIKES
-
s6763•2000.12.14 21:44박경진 wrote: > Delphi 에서 OS/DB(Linux(mysql))연동하여 프로그램 테스트 중 입니다. > MySQL 고수님...
-
- 김종언
- 2000.12.02 00:42
- 0 COMMENTS
- /
- 0 LIKES
-
- sky
- 2000.12.02 00:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 호야
- 2000.12.02 01:31
- 0 COMMENTS
- /
- 0 LIKES
-
- pallas
- •
- 2000.12.02 00:06
- 3 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.02 00:31문법이 틀렸네요... 어떤 필드 값을 뭘로 바꿔준다는 부분이 없어요... * 로 해준 부분을 명확하게.. 지...
-
pallas•2000.12.02 00:57김종언 wrote: > 문법이 틀렸네요... > 어떤 필드 값을 뭘로 바꿔준다는 부분이 없어요... > * 로 해준 ...
-
김종언•2000.12.02 20:25어떤 필드를 어떤값으로 바꿔준다는 부분이 없잖아요... 그걸 정의해 줘야져... pallas wrote: > ...
-
- 김정태
- •
- 2000.12.01 23:56
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.12.02 01:53김정태 wrote: > > Progress Bar를 보면 항상 파란색으로 진행사항을 표시하는데 > 이 부분을 다른색의...
-
- 델이랑파이랑
- •
- 2000.12.01 23:46
- 2 COMMENTS
- /
- 0 LIKES
안녕하세요! 포근한 날씨임다... 버튼을 누르면 임시테이블을 생성하고 서버로부터 'BMT750'라는 테이블에서 필요한 부문만 임시테이블로 INSERT하고 여기에사 몇가지 더 조합을 시키고 다시 생성된 임시테이블로부터 쿼리를 이용한 조회...-
김종언•2000.12.02 00:40아이구 이런.. 또 나아니면 답해줄사람이 없을것 같네요.... 테이블의 존재 여부를 알아오는 방법이 있습...
-
델이랑파이랑•2000.12.02 01:12김종언 님... 정말 감사드려요...덕분에 유용하게 프로그래밍하고 있습니다.. 김종언님에게는 자그마한 ...
테이블의 존재 여부를 알아오는 방법이 있습니다...
그부분을 적어드리죠... 아까 물어볼때 같이 물어보시지...
저는 이걸 함수를 만들어서 사용했습니다.
테이블이. 존재하는가?
function Tform1.havingtable(table_name : String) : integer;
var
itemlist : Tstringlist;
begin
itemlist := TStringList.Create;
Session.GetTableNames('recons','',false,false,itemlist);
Result := itemlist.IndexOf(table_name);
end;
위를 보면 이해가 가시겠죠? recons는 DB입니다 DB에서 itemlist가 바로... 테이블의 목록입니다. 테이블목록에서... 아까 전달받은 테이블네임... 이 있는가 확인하고..
값을 전달해줍니다.. 반환값은 테이블이 없을때.. -1 입니다..
델이랑파이랑 wrote:
> 안녕하세요! 포근한 날씨임다...
> 버튼을 누르면 임시테이블을 생성하고 서버로부터 'BMT750'라는 테이블에서 필요한 부문만 임시테이블로 INSERT하고 여기에사 몇가지 더 조합을 시키고 다시 생성된 임시테이블로부터 쿼리를 이용한 조회프로그램을 짜려고 합니다..임시테이블을 생성하고 drop은 되는데....다시 프로그램을 돌릴때 처음부문의 drop에서 테이블이 존재하지 않는 다는 ERROR메시지가 나옵니다....
> 임시테이블 이름을 획득해서 존재하면 삭제하고 존재하지 않으면 다음 부문으로 돌려야 겠는데 좋은 방법(임시 테이블이 이미 존재하는지(아님 테이블 이름 획득하는 방법)의 획득 여부) 이 있으면 좀 갈켜주세요.. 많은 도움 바랍니다....
> 아래에 제가 작성한 소스올립니다..
>
> procedure TForm1.querybitbtn1Click(Sender: TObject);
> var
> i:integer;
> begin
> with query1 do
> begin
> close;
> sql.clear;
> sql.add('drop table bmt750t'); //요부문에서 임시테이블이 이미 존해하면 DROP을
> // 시키고 존재하지 않으면 다음루틴으로 돌리려 함
> execsql;
>
>
> close;
> sql.clear;
> sql.add('create table bmt750t(');
> sql.add('prdcod char(13),');
> sql.add('stkid char(2),');
> sql.add('subid char(1),');
> sql.add('trans numeric(9),');
> sql.add('netinp numeric(9),');
> sql.add('brkinp numeric(7),');
> sql.add('netoup numeric(9))');
> execsql;
> close;
>
> sql.clear;
> sql.add('insert into bmt750t(prdcod,stkid,subid,trans,netinp,brkinp,netoup)');
> sql.add(' select prdcod,stkid,subid,trans,netinp,brkinp,netoup');
> sql.add(' from bmt750');
> sql.add('where stkyr+stkmm+stkdd>=20001129');
> execsql;
> close;
>
> sql.clear;
> sql.add('select prdcod,stkid,subid,trans,netinp,brkinp,netoup');
> sql.add('from bmt750t');
> open;
> first;
> i:=1;
> stringgrid1.rowcount:=recordcount+1;
> while not eof do
> begin
> stringgrid1.cells[0,i]:=fieldbyname('prdcod').asstring;
> stringgrid1.cells[1,i]:=fieldbyname('stkid').asstring;
> stringgrid1.cells[2,i]:=fieldbyname('subid').asstring;
> stringgrid1.cells[3,i]:=fieldbyname('trans').asstring;
> stringgrid1.cells[4,i]:=fieldbyname('netinp').asstring;
> stringgrid1.cells[5,i]:=fieldbyname('brkinp').asstring;
> stringgrid1.cells[6,i]:=fieldbyname('netoup').asstring;
> next;
> inc(i);
> end;
> close;
>
> sql.clear;
> sql.add('drop table bmt750t');
> execsql;
> close;
>
> end;
> end;
>
>