한국 델파이 개발자 모임 - Edatabaseerror.... ?? 가 왜나는지... (소스같이 올려요~)

Edatabaseerror.... ?? 가 왜나는지... (소스같이 올려요~)

Project Korm03pe.exe raised exception class EDatabaseError with message'Query2:

Cannot perform this operation on a closed dataset'. Porcess stopped. Use Step or

Run to continue.

위와 같은 에러가 나는데요..

무슨문제가 있는것인지... 여러 텍스트박스에 데이타들을 채워넣고 저장버튼을 눌러 데이터를 update시켜주는데서 이런 에러가 나는데요...

소스가.... 아래와 같은데요....

뭐가문제인지... ㅜ.ㅜ 아시는분 도움좀 주세요~ 감사함다~

procedure TForm1.BtnPostClick(Sender: TObject);

Var L1 : String;

begin

If

MessageDlg('☞ 수정된 내용을 저장하시겠습니까?...',mtConfirmation, [mbYes, mbNo], 0) = mrYes Then

begin

With UPDATE_QRY Do

Begin

ParamByName('S1').AsString := eITEM.Text;

ParamByName('S2').AsString := eNAME.Text;

ParamByName('S3').AsString := eTEL.Text;

ParamByName('S4').AsString := eADDR.Text;

ParamByName('S5').AsString := eTOUR.Text;

ParamByName('S6').AsString := ePARK.Text;

ParamByName('S7').AsString := eOPEN_MSSG1.Text;

ParamByName('S8').AsString := eOPEN_MSSG2.Text;

ParamByName('S9').AsString := eOPEN_MSSG3.Text;

ParamByName('S10').AsString := eOPEN_MSSG4.Text;

ParamByName('S11').AsString := eREMARK1.Text;

ParamByName('S12').AsString := eREMARK2.Text;

ParamByName('S13').AsString := eREMARK3.Text;

ParamByName('S14').AsString := eREMARK4.Text;

ParamByName('S15').AsString := eURL.Text;

ParamByName('F1').AsString := Query2.FieldByName('LAYER_ITEM').AsString;

ExecSql;

END;

// PostTable.Refresh;

L1 := Query2.FieldByName('LAYER_ITEM').AsString;

{ L2 := Query2.FieldByName('LAYER_ITEM').AsString; }

//@@@

// L3 := Query2.FieldByName('CDNAME1').AsString;

User_MOpen(11);

With Query2 Do

Locate('LAYER_ITEM', VarArrayOf([L1]), [loPartialKey]);

panel3.enabled := true;

panel4.enabled := False;

BtnPost.Enabled := False;

BtnCancel.Enabled := False;

Dbgrid1.SetFocus;

end

else

With UPDATE_QRY Do

Begin

ParamByName('S1').AsString := Query2.FieldByName('LAYER_ITEM').AsString;

ParamByName('S2').AsString := Query2.FieldByName('ITEM_NAME').AsString;

ParamByName('S3').AsString := Query2.FieldByName('ITEM_TEL').AsString;

ParamByName('S4').AsString := Query2.FieldByName('ITEM_ADDRESS').AsString;

ParamByName('S5').AsString := Query2.FieldByName('ITEM_TOUR').AsString;

ParamByName('S6').AsString := Query2.FieldByName('ITEM_PARKING').AsString;

ParamByName('S7').AsString := Query2.FieldByName('ITEM_OPEN_MSSG_1').AsString;

ParamByName('S8').AsString := Query2.FieldByName('ITEM_OPEN_MSSG_2').AsString;

ParamByName('S9').AsString := Query2.FieldByName('ITEM_OPEN_MSSG_3').AsString;

ParamByName('S10').AsString := Query2.FieldByName('ITEM_OPEN_MSSG_4').AsString;

ParamByName('S11').AsString := Query2.FieldByName('ITEM_REMARK_1').AsString;

ParamByName('S12').AsString := Query2.FieldByName('ITEM_REMARK_2').AsString;

ParamByName('S13').AsString := Query2.FieldByName('ITEM_REMARK_3').AsString;

ParamByName('S14').AsString := Query2.FieldByName('ITEM_REMARK_4').AsString;

ParamByName('S15').AsString := Query2.FieldByName('ITEM_URL').AsString;

ParamByName('F1').AsString := Query2.FieldByName('LAYER_ITEM').AsString;

// ParamByName('F2').AsString := Query2.FieldByName('LAYER_ITEM').AsString;

ExecSql;

L1 := Query2.FieldByName('LAYER_ITEM').AsString;

// L2 := Query2.FieldByName('LAYER_ITEM').AsString;

