한국 델파이 개발자 모임 - 데이터저장할때...... 제발 도와주세요~

데이터저장할때...... 제발 도와주세요~

sql문이...

UPDATE KORMAP03

SET LAYER_ITEM = :S1, ITEM_NAME = :S2, ITEM_TEL = :S3,

ITEM_ADDRESS = :S4, ITEM_TOUR = :S5, ITEM_PARKING= :S6,

ITEM_OPEN_MSSG_1 = :S7, ITEM_OPEN_MSSG_2 = :S8,ITEM_OPEN_MSSG_3 = :S9,

ITEM_OPEN_MSSG_4 = :S10, ITEM_REMARK_1 = :S11, ITEM_REMARK_2 = :S12,

ITEM_REMARK_3 = :S13, ITEM_REMARK_4 = :S14, ITEM_URL = :S15

WHERE LAYER_ITEM = :F1

이고 소스에서 아래와 같이 작성하면 db에 데이타가 저장이 안되나요??

update하면 데이타들이 바로 저장이 되어야 할텐데 저장이 안되요~

어떻게 해야 하죠??

With UPDATE_QRY Do

Begin

close;

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;

이 게시물을

2 COMMENTS

강호규 • 2001.06.26 01:41

데이타를 갱신할 경우에는

with Query do begin

SQL.Text := 'update .....' //또는 SQL.CLear; SQL.Add('update....');

ParamByName('파람1').AsString := 파람1;

ExecSql;

end;

와 같은 순서로 되어야 하는데요

아래의 소스를 보니 close 메쏘드가 중간에 삽입되었는데요

이러면 이전에 할당한 SQL 문장이 그대로 있진 않겠죠!

> With UPDATE_QRY Do

> Begin

> close;

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

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

> ..........

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

> ExecSql;

> END;

짱아 wrote:

> sql문이...

> UPDATE KORMAP03

> SET LAYER_ITEM = :S1, ITEM_NAME = :S2, ITEM_TEL = :S3,

> ITEM_ADDRESS = :S4, ITEM_TOUR = :S5, ITEM_PARKING= :S6,

> ITEM_OPEN_MSSG_1 = :S7, ITEM_OPEN_MSSG_2 = :S8,ITEM_OPEN_MSSG_3 = :S9,

> ITEM_OPEN_MSSG_4 = :S10, ITEM_REMARK_1 = :S11, ITEM_REMARK_2 = :S12,

> ITEM_REMARK_3 = :S13, ITEM_REMARK_4 = :S14, ITEM_URL = :S15

> WHERE LAYER_ITEM = :F1

>

> 이고 소스에서 아래와 같이 작성하면 db에 데이타가 저장이 안되나요??

> update하면 데이타들이 바로 저장이 되어야 할텐데 저장이 안되요~

> 어떻게 해야 하죠??

>

> With UPDATE_QRY Do

> Begin

> close;

> 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;

>
- 0
- 0
- 삭제
- 수정
- 댓글
강호규 • 2001.06.23 04:05

글쎄요.....

저장이 않되면 그때 발생하는 에러 메시지를 올려 주셔야

정확한 진단이 될 것 같구요.

아래의 내용은 정확히 확인하기가 힘들군요.

팁을 하나 알려드려면

SQL을 실행했는데 에러가 난다면

SQL.Text 즉 할당한 쿼리문장에서 에러가 나는 경우가 많습니다.

에러메시지를 보고도 정확한 진단이 되지 않을 때는

SQL.SaveToFile('않되네.txt') 메쏘드를 이용해서

사용자가 할당한 문장이

사용자의 의도에 맞게 DB에 전달되었는가를 확인하시면

좀 더 빠르게 에러의 원인을 찾을 수 있습니다.

아래의 내용에

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

SQL.SaveToFile('않되네.txt'); 메쏘드를 이용해서

ExecSql; <---- 이곳에서 에러가 발생하면

탐색기를 열어 않되네.txt 를 오픈하여

쿼리문장이 사용자의 의도대로 할당되었는지를 확인.

짱아 wrote:

> sql문이...

> UPDATE KORMAP03

> SET LAYER_ITEM = :S1, ITEM_NAME = :S2, ITEM_TEL = :S3,

> ITEM_ADDRESS = :S4, ITEM_TOUR = :S5, ITEM_PARKING= :S6,

> ITEM_OPEN_MSSG_1 = :S7, ITEM_OPEN_MSSG_2 = :S8,ITEM_OPEN_MSSG_3 = :S9,

> ITEM_OPEN_MSSG_4 = :S10, ITEM_REMARK_1 = :S11, ITEM_REMARK_2 = :S12,

> ITEM_REMARK_3 = :S13, ITEM_REMARK_4 = :S14, ITEM_URL = :S15

> WHERE LAYER_ITEM = :F1

>

> 이고 소스에서 아래와 같이 작성하면 db에 데이타가 저장이 안되나요??

> update하면 데이타들이 바로 저장이 되어야 할텐데 저장이 안되요~

> 어떻게 해야 하죠??

>

> With UPDATE_QRY Do

> Begin

> close;

> 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;

>
- 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
데이터저장할때...... 제발 도와주세요~

sql문이... UPDATE KORMAP03 SET LAYER_ITEM = :S1, ITEM_NAME = :S2, ITEM_TEL = :S3, ITEM_ADDRESS = :S4, ITEM_TOUR = :S5, ITEM_PARKING= :S6, ITEM_OPEN_MSSG_1 = :S7, ITEM_OPEN_MSSG_2 = :S8,ITEM_OPEN_MSSG_3 = :S9, ITEM_OPEN_MS...
- 강호규
  
  •
  
  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.... ?? 가 왜나는지... (소스같이 올려요~)
- 블랙봉
  
  •
  
  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 23:35
Views244

Likes0

Comments2

Reports0
Tag List
수정
삭제
목록으로

←First Page

1716 1717 1718 1719 1720 1721 1722 1723 1724 1725

Last Page→