한국 델파이 개발자 모임 - 설문조사 프로그램에서...

설문조사 프로그램에서...

백운기 님의 델파이 웹프로그래밍이란 책을 공부하면서 거기 있는 내용을 따라 하고 있습니다.

근데 정작 코딩을 끝내고 컴파일하여 ActiveX 서버에 레지스터 한 후에

브라우저로 실행하니 다음과 같은 에러가 뜹니다.

책에 있는 소스와 비교도 해보고 Value를 AsString이나 AsInteger로 바꾸고 해봐도

똑같은 에러가 뜹니다.

아래 소스는 가장 최근에 입력된 설문조사를 추출하여 브라우저에 뿌려주는 Procedure를 호출하는 것입니다.

오류 형식:

PrjDoPoll.DoPoll (0x800A0BCD)

BOF 또는 EOF가 참이거나, 현재 레코드를 삭제했습니다. 요청한 작업에 현재 레코드가 필요합니다

/poll/dopoll.asp, line 9

Testing Delphi ASP

You should see the results of your Delphi Active Server method below

<% Set DelphiASPObj = Server.CreateObject("PrjDoPoll.DoPoll")

DelphiASPObj.ShowPoll // Line 9

Set DelphiASPObj = Nothing

%>

ShowPoll의 구현 부분은 다음과 같습니다.

procedure TDoPoll.ShowPoll;

var

Content : String;

i : integer;

begin

DM := TDM.Create(Nil);

with DM do

begin

qryQuest.Open;

qryAns.Open;

qryQuest.Last;

if qryQuest.Fieldbyname('QuestType').AsString = 'AA' then

begin

Content := Content + '다음 질문 내용에 대한 대답 한 가지를 선택해 주세요
' + qryQuest.FieldByName('Quest').AsString + '
'+

'';

end

else if qryQuest.Fieldbyname('QuestType').AsString = 'BB' then

begin

Content := Content + '다음 질문 내용에 대한 대답 한 가지를 선택해 주세요
' + qryQuest.FieldByName('Quest').AsString + '
'+

'';

end

else

begin

Content := Content + '다음 질문 내용에 대한 대답 한 가지를 선택해 주세요
' + qryQuest.FieldByName('Quest').AsString + '
'+

'';

end;

qryQuest.Close;

qryAns.Close;

end;

Response.Write(Content);

DM.Free;

end;

아무래도 DB에 연계된 에러 같은데 Data Module에는 ADOConnection(ADOConnection1)과 ADOQuery 2개(qryQuest,qryAns),DataSource(srcQuest)를 포함시켰고 srcQuest의 DataSet에는 qryQuest를 qryAns의 DataSource에는 srcQuest를 지정하였습니다.qryQuest의 SQL에는 select * from Quest 를 qryAns의 SQL에는 select * from Answer where QuestNo = :QuestNo 를 그리고 parameters에는 QuestNo를 지정하고 Type은 Integer, Value에는 1을 주었습니다.ADOConnection1에는 MSSQL Server 에 만들어 둔 poll database를 지정하였습니다. Connected는 True로 지정하고 Login Prompt는 False로 지정하였습니다.

명절에 바쁘시겠지만 이글을 보신다면 한 번 에러를 찾아 주실 수 있겠습니까?

염치 없지만 부탁드리면서 좋은 추석 되십시오.

이 게시물을

2 COMMENTS

코스엑스 • 2001.10.05 00:11

남호진 wrote:

> 백운기 님의 델파이 웹프로그래밍이란 책을 공부하면서 거기 있는 내용을 따라 하고 있습니다.

>

> 근데 정작 코딩을 끝내고 컴파일하여 ActiveX 서버에 레지스터 한 후에

> 브라우저로 실행하니 다음과 같은 에러가 뜹니다.

> 책에 있는 소스와 비교도 해보고 Value를 AsString이나 AsInteger로 바꾸고 해봐도

> 똑같은 에러가 뜹니다.

> 아래 소스는 가장 최근에 입력된 설문조사를 추출하여 브라우저에 뿌려주는 Procedure를 호출하는 것입니다.

>

> 오류 형식:

> PrjDoPoll.DoPoll (0x800A0BCD)