// L3 := Query2.FieldByName('CDNAME1').AsString;

User_MOpen(11);

With Query2 Do

Locate('LAYER_ITEM', VarArrayOf([L1]), [loPartialKey]);

panel3.enabled := true;

panel4.enabled := false;

BtnPost.Enabled := false;

BtnCancel.Enabled := false;

Dbgrid1.SetFocus;

end;

end;

이 게시물을

2 COMMENTS

블랙봉 • 2001.06.22 20:24

Query2가 오픈되지 않은 상태에서 사용하시는 것 같은데요.

짱아 wrote:

> Project Korm03pe.exe raised exception class EDatabaseError with message'Query2:

> Cannot perform this operation on a closed dataset'. Porcess stopped. Use Step or

> Run to continue.

>

> 위와 같은 에러가 나는데요..

> 무슨문제가 있는것인지... 여러 텍스트박스에 데이타들을 채워넣고 저장버튼을 눌러 데이터를 update시켜주는데서 이런 에러가 나는데요...

> 소스가.... 아래와 같은데요....

> 뭐가문제인지... ㅜ.ㅜ 아시는분 도움좀 주세요~ 감사함다~

>

> procedure TForm1.BtnPostClick(Sender: TObject);

> Var L1 : String;

> begin

> If

> MessageDlg('☞ 수정된 내용을 저장하시겠습니까?...',mtConfirmation, [mbYes, mbNo], 0) = mrYes Then

> begin

> With UPDATE_QRY Do

> Begin

> ParamByName('S1').AsString := eITEM.Text;

> ParamByName('S2').AsString := eNAME.Text;

> ParamByName('S3').AsString := eTEL.Text;

> ParamByName('S4').AsString := eADDR.Text;

> ParamByName('S5').AsString := eTOUR.Text;

> ParamByName('S6').AsString := ePARK.Text;

> ParamByName('S7').AsString := eOPEN_MSSG1.Text;

> ParamByName('S8').AsString := eOPEN_MSSG2.Text;

> ParamByName('S9').AsString := eOPEN_MSSG3.Text;

> ParamByName('S10').AsString := eOPEN_MSSG4.Text;

> ParamByName('S11').AsString := eREMARK1.Text;

> ParamByName('S12').AsString := eREMARK2.Text;

> ParamByName('S13').AsString := eREMARK3.Text;

> ParamByName('S14').AsString := eREMARK4.Text;

> ParamByName('S15').AsString := eURL.Text;

> ParamByName('F1').AsString := Query2.FieldByName('LAYER_ITEM').AsString;

> ExecSql;

> END;

> // PostTable.Refresh;

> L1 := Query2.FieldByName('LAYER_ITEM').AsString;

> { L2 := Query2.FieldByName('LAYER_ITEM').AsString; }

> //@@@

> // L3 := Query2.FieldByName('CDNAME1').AsString;

> User_MOpen(11);

>

> With Query2 Do

> Locate('LAYER_ITEM', VarArrayOf([L1]), [loPartialKey]);

> panel3.enabled := true;

> panel4.enabled := False;

> BtnPost.Enabled := False;

> BtnCancel.Enabled := False;

> Dbgrid1.SetFocus;

> end

> else

> With UPDATE_QRY Do

> Begin

> ParamByName('S1').AsString := Query2.FieldByName('LAYER_ITEM').AsString;

> ParamByName('S2').AsString := Query2.FieldByName('ITEM_NAME').AsString;

> ParamByName('S3').AsString := Query2.FieldByName('ITEM_TEL').AsString;

> ParamByName('S4').AsString := Query2.FieldByName('ITEM_ADDRESS').AsString;

> ParamByName('S5').AsString := Query2.FieldByName('ITEM_TOUR').AsString;

> ParamByName('S6').AsString := Query2.FieldByName('ITEM_PARKING').AsString;

> ParamByName('S7').AsString := Query2.FieldByName('ITEM_OPEN_MSSG_1').AsString;

> ParamByName('S8').AsString := Query2.FieldByName('ITEM_OPEN_MSSG_2').AsString;

> ParamByName('S9').AsString := Query2.FieldByName('ITEM_OPEN_MSSG_3').AsString;

> ParamByName('S10').AsString := Query2.FieldByName('ITEM_OPEN_MSSG_4').AsString;

> ParamByName('S11').AsString := Query2.FieldByName('ITEM_REMARK_1').AsString;

> ParamByName('S12').AsString := Query2.FieldByName('ITEM_REMARK_2').AsString;

> ParamByName('S13').AsString := Query2.FieldByName('ITEM_REMARK_3').AsString;

