한국 델파이 개발자 모임 - [긴급]스토어드 프로시저 사용법 가르쳐조요

[긴급]스토어드 프로시저 사용법 가르쳐조요

안녕하세요

스토어드 프로시저를 사용해서 DB를 Insert, update, delete 하고 싶어서 사용했는데.

general Sql error 가 나오는군요..

우선 서버는 MSSQL 7.0 이고요..

delphi 5.0으로 작업을 했어요

서버와 연결은 TDATABASE 로 연결했구요

TstoredProc 로 TDATABASE와 연결 StoredProceName을 린크해서 사용했어요

TStoredProc의 구성은요

CREATE PROCEDURE [sp_insert_OdUser_1]

(@DbLogin_1 [varchar](10),

@DbPass_2 [varchar](10),

@CcName_3 [varchar](20),

@Permission_4 [char](1))

AS INSERT INTO [Sworder].[dbo].[OdUser]

( [DbLogin],

[DbPass],

[CcName],

[Permission])

VALUES

( @DbLogin_1,

@DbPass_2,

@CcName_3,

@Permission_4)

입니다.

Params 는

@DbLogin_1, @DbPass_2, @CcName_3, @Permission_4 의 paramType 를 ptInput 로 했어요...

파라메타는 전송이 되는데 ExecProc 사용시 general Sql error 가 나요...

소스는

procedure TF_User.SpeedButton4Click(Sender: TObject);

begin

DM.sp_user.Params[1].Asstring := 'ID';

DM.sp_user.Params[2].Asstring := 'pass';

DM.sp_user.Params[3].Asstring := 'name';

DM.sp_user.Params[4].Asstring := 'U';

DM.sp_user.Prepare;

DM.sp_user.ExecProc;

end;

입니다.

아시는 분 꼭 가르쳐 주시면 감사하겠습니다.

이거 정말 연결은 되는데 자꾸 에라가 나서 말이지요.. 꼭 부탁 드립니다.

이 게시물을

2 COMMENTS

박준영 • 2001.01.04 11:31

안장근 wrote:

> 안녕하세요

> 스토어드 프로시저를 사용해서 DB를 Insert, update, delete 하고 싶어서 사용했는데.

> general Sql error 가 나오는군요..

> 우선 서버는 MSSQL 7.0 이고요..

> delphi 5.0으로 작업을 했어요

> 서버와 연결은 TDATABASE 로 연결했구요

> TstoredProc 로 TDATABASE와 연결 StoredProceName을 린크해서 사용했어요

> TStoredProc의 구성은요

>

> CREATE PROCEDURE [sp_insert_OdUser_1]

> (@DbLogin_1 [varchar](10),

> @DbPass_2 [varchar](10),

> @CcName_3 [varchar](20),

> @Permission_4 [char](1))

>

> AS INSERT INTO [Sworder].[dbo].[OdUser]

> ( [DbLogin],

> [DbPass],

> [CcName],

> [Permission])

>

> VALUES

> ( @DbLogin_1,

> @DbPass_2,

> @CcName_3,

> @Permission_4)

> 입니다.

>

> Params 는

> @DbLogin_1, @DbPass_2, @CcName_3, @Permission_4 의 paramType 를 ptInput 로 했어요...

> 파라메타는 전송이 되는데 ExecProc 사용시 general Sql error 가 나요...

> 소스는

> procedure TF_User.SpeedButton4Click(Sender: TObject);

> begin

> DM.sp_user.Params[1].Asstring := 'ID';

> DM.sp_user.Params[2].Asstring := 'pass';

> DM.sp_user.Params[3].Asstring := 'name';

> DM.sp_user.Params[4].Asstring := 'U';

> DM.sp_user.Prepare;

> DM.sp_user.ExecProc;

> end;

> 입니다.

> 아시는 분 꼭 가르쳐 주시면 감사하겠습니다.

> 이거 정말 연결은 되는데 자꾸 에라가 나서 말이지요.. 꼭 부탁 드립니다.

---------------------------------

ADO를 사용한 Storedprocedure 예제입니다.

도움이 되시길....

with ADOStoredProc1 do

begin

Close;

Parameters.Clear;