> BOF 또는 EOF가 참이거나, 현재 레코드를 삭제했습니다. 요청한 작업에 현재 레코드가 필요합니다

> /poll/dopoll.asp, line 9

>

>

>

> Testing Delphi ASP

>

>
You should see the results of your Delphi Active Server method below

>

>

> <% Set DelphiASPObj = Server.CreateObject("PrjDoPoll.DoPoll")

> DelphiASPObj.ShowPoll // Line 9

> Set DelphiASPObj = Nothing

> %>

>

>

>

>

> ShowPoll의 구현 부분은 다음과 같습니다.

>

> procedure TDoPoll.ShowPoll;

> var

> Content : String;

> i : integer;

> begin

> DM := TDM.Create(Nil);

>

> with DM do

> begin

> qryQuest.Open;

> qryAns.Open;

> qryQuest.Last;

>

> if qryQuest.Fieldbyname('QuestType').AsString = 'AA' then

> begin

> Content := Content + '다음 질문 내용에 대한 대답 한 가지를 선택해 주세요
' + qryQuest.FieldByName('Quest').AsString + '
'+

> '
'+

> ''+

> '';

>

> for i:=0 to qryAns.RecordCount-1 do

> begin

> Content := Content +

> ''+qryAns.FieldByName('Answer').AsString +'
';

> qryAns.Next;

> end;

> Content := Content + '
';

> end

> else if qryQuest.Fieldbyname('QuestType').AsString = 'BB' then

> begin

> Content := Content + '다음 질문 내용에 대한 대답 한 가지를 선택해 주세요
' + qryQuest.FieldByName('Quest').AsString + '
'+

> '
'+

> ''+

> '';

>

> for i:=0 to qryAns.RecordCount-1 do

> begin

> Content := Content +

> ''+qryAns.FieldByName('Answer').AsString +'
';

> qryAns.Next;

> end;

> Content := Content + '
';

> end

> else

> begin

> Content := Content + '다음 질문 내용에 대한 대답 한 가지를 선택해 주세요
' + qryQuest.FieldByName('Quest').AsString + '
'+

> '
'+

> ''+

> '';

>

> for i:=0 to qryAns.RecordCount-1 do

> begin

> Content := Content +

> ''+qryAns.FieldByName('Answer').AsString +'
';

> qryAns.Next;

> end;

> Content := Content + '
';

> end;

> qryQuest.Close;

> qryAns.Close;

> end;

> Response.Write(Content);

>

> DM.Free;

> end;

>

> 아무래도 DB에 연계된 에러 같은데 Data Module에는 ADOConnection(ADOConnection1)과 ADOQuery 2개(qryQuest,qryAns),DataSource(srcQuest)를 포함시켰고 srcQuest의 DataSet에는 qryQuest를 qryAns의 DataSource에는 srcQuest를 지정하였습니다.qryQuest의 SQL에는 select * from Quest 를 qryAns의 SQL에는 select * from Answer where QuestNo = :QuestNo 를 그리고 parameters에는 QuestNo를 지정하고 Type은 Integer, Value에는 1을 주었습니다.ADOConnection1에는 MSSQL Server 에 만들어 둔 poll database를 지정하였습니다. Connected는 True로 지정하고 Login Prompt는 False로 지정하였습니다.

>

> 명절에 바쁘시겠지만 이글을 보신다면 한 번 에러를 찾아 주실 수 있겠습니까?

> 염치 없지만 부탁드리면서 좋은 추석 되십시오.

일단 상당히 비효율적인 코드구여...

보통 데이타셋 처리할때 for 문으로 이렇게 쓰는건 첨봤읍니다.

for i:=0 to qryAns.RecordCount-1 do

begin

...

..

qryAns.Next;

end

위의거를.. 밑어걸로 바꾸고 해보시길..

while not QryAns.EOF do

begin

..

...

QryAns.Next;

end;
- 0
- 0
- 삭제
- 수정
- 댓글
남호진 • 2001.10.02 01:05

Test 해본 결과 qryAns.Next 부분에서 에러가 나는 것 같은데요...

이건 제 컴퓨터가 이상한 건가요....아님 다른 Method를 사용해야 되는 건가요?