> ParamByName('S14').AsString := Query2.FieldByName('ITEM_REMARK_4').AsString;

> ParamByName('S15').AsString := Query2.FieldByName('ITEM_URL').AsString;

> ParamByName('F1').AsString := Query2.FieldByName('LAYER_ITEM').AsString;

> // ParamByName('F2').AsString := Query2.FieldByName('LAYER_ITEM').AsString;

> ExecSql;

> L1 := Query2.FieldByName('LAYER_ITEM').AsString;

> // L2 := Query2.FieldByName('LAYER_ITEM').AsString;

> // L3 := Query2.FieldByName('CDNAME1').AsString;

> User_MOpen(11);

>

> With Query2 Do

> Locate('LAYER_ITEM', VarArrayOf([L1]), [loPartialKey]);

> panel3.enabled := true;

> panel4.enabled := false;

> BtnPost.Enabled := false;

> BtnCancel.Enabled := false;

> Dbgrid1.SetFocus;

> end;

> end;

>
- 0
- 0
- 삭제
- 수정
- 댓글
Larson • 2001.06.22 20:23

쿼리들을 close 한 후에 수행해 보세요.

query.close;

query.parambyname('...').asstring := '....';

query.execsql;

이렇게요..
- 0
- 0
- 삭제
- 수정
- 댓글

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

- 초보여요
- 2001.06.23 00:52
- 0 COMMENTS
- /
- 0 LIKES
TIF에서 JPG로
- 이병협
- 2001.06.23 00:28
- 0 COMMENTS
- /
- 0 LIKES
nmHttp사용한 ActiveForm에서 DAX Error 원인을 아시나요?
- 초보
- •
- 2001.06.23 00:01
- 2 COMMENTS
- /
- 0 LIKES
한 PC에 두개의 카메라를 볼수있는 방법좀 가려커 주세요?
- 바보
  
  •
  
  2001.07.02 19:10
  
  초보 wrote: > 제가 USB 허브를 사용해서 두개의 카메라를 연결 했습니다. > 그런데 프로그램 상에 두개...
- 이경문
  
  •
  
  2001.06.30 04:55
  
  저도 예전이 그런 기능을 구현하려는 시도를 했었습니다. 결국 2대의 카메라를 연결하지 못했고 Switchin...
- 임준
- •
- 2001.06.23 00:00
- 1 COMMENTS
- /
- 0 LIKES
UDP 파일전송
- 갱민이
  
  •
  
  2001.06.23 05:50
  
  델파이 데모프로그램에 UDP가 있으니 참조하세요.. 임준 wrote: > UDP 프로토콜을 이용해서 서버에서 ...
- 문디
- 2001.06.22 23:54
- 0 COMMENTS
- /
- 0 LIKES
48684 - 다시 - 엑셀이 없다고 나와요
- 돌파리
- 2001.06.22 23:49
- 0 COMMENTS
- /
- 0 LIKES
ms-sql select 조건 알려주세요...
- 짱아
- •
- 2001.06.22 23:35
- 2 COMMENTS
- /
- 0 LIKES
데이터저장할때...... 제발 도와주세요~
- 강호규
  
  •
  
  2001.06.26 01:41
  
  데이타를 갱신할 경우에는 with Query do begin SQL.Text := 'update .....' //또는 SQL.CLear; SQL....
- 강호규
  
  •
  
  2001.06.23 04:05
  
  글쎄요..... 저장이 않되면 그때 발생하는 에러 메시지를 올려 주셔야 정확한 진단이 될 것 같구요. 아...
- poh0911
- •
- 2001.06.22 23:30
- 1 COMMENTS
- /
- 0 LIKES
두테이블을 union한뒤에
- 디비는 어려워
  
  •
  
  2001.06.23 02:07
  
  질문의 요지는 잘 모르겠거든요. 일단 결과값이 1, 300 2, 300 3, 100 4, 5200 이런식의 결과...
- 속터진이
- •
- 2001.06.22 22:51
- 3 COMMENTS
- /
- 0 LIKES
오전에 올렸던 질문인데..... ㅠ.ㅠ
- 좋은날
  
  •
  
  2001.06.23 00:21
  
  속터진이 wrote: > DB에 데이타를 추가하기 위해 query.append 를 하면 > '' is not valid floating poin...
- 속터진이
  
  •
  
  2001.06.23 00:31
  
  좋은날 wrote: > 속터진이 wrote: > > DB에 데이타를 추가하기 위해 query.append 를 하면 > > '' is no...
