Q&A
- Delphi, 저장프로시저의 동적생성이 안됩니다.
델파이의 코딩으로
실행중 sp 의 생성 방법 좀..
아무리 해도 되지 않습니다.
SQL.Add( 하고 execsql했습니다.
SET TERM ^ ; //이건 에러나서 빼고 했는데도, unknown token ?. 에러납니다.
/* Stored procedures */
CREATE PROCEDURE "PROC_SC1"
(
S1TBL VARCHAR(10)
)
RETURNS
(
XCCODE VARCHAR(16),
XSLP DOUBLE PRECISION,
XMISU DOUBLE PRECISION,
XPOINT DOUBLE PRECISION,
XTOT_VISIT DOUBLE PRECISION
)
AS
BEGIN EXIT; END ^
ALTER PROCEDURE "PROC_SC1"
(
S1TBL VARCHAR(10)
)
RETURNS
(
XCCODE VARCHAR(16),
XSLP DOUBLE PRECISION,
XMISU DOUBLE PRECISION,
XPOINT DOUBLE PRECISION,
XTOT_VISIT DOUBLE PRECISION
)
AS
BEGIN
for select CCODE,
c.SELLPRICE+ sum(CASH)+sum(CARDPRICE)+sum(CHECKPRICE)+sum(TAX)+sum(INMISUPRICE) as SLP,
c.MISU+ sum(CREDITPRICE)-sum(INMISUPRICE) as MISU,
c.POINT+ sum(TODAYPOINT)-sum(POINTUSEPRICE) as TOT_POINT,
c.VISITTIMES+count(*) as TOT_VISIT
from S11999 s
inner join CLIENT c on (s.CCODE=c.CODE)
group by s.CCODE,c.SELLPRICE, c.MISU,c.POINT,c.VISITTIMES
INTO :XCCODE, :XSLP, :XMISU, :XPOINT, :XTOT_VISIT
DO BEGIN
update CLIENT
set SELLPRICE= :XSLP, MISU= :XMISU, POINT= :XPOINT, VISITTIMES= :XTOT_VISIT
where CLIENT.CODE= :XCCODE;
SUSPEND;
END
END
^
SET TERM ; ^
실행중 sp 의 생성 방법 좀..
아무리 해도 되지 않습니다.
SQL.Add( 하고 execsql했습니다.
SET TERM ^ ; //이건 에러나서 빼고 했는데도, unknown token ?. 에러납니다.
/* Stored procedures */
CREATE PROCEDURE "PROC_SC1"
(
S1TBL VARCHAR(10)
)
RETURNS
(
XCCODE VARCHAR(16),
XSLP DOUBLE PRECISION,
XMISU DOUBLE PRECISION,
XPOINT DOUBLE PRECISION,
XTOT_VISIT DOUBLE PRECISION
)
AS
BEGIN EXIT; END ^
ALTER PROCEDURE "PROC_SC1"
(
S1TBL VARCHAR(10)
)
RETURNS
(
XCCODE VARCHAR(16),
XSLP DOUBLE PRECISION,
XMISU DOUBLE PRECISION,
XPOINT DOUBLE PRECISION,
XTOT_VISIT DOUBLE PRECISION
)
AS
BEGIN
for select CCODE,
c.SELLPRICE+ sum(CASH)+sum(CARDPRICE)+sum(CHECKPRICE)+sum(TAX)+sum(INMISUPRICE) as SLP,
c.MISU+ sum(CREDITPRICE)-sum(INMISUPRICE) as MISU,
c.POINT+ sum(TODAYPOINT)-sum(POINTUSEPRICE) as TOT_POINT,
c.VISITTIMES+count(*) as TOT_VISIT
from S11999 s
inner join CLIENT c on (s.CCODE=c.CODE)
group by s.CCODE,c.SELLPRICE, c.MISU,c.POINT,c.VISITTIMES
INTO :XCCODE, :XSLP, :XMISU, :XPOINT, :XTOT_VISIT
DO BEGIN
update CLIENT
set SELLPRICE= :XSLP, MISU= :XMISU, POINT= :XPOINT, VISITTIMES= :XTOT_VISIT
where CLIENT.CODE= :XCCODE;
SUSPEND;
END
END
^
SET TERM ; ^
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이성윤
- •
- 2000.11.20 13:12
- 1 COMMENTS
- /
- 0 LIKES
-
이석민•2000.11.20 14:33존재하지 않는 파일에 대해서는 SHGFI_USEFILEATTRIBUTES를 사용하세요. 이성윤 wrote: > 만약 진짜 ...
-
- 임하나
- •
- 2000.11.20 09:18
- 1 COMMENTS
- /
- 0 LIKES
-
컴맹•2000.11.20 18:38음... 이렇게 하는걸 물어 보시는건가여.. StringGrid.Row := 3; 요렇게 하묜 3행으로 이동을 하게 되지...
-
- won
- •
- 2000.11.20 06:16
- 1 COMMENTS
- /
- 0 LIKES
델파이의 코딩으로 실행중 sp 의 생성 방법 좀.. 아무리 해도 되지 않습니다. SQL.Add( 하고 execsql했습니다. SET TERM ^ ; //이건 에러나서 빼고 했는데도, unknown token ?. 에러납니다. /* Stored procedures */ CREATE PROCEDURE "PR...-
김현숙•2000.12.02 05:41won wrote: > 델파이의 코딩으로 > 실행중 sp 의 생성 방법 좀.. > 아무리 해도 되지 않습니다. > >...
-
- 남석현
- 2000.11.20 05:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 한두경
- •
- 2000.11.20 03:34
- 1 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.11.20 04:20한두경 wrote: > 여러분들 도움으로 폼 여러개 띄우는건 성공 했습니다. > 객체들도 각각 제어가 되는듯 ...
-
- mallove
- 2000.11.20 01:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 김재승
- •
- 2000.11.19 23:38
- 1 COMMENTS
- /
- 0 LIKES
-
사용자•2000.11.20 08:24김재승 wrote: > 윈도우즈 2000 서버에서 델파이 3 를 사용합니다. > 그런데 quickreport의경우 설치된 ...
-
- 초보
- •
- 2000.11.19 23:36
- 1 COMMENTS
- /
- 0 LIKES
-
김상호•2000.11.20 08:47odbc를 사용하지 않는 다면 다음과 같이 하면 됩니다. 1. Access에서 db를 만들고 2. bde에서 알리아스...
-
- won
- 2000.11.19 23:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보 희야~
- 2000.11.19 23:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 이원영
- •
- 2000.11.21 03:56
- 2 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.11.21 03:57이원영 wrote: > 안녕하세요.. 폼을 만들고 에디트창을 차례대로 넣었습니다. 중간 중간에 마스크 에디트...
-
병이기•2000.11.21 03:57안녕하세요...!! 제가 알고 있는 방법은... 보시면 모든 컴퍼넌트에는 Taborder라는 것이 있습니다... ...
-
- 황현동
- •
- 2000.11.19 11:49
- 2 COMMENTS
- /
- 0 LIKES
-
홍세비•2000.11.22 10:27황현동 wrote: > > 안녕하세요? > > 무료계정중에 Windows NT 를 사용한다는 곳이 있습니다. > ...
-
강인규•2000.11.19 12:03음....그건.....그쪽 서버의 사정에 따라 다릅니다. 만일 해당계정에 '실행'권한을 준다면 사용할 수야 있...
-
- volf
- •
- 2000.11.19 09:46
- 2 COMMENTS
- /
- 0 LIKES
-
이경문•2000.11.19 13:54서버소켓이 들어가는게 좋을 겁니다. 서버 소켓이 들어갔다고 반드시 서버프로그램이지는 않습니다. 메신...
-
왕초보•2001.01.06 09:00메신저라면... 아무래도 UDP로 하는게 낫겠죠.... UDP로 하면 그런거 상관 없을꺼에요. 이경문 wrote: ...
-
-
로비•2000.11.20 07:08regedit 에서 run 또는 runonce 또는 runservice 이라는 키로 찾아보세요 거기에다 값넣으시면 됩니다 ...
-
-
- won
- 2000.11.19 09:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 방기남
- •
- 2000.11.19 08:59
- 2 COMMENTS
- /
- 0 LIKES
-
아이언•2000.11.20 17:34일단 TSocketConnection 컴퍼넌트를 사용하시면.. /////////서버측////////// 서버App를 띄우실때 C:Pr...
-
병이기•2000.11.19 11:01안녕하세요...!! 제가 보기에는 Delphi에 보면... 파일 이름이 생각이 않나는데... Delphi의 폴더중에....
-
- 명문
- •
- 2000.11.19 03:29
- 1 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.11.19 10:31명문 wrote: > 윈도우 에서 시간을 수전할때 스핀버튼을 이용하는데요 > > 어떤방식으로 MaskEdit 에...
-
- 어린왕자
- 2000.11.19 02:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- 2000.11.19 01:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- •
- 2000.11.19 01:01
- 1 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.11.19 03:20궁금이 wrote: > TDatabase를 컴포넌트를 안쓰고 코딩으로 만들어서 사용하려구 하는데... > 이상하게 자...
> 델파이의 코딩으로
> 실행중 sp 의 생성 방법 좀..
> 아무리 해도 되지 않습니다.
>
> SQL.Add( 하고 execsql했습니다.
>
> SET TERM ^ ; //이건 에러나서 빼고 했는데도, unknown token ?. 에러납니다.
>
>
> /* Stored procedures */
>
> CREATE PROCEDURE "PROC_SC1"
> (
> S1TBL VARCHAR(10)
> )
> RETURNS
> (
> XCCODE VARCHAR(16),
> XSLP DOUBLE PRECISION,
> XMISU DOUBLE PRECISION,
> XPOINT DOUBLE PRECISION,
> XTOT_VISIT DOUBLE PRECISION
> )
> AS
> BEGIN EXIT; END ^
>
>
> ALTER PROCEDURE "PROC_SC1"
> (
> S1TBL VARCHAR(10)
> )
> RETURNS
> (
> XCCODE VARCHAR(16),
> XSLP DOUBLE PRECISION,
> XMISU DOUBLE PRECISION,
> XPOINT DOUBLE PRECISION,
> XTOT_VISIT DOUBLE PRECISION
> )
> AS
>
> BEGIN
>
> for select CCODE,
> c.SELLPRICE+ sum(CASH)+sum(CARDPRICE)+sum(CHECKPRICE)+sum(TAX)+sum(INMISUPRICE) as SLP,
> c.MISU+ sum(CREDITPRICE)-sum(INMISUPRICE) as MISU,
> c.POINT+ sum(TODAYPOINT)-sum(POINTUSEPRICE) as TOT_POINT,
> c.VISITTIMES+count(*) as TOT_VISIT
> from S11999 s
> inner join CLIENT c on (s.CCODE=c.CODE)
> group by s.CCODE,c.SELLPRICE, c.MISU,c.POINT,c.VISITTIMES
> INTO :XCCODE, :XSLP, :XMISU, :XPOINT, :XTOT_VISIT
>
> DO BEGIN
> update CLIENT
> set SELLPRICE= :XSLP, MISU= :XMISU, POINT= :XPOINT, VISITTIMES= :XTOT_VISIT
> where CLIENT.CODE= :XCCODE;
> SUSPEND;
> END
> END
> ^
>
> SET TERM ; ^
>
제가 실제로 소스에서 코딩한 내용입니다.
참고하세요...
with Query1 do
begin
close;
sql.add('CREATE PROCEDURE UPDATE_PERSON4 ');
sql.add('(PCHART VARCHAR(13)) AS BEGIN ');
sql.add('UPDATE PERSON SET P_JUMIN = "101010-2010236"');
SQL.ADD('WHERE P_CHART LIKE "%10" ;');
sql.add('END');
Execsql;
end;