좋은 명절 되십시오.

남호진 wrote:

> 백운기 님의 델파이 웹프로그래밍이란 책을 공부하면서 거기 있는 내용을 따라 하고 있습니다.

>

> 근데 정작 코딩을 끝내고 컴파일하여 ActiveX 서버에 레지스터 한 후에

> 브라우저로 실행하니 다음과 같은 에러가 뜹니다.

> 책에 있는 소스와 비교도 해보고 Value를 AsString이나 AsInteger로 바꾸고 해봐도

> 똑같은 에러가 뜹니다.

> 아래 소스는 가장 최근에 입력된 설문조사를 추출하여 브라우저에 뿌려주는 Procedure를 호출하는 것입니다.

>

> 오류 형식:

> PrjDoPoll.DoPoll (0x800A0BCD)

> BOF 또는 EOF가 참이거나, 현재 레코드를 삭제했습니다. 요청한 작업에 현재 레코드가 필요합니다

> /poll/dopoll.asp, line 9

>

>

>

> Testing Delphi ASP

>

>
You should see the results of your Delphi Active Server method below

>

>

> <% Set DelphiASPObj = Server.CreateObject("PrjDoPoll.DoPoll")

> DelphiASPObj.ShowPoll // Line 9

> Set DelphiASPObj = Nothing

> %>

>

>

>

>

> ShowPoll의 구현 부분은 다음과 같습니다.

>

> procedure TDoPoll.ShowPoll;

> var

> Content : String;

> i : integer;

> begin

> DM := TDM.Create(Nil);

>

> with DM do

> begin

> qryQuest.Open;

> qryAns.Open;

> qryQuest.Last;

>

> if qryQuest.Fieldbyname('QuestType').AsString = 'AA' then

> begin

> Content := Content + '다음 질문 내용에 대한 대답 한 가지를 선택해 주세요
' + qryQuest.FieldByName('Quest').AsString + '
'+

> '
'+

> ''+

> '';

>

> for i:=0 to qryAns.RecordCount-1 do

> begin

> Content := Content +

> ''+qryAns.FieldByName('Answer').AsString +'
';

> qryAns.Next;

> end;

> Content := Content + '
';

> end

> else if qryQuest.Fieldbyname('QuestType').AsString = 'BB' then

> begin

> Content := Content + '다음 질문 내용에 대한 대답 한 가지를 선택해 주세요
' + qryQuest.FieldByName('Quest').AsString + '
'+

> '
'+

> ''+

> '';

>

> for i:=0 to qryAns.RecordCount-1 do

> begin

> Content := Content +

> ''+qryAns.FieldByName('Answer').AsString +'
';

> qryAns.Next;

> end;

> Content := Content + '
';

> end

> else

> begin

> Content := Content + '다음 질문 내용에 대한 대답 한 가지를 선택해 주세요
' + qryQuest.FieldByName('Quest').AsString + '
'+

> '
'+

> ''+

> '';

>

> for i:=0 to qryAns.RecordCount-1 do

> begin

> Content := Content +

> ''+qryAns.FieldByName('Answer').AsString +'
';

> qryAns.Next;

> end;

> Content := Content + '
';

> end;

> qryQuest.Close;

> qryAns.Close;

> end;

> Response.Write(Content);

>

> DM.Free;

> end;

>

> 아무래도 DB에 연계된 에러 같은데 Data Module에는 ADOConnection(ADOConnection1)과 ADOQuery 2개(qryQuest,qryAns),DataSource(srcQuest)를 포함시켰고 srcQuest의 DataSet에는 qryQuest를 qryAns의 DataSource에는 srcQuest를 지정하였습니다.qryQuest의 SQL에는 select * from Quest 를 qryAns의 SQL에는 select * from Answer where QuestNo = :QuestNo 를 그리고 parameters에는 QuestNo를 지정하고 Type은 Integer, Value에는 1을 주었습니다.ADOConnection1에는 MSSQL Server 에 만들어 둔 poll database를 지정하였습니다. Connected는 True로 지정하고 Login Prompt는 False로 지정하였습니다.

>