ProcedureName := 'xxx_test';

Parameters.CreateParameter('RET',ftInteger,pdReturnValue, 0, 0);

Parameters.CreateParameter('No',ftString,pdInput, 11, No);

Parameters.CreateParameter('WD',ftString,pdInput, 8, 'temp');

Parameters.CreateParameter('Gb',ftInteger,pdInput, 0, FlatTabControl1.ActiveTab);

Open;

ret := Parameters.ParamValues['RET'];

Parameters.Clear;

case ret of

1 :

begin

PosGrid.ColCount := FieldCount;

if RecordCount = 0 then

begin

Close;

exit;

end;

PosGrid.RowCount := RecordCount + 1;

i := 1;

while not EOF do

begin

PosGrid.Cells[0,i] := FieldValues['BBB'];

if FieldValues['OrderGb'] = 1 then

PosGrid.Cells[1,i] := 'A'

else PosGrid.Cells[1,i] := 'B';

PosGrid.Cells[2,i] := FormatFloat('###,###,###',FieldValues['C']);

PosGrid.Cells[3,i] := FormatFloat('#,###.00',FieldValues['D']);

PosGrid.Cells[4,i] := FormatFloat('###,###,###,###',FieldValues['E']);

inc(i);

Next;

end;

end;

else

begin

showmessage (FieldValues['Msg']);

end;

end;

Close;

end;
- 0
- 0
- 삭제
- 수정
- 댓글
안장근 • 2001.01.05 01:33

박준영시 정말 감사합니다.

그런데 말이지요 꼭 ADO 를 쓰지 않고 바로 스토어즈 프로시저를 쓰는 방법은 없는지요...

TDATABASE 에 바로 스토어즈 프로시저를 연결해서. 서버의 스토어즈 프로시저를 실행하는 방법은 없는지요...

그것을 알고 싶어요..

감사합니다.

박준영 wrote:

>

> ADO를 사용한 Storedprocedure 예제입니다.

> 도움이 되시길....

>

>

> with ADOStoredProc1 do

> begin

> Close;

> Parameters.Clear;

>

> ProcedureName := 'xxx_test';

> Parameters.CreateParameter('RET',ftInteger,pdReturnValue, 0, 0);

> Parameters.CreateParameter('No',ftString,pdInput, 11, No);

> Parameters.CreateParameter('WD',ftString,pdInput, 8, 'temp');

> Parameters.CreateParameter('Gb',ftInteger,pdInput, 0, FlatTabControl1.ActiveTab);

>

> Open;

> ret := Parameters.ParamValues['RET'];

> Parameters.Clear;

>

>

> case ret of

> 1 :

> begin

> PosGrid.ColCount := FieldCount;

> if RecordCount = 0 then

> begin

> Close;

> exit;

> end;

> PosGrid.RowCount := RecordCount + 1;

> i := 1;

> while not EOF do

> begin

> PosGrid.Cells[0,i] := FieldValues['BBB'];

> if FieldValues['OrderGb'] = 1 then

> PosGrid.Cells[1,i] := 'A'

> else PosGrid.Cells[1,i] := 'B';

>

> PosGrid.Cells[2,i] := FormatFloat('###,###,###',FieldValues['C']);

> PosGrid.Cells[3,i] := FormatFloat('#,###.00',FieldValues['D']);

> PosGrid.Cells[4,i] := FormatFloat('###,###,###,###',FieldValues['E']);

>

> inc(i);

> Next;

> end;

> end;

> else

> begin

> showmessage (FieldValues['Msg']);

> end;

> end;

> Close;

> end;

>

>
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 미스터
- •
- 2001.01.04 20:59
- 1 COMMENTS
- /
- 0 LIKES
Memo Field의 내용을 DBMemo Field에 넣으려면?
- 장지용
  
  •
  
  2001.01.05 03:25
  
  미스터 wrote: > 어떠케 해야 합니까? (delphi4.0) > > Query1.FieldByName('DBMEMOFILED').asString :...