- 성더기
  
  •
  
  2001.06.27 01:39
  
  AsInteger나 AsFloat를 쓰지 않으셨는지여.. 제가 생각할때 에러가 날 수 있는 부분은 그거바께 없는거 같...
- 델초보
- •
- 2001.06.22 22:43
- 1 COMMENTS
- /
- 0 LIKES
퀵리포트에 관련된 질문인데여 좀알려주세여
- 지나가는 만두
  
  •
  
  2001.06.22 22:51
  
  델초보 wrote: > 내용은여 퀵리포트에서 출력될 날짜부분에서 연도별 월별 일별루 각각 나누어서 출력을 ...
- 금강산
- 2001.06.22 22:18
- 0 COMMENTS
- /
- 0 LIKES
DB프로그램 실행후....
- 우아앙..
- •
- 2001.06.22 21:47
- 2 COMMENTS
- /
- 0 LIKES
테이블 필터 에러..
- 블랙봉
  
  •
  
  2001.06.22 22:33
  
  SAcntTable.Filter := 'AcntCode = ' + '''' + Copy(AcntList.Items.Strings[i], 1, 5) + ''''; 이렇게 되...
- 하기
  
  •
  
  2001.06.22 22:08
  
  먼저 필터에 대한식을 해주고 (SAcntTable.Filter := 'AcntCode = ' + Copy(AcntList.Items[i], 1, 5)) ...
- 안나
- •
- 2001.06.22 20:53
- 1 COMMENTS
- /
- 0 LIKES
DBGrid에서 memo편집하려면...
- 하기
  
  •
  
  2001.06.22 21:56
  
  그냥 DBGrid옆에 DBMemo 컴포넌트를 꺼내놓고... DataSource & Field를 연결하시고... 거기서 편집하세요....
- 델초버자
- •
- 2001.06.22 20:36
- 1 COMMENTS
- /
- 0 LIKES
메일보내는 프로그램 중에서요..
- 토맛토
  
  •
  
  2001.06.22 22:01
  
  쉽지 않은 부분입니다. 일반적으로 메일보내는 프로그램은 지정해 놓은 SMTP서버에 메일을 일방적으로 보내...
- 델초보
- 2001.06.22 20:26
- 0 COMMENTS
- /
- 0 LIKES
CRC16-계산법좀 알려 주세요 (내용)
- info
- 2001.06.22 23:36
- 0 COMMENTS
- /
- 0 LIKES
★★★자동 업데이트★★★
- 궁금이
- 2001.06.22 20:17
- 0 COMMENTS
- /
- 0 LIKES
Shockwave 설치유무에대해
- 짱아
- •
- 2001.06.22 20:15
- 2 COMMENTS
- /
- 0 LIKES
Edatabaseerror.... ?? 가 왜나는지... (소스같이 올려요~)

Project Korm03pe.exe raised exception class EDatabaseError with message'Query2: Cannot perform this operation on a closed dataset'. Porcess stopped. Use Step or Run to continue. 위와 같은 에러가 나는데요.. 무슨문제가 있는...
- 블랙봉
  
  •
  
  2001.06.22 20:24
  
  Query2가 오픈되지 않은 상태에서 사용하시는 것 같은데요. 짱아 wrote: > Project Korm03pe.exe raise...
- Larson
  
  •
  
  2001.06.22 20:23
  
  쿼리들을 close 한 후에 수행해 보세요. query.close; query.parambyname('...').asstring := '....'; ...
- 전유대
- •
- 2001.06.22 19:53
- 2 COMMENTS
- /
- 0 LIKES
From을 사용자가 마음대로 조정하는 방법좀..
- 디비는 어려워
  
  •
  
  2001.06.23 02:16
  
  전유대 wrote: > 안녕하세요? > 저는 델파이를 배우면서. 일하고있는 초보인데요 > 요번에 일하면서 막...
- $
  
  •
  
  2001.06.22 20:06
  
  전유대 wrote: > 안녕하세요? > 저는 델파이를 배우면서. 일하고있는 초보인데요 > 요번에 일하면서 막...
- 왕델초
- •
- 2001.06.22 19:44
- 1 COMMENTS
- /
- 0 LIKES
오라클에서 날짜비교[DB]
- 왕델초
  
  •
  
  2001.06.22 19:56
  
  왕델초 wrote: > 쿼리상에서 날짜를 비교하려 하거덩요... > 그놈이 CHAR형으로 들어가 있어서... > 조...

짱아
2001/06/22 20:15
Views288

Likes0

Comments2

Reports0
Tag List
수정
삭제
목록으로

←First Page

1716 1717 1718 1719 1720 1721 1722 1723 1724 1725

Last Page→