> 명절에 바쁘시겠지만 이글을 보신다면 한 번 에러를 찾아 주실 수 있겠습니까?

> 염치 없지만 부탁드리면서 좋은 추석 되십시오.
- 0
- 0
- 삭제
- 수정
- 댓글

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

- bingyou
- •
- 2001.10.04 21:07
- 1 COMMENTS
- /
- 0 LIKES
Uses절과 상속
- 코스엑스
  
  •
  
  2001.10.04 22:23
  
  bingyou wrote: > Parent Form의 Uses절에 몇개의 .pas를 기술했습니다. > dll로 작성된 User Function/P...
- 시구
- 2001.10.05 00:26
- 0 COMMENTS
- /
- 0 LIKES
db connected error!!
- 전영미
- 2001.10.04 20:39
- 0 COMMENTS
- /
- 0 LIKES
응용프로그램을 클라이언트 pc에서 자동으로 설치할려는데요..
- 왕초보임더
- 2001.10.04 19:37
- 0 COMMENTS
- /
- 0 LIKES
디비그리드의 룩업에 대해서
- 초보델파이
- •
- 2001.10.04 19:37
- 2 COMMENTS
- /
- 0 LIKES
테이블에서 필드합계 구하는방법?
- 윤병진
  
  •
  
  2001.10.04 22:11
  
  초보델파이 wrote: > 고수님들 부탁합니다. > 테일블에서 1개의 필드를 합산하는 방법은알겠는데 여러 필...
- irookie
  
  •
  
  2001.10.04 21:15
  
  이건 어떨까요? select sum(a) as sa, sum(b) as sb, sum(c) as sc,... from table.d...
- 이상헌
- •
- 2001.10.04 19:36
- 4 COMMENTS
- /
- 0 LIKES
'응답없음'문제 좀 해결해 주세요..^^
- 최용일
  
  •
  
  2001.10.04 19:47
  
  안녕하세요. 최용일입니다. 연산하는 중간에 아래 코드를 추가해 보세요... Application.ProcessMess...
- 이상헌
  
  •
  
  2001.10.04 21:32
  
  답변 감사합니다.. 잘돌아 가네요.. 인터럽트를 걸어서 제어권을 넘겨주는거같던데.. 일단 인터럽트가 걸...
- 코스엑스
  
  •
  
  2001.10.04 22:30
  
  > > 상태바에 %나오게 할수있나요..^^; > 아~ 그리고... 생성중에 프로그램 종료가 안되네요..TBitBtn...
- 초보
  
  •
  
  2001.10.05 02:47
  
  멀하시던간에 루프가 돌겠죠 ? 어떤버튼을 눌렀을때 종료메세지를 띄우고 싶으면.. TBitBtn Clic...
- 박혜윤
- •
- 2001.10.04 19:33
- 1 COMMENTS
- /
- 0 LIKES
Ping 만으로 상대편 Mac 어드레스 알수 있나요?
- 이광주
  
  •
  
  2001.10.24 19:07
  
  조금 무식한 방법으로 알아내기는 했는데... 좀 길지도... ^^ 우선 다음 명령어로 Mac Address를 가져올...
- BB
- •
- 2001.10.04 10:14
- 1 COMMENTS
- /
- 0 LIKES
[VCL] zipmstr.dcu.. 파일이 좀 올려주심 감사하겠슴당~ (냉무)
- 최용일
  
  •
  
  2001.10.04 20:12
  
  안녕하세요. 최용일입니다. 델파이 자료실에 ZipMaster컴포넌트 올려놨습니다. ^^ 항상 즐코하세요.....
- 델초보
- •
- 2001.10.04 02:54
- 1 COMMENTS
- /
- 0 LIKES
울트라 에디터 같이 한번 실행된 프로그램에서 텍스트 읽기
- 최용일
  
  •
  
  2001.10.04 19:58
  
  안녕하세요. 최용일입니다. 중복실행 방지해서 이미 실행되어진 프로그램이 있다면 그 프로그램의 핸들...
- green15
- •
- 2001.10.03 22:42
- 2 COMMENTS
- /
- 0 LIKES
''is not a valid floating point value
- 바보
  
  •
  
  2001.10.04 23:22
  
  green15 wrote: > ''is not a valid floating point value 라는 에러는 어떻게 해서 생기는 것입니까? > ...