- 궁금이
- 2001.01.04 20:56
- 0 COMMENTS
- /
- 0 LIKES
DBMemo사용시 스크롤문제
- eocn
- •
- 2001.01.04 20:47
- 1 COMMENTS
- /
- 0 LIKES
코딩으로 인쇄시 미리보기 구현에 대해서
- 공성환
  
  •
  
  2001.01.04 22:19
  
  답변이 될지... 미리보기를 하신것같네요... 그런데 여러장일경우 문제가 되지요... 저는 출력데이타를 ...
- 나그네
- 2001.01.04 20:37
- 0 COMMENTS
- /
- 0 LIKES
같은그림맞추기, 짝맞추기 소스좀.....
- 3107
- 2001.01.04 20:30
- 0 COMMENTS
- /
- 0 LIKES
form 생성시 self와 application의 차이점
- 자라목
- 2001.01.04 19:44
- 0 COMMENTS
- /
- 0 LIKES
html코드를 입력해서 미리보기 기능을 만들려 합니다.
- 윤규성
- •
- 2001.01.04 20:06
- 4 COMMENTS
- /
- 0 LIKES
마스타/디테일 SQL 구성에 관한 질문입니다.
- srookie
  
  •
  
  2001.01.05 08:58
  
  윤규성 wrote: > 제가 프로그램을 작성도중 문제에 봉착했네요 ㅠ_ㅠ > > 형태는 다음과 같습니다. > ...
- 윤규성
  
  •
  
  2001.01.05 02:56
  
  임형호 님께서 알려주신 방법으로 하면 인터베이스에서는 이런 에러가 떨어지더군요. invalid request BLR...
- 임형호
  
  •
  
  2001.01.05 01:14
  
  윤규성 wrote: > 제가 프로그램을 작성도중 문제에 봉착했네요 ㅠ_ㅠ > > 형태는 다음과 같습니다. > ...
- 윤규성
  
  •
  
  2001.01.05 01:52
  
  꾸벅
- 윤
- 2001.01.04 19:07
- 0 COMMENTS
- /
- 0 LIKES
Socket을 컴퍼넌트로 등록시 에러...
- 강동엽
- 2001.01.04 19:02
- 0 COMMENTS
- /
- 0 LIKES
상태바에 Gauge 을 넣어주는 방법
- 김민수
- •
- 2001.01.04 16:16
- 3 COMMENTS
- /
- 0 LIKES
밤 새웠습니다. 지발 부탁드려여...
- 아기늑대
  
  •
  
  2001.01.04 20:32
  
  십단위에서 버림을 할려고 하는 건데 문제가 있는것이군요.. 현재 Delphi에서는 산술적인 것으로 Trunc,...
- 성더기
  
  •
  
  2001.01.04 19:09
  
  김민수 wrote: > 부탁드립니다. > 예를 들어 단가 항목에 100원이 있는데 이의 조정을 위하여 3%의 조정...
- bluechip
  
  •
  
  2001.01.04 17:48
  
  김민수 wrote: > 부탁드립니다. > 예를 들어 단가 항목에 100원이 있는데 이의 조정을 위하여 3%의 조정...
- 델파이를 이제 배우려
- •
- 2001.01.05 03:02
- 1 COMMENTS
- /
- 0 LIKES
델파이 교재 추천 바랍니다.
- 김종언
  
  •
  
  2001.01.05 03:03
  
  제가 본책중에서 젤 좋은책은.. 쪼깐 비싸지만... 델파이 5 콘텍트 라는 책이있습니다요. 책에 적어진 가격...
- nick
- •
- 2001.01.04 19:46
- 2 COMMENTS
- /
- 0 LIKES
자신의 컴의 상용가능한 포트를 찾는 방법이 있나요?
- 박준영
  
  •
  
  2001.01.04 11:27
  
  nick wrote: > 자신의 컴의 사용가능한 포트를 찾는 방법이 있나요? > > 자세한 내용은 이렀습니다. >...
- nick
  
  •
  
  2001.01.04 19:43
  
  아닙니다... 박준영님의 답변 감사드립니다. ^^ 박준영 wrote: > nick wrote: > > 자신의 컴의 ...
- sense
- •
- 2001.01.04 19:46
- 1 COMMENTS
- /
- 0 LIKES
어플에서 ping을 어케 쓰나요?
- 권영길
  
  •
  
  2001.01.04 19:48
  
  indy를 쓰세요. sense wrote: > 한 쪽의 어플리케이션에서 상대방의 네트웍 속도를 알수있는 ping 관련 ...
- 용이사랑
- •
- 2001.01.04 07:03
- 4 COMMENTS
- /
- 0 LIKES
오라클연결시 error
- 성더기
  
  •
  
  2001.01.04 19:14
  
  용이사랑 wrote: > > 사용환경 : windows 98, oracle7.3.2. delphi 3.0 > BDE error : vendor initi...
- 기헌
  
  •
  
  2001.01.05 01:16
  
  성더기 wrote: > 용이사랑 wrote: > > > > 사용환경 : windows 98, oracle7.3.2. delphi 3.0 > > B...
- 용이사랑
  
  •
  
  2001.01.05 04:54
  
  > > > > > 오라클 PATH(c:orantbin 폴더가 Path에 있어야함다)를 확인해보시구여 > > 벤더 init에 ora...
- 성더기
  
  •
  
  2001.01.05 21:06
  
  용이사랑 wrote: > > > > > > > > 오라클 PATH(c:orantbin 폴더가 Path에 있어야함다)를 확인해보시구...
- 문창배
- •
- 2001.01.04 06:51
- 1 COMMENTS
- /
- 0 LIKES
내장 프로시저 정리된 자료를 구해요?
- 허일학
  
  •
  
  2001.01.05 08:30
  
  문창배 wrote: > 내장 프로시저가 정리된 자료를 구하는데요 .. > 있을것 같은데 ... 도저히 찾을 수가 ...
- 안장근
- •
- 2001.01.04 06:08
- 2 COMMENTS
- /
- 0 LIKES
[긴급]스토어드 프로시저 사용법 가르쳐조요

안녕하세요 스토어드 프로시저를 사용해서 DB를 Insert, update, delete 하고 싶어서 사용했는데. general Sql error 가 나오는군요.. 우선 서버는 MSSQL 7.0 이고요.. delphi 5.0으로 작업을 했어요 서버와 연결은 TDATABASE 로 연결했구...
- 박준영
  
  •
  
  2001.01.04 11:31
  
  안장근 wrote: > 안녕하세요 > 스토어드 프로시저를 사용해서 DB를 Insert, update, delete 하고 싶어서...
- 안장근
  
  •
  
  2001.01.05 01:33
  
  박준영시 정말 감사합니다. 그런데 말이지요 꼭 ADO 를 쓰지 않고 바로 스토어즈 프로시저를 쓰는 방법은...
- 디비초보
- •
- 2001.01.04 06:41
- 1 COMMENTS
- /
- 0 LIKES
DB에서 뽑은 데이타를 자유롭게 쓰려면...
- kjh404
  
  •
  
  2001.01.04 19:04
  
  디비초보 wrote: > Data set으로 DB에 접속해서 연결을 시킨것을 자유롭게 쓰려면... > > 예1) 일반적...
- 박원우
- 2001.01.04 05:18
- 0 COMMENTS
- /
- 0 LIKES
유니트 선언부에 다음과 같은 내용을 추가하세요
- 김양미
- •
- 2001.01.04 05:12
- 1 COMMENTS
- /
- 0 LIKES
델파이에... 유닉스를..???? ^^a
- 박준영
  
  •
  
  2001.01.04 11:19
  
  델파이로 작성된 프로그램으로 win계열의 os 환경에서 shared memory 사용은 가능합니다. FMappingHa...
- 궁금이
- •
- 2001.01.04 04:07
- 1 COMMENTS
- /
- 0 LIKES
RX라이브러리 어떻게 구하나요?
- 박준영
  
  •
  
  2001.01.04 11:21
  
  궁금이 wrote: > 금액관련 해서 RX라이브러리 쓸려고 합니다. > 있으시면.. 부탁드릴께요. 자료실에...

안장근
2001/01/04 06:08
Views353

Likes0

Comments2

Reports0
Tag List
수정
삭제
목록으로

←First Page

2026 2027 2028 2029 2030 2031 2032 2033 2034 2035

Last Page→