- 비쥬얼네트
  
  •
  
  2001.10.04 17:07
  
  green15 wrote: > ''is not a valid floating point value 라는 에러는 어떻게 해서 생기는 것입니까? > ...
- 전영진
- 2001.10.03 08:25
- 0 COMMENTS
- /
- 0 LIKES
퍼스널오라클로 연동시켜 table에 insert시 에러발생!
- 초보
- •
- 2001.10.03 06:21
- 4 COMMENTS
- /
- 0 LIKES
IB 에러처리가 안되요.. (try.. except...)
- 코스엑스
  
  •
  
  2001.10.04 22:34
  
  초보 wrote: > 인터베이스를 사용하고 BDE필요없이 IBExpress컴포넌트들을 사용합니다. > 그런데 예외상...
- 초보
  
  •
  
  2001.10.04 22:50
  
  답변에 감사드립니다... ^^ 우선 님께서 Duplicate uniq key writing 에대한 에러리턴 및 익셉션 메세지...
- 코스엑스
  
  •
  
  2001.10.05 00:02
  
  초보 wrote: > 답변에 감사드립니다... ^^ > 우선 님께서 Duplicate uniq key writing 에대한 > 에러리...
- 초보
  
  •
  
  2001.10.05 00:56
  
  님의 자세한 답변에 감사드려요... 다시함 해보겠습니다. 행복하세요.. ^^
- 박정만
- 2001.10.03 02:20
- 0 COMMENTS
- /
- 0 LIKES
인디소켓과 Sygate
- 힌곰
- 2001.10.03 00:18
- 0 COMMENTS
- /
- 0 LIKES
달력을 만들었는데 오늘이전과 이후의 폰트 색문제요...^^;
- 김종석
- 2001.10.02 20:26
- 0 COMMENTS
- /
- 0 LIKES
이미지를 짤라서 처리하고 싶습니다.
- 김일영
- 2001.10.02 13:25
- 0 COMMENTS
- /
- 0 LIKES
Re: 급<<MDI 메인에서 스크롤바가 안생기게?>>
- 김일영
- 2001.10.02 13:13
- 0 COMMENTS
- /
- 0 LIKES
Re: 급<<MDI 메인에서 DLL인 Child를 불러올수 있나여?>>
- 우현희
- 2001.10.01 04:55
- 0 COMMENTS
- /
- 0 LIKES
Delphi 6 와 C++ Builder 5 용 Installsheild EX
- 왕초보
- •
- 2001.09.30 23:30
- 1 COMMENTS
- /
- 0 LIKES
DLL을 웹에서 한 번 이용하면 재컴파일은 불가능한가요?
- Ziker
  
  •
  
  2001.10.01 21:32
  
  안녕하세요 인터넷 서비스 관리자를 엽니다. (IIS) 해당 웹사이트에서 등록 정보를엽니다. '홈 디렉...
- 남호진
- •
- 2001.09.30 20:29
- 2 COMMENTS
- /
- 0 LIKES
설문조사 프로그램에서...

백운기 님의 델파이 웹프로그래밍이란 책을 공부하면서 거기 있는 내용을 따라 하고 있습니다. 근데 정작 코딩을 끝내고 컴파일하여 ActiveX 서버에 레지스터 한 후에 브라우저로 실행하니 다음과 같은 에러가 뜹니다. 책에 있는 소스와 ...
- 코스엑스
  
  •
  
  2001.10.05 00:11
  
  남호진 wrote: > 백운기 님의 델파이 웹프로그래밍이란 책을 공부하면서 거기 있는 내용을 따라 하고 있습...
- 남호진
  
  •
  
  2001.10.02 01:05
  
  Test 해본 결과 qryAns.Next 부분에서 에러가 나는 것 같은데요... 이건 제 컴퓨터가 이상한 건가요....아...

남호진
2001/09/30 20:29
Views395

Likes0

Comments2

Reports0
Tag List
수정
삭제
목록으로

←First Page

1561 1562 1563 1564 1565 1566 1567 1568 1569 1570

Last Page→