Q&A
- update, Insert 가 안되네요....
안녕하세요.
겁없이 도전하고 있는 델파이지망생입니다.
프로젝트를 정해서 프로그램하려고 하는데 읽어오기는 잘하는데 저장이 안되네요.
고수님들의 조언 부탁드립니다.
procedure TSub101F.btn_saveClick(Sender: TObject);
begin
With Query1 do
begin
sql.clear;
sql.add(' select * from tblmenu ');
sql.add(' where Skey = '''+ Temp_key+'''');
open;
if EOF then
begin
sql.clear;
sql.add(' Insert into tblmenu');
sql.add(' (Skey, Ymd, Mae, Bob, Kuk, C1, C2, C3, C4, C5, No) ');
sql.add(' Values('''+Temp_key+''', '+
' '''+Temp_ymd+''', '+
// ' TO_DATE('''+Temp_ymd+''','YYYY-MM-DD'), '+
' '''+Temp_mae+''', '+
' '''+bob.text+''', '+
' '''+kuk.text+''', '+
' '''+c1.text+''', '+
' '''+c2.text+''', '+
' '''+c3.text+''', '+
' '''+c4.text+''', '+
' '''+c5.text+''', '+
' TO_NUMBER('''+eatno.text+''') ');
end
else If Not EOF then
begin
sql.clear;
sql.add(' Update tblmenu SET ');
sql.add(' Skey = '''+Temp_key+''', '+
' Ymd = '''+Temp_ymd+''', '+
// ' Ymd = TO_DATE('''+Temp_ymd+''','YYYY-MM-DD'), '+
' Mae = '''+Temp_mae+''', '+
' Bob = '''+bob.text+''', '+
' Kuk = '''+kuk.text+''', '+
' C1 = '''+c1.text+''', '+
' C2 = '''+c2.text+''', '+
' C3 = '''+c3.text+''', '+
' C4 = '''+c4.text+''', '+
' C5 = '''+c5.text+''', '+
' No = TO_NUMBER('''+eatno.text+''') ');
sql.add(' where Skey = '''+ Temp_key+'''');
end;
try
ExecSql;
ShowMessage(' 자료가 저장되었습니다. ');
Except
ShowMessage(' Data 저장 오류가 발생되었습니다. ');
end;
Close;
ymd.SetFocus;
end;
end;
// 실행하면 다음 메세지가 뜨네요...
Project Project1.exe raised exception class EDBEngineError with message 'Invalid use of keyword'
Token: No)
Line Number ; 2', Process stopped. Use Stop or Run to continue.
부탁드립니다. 도와주세요. 꾸벅...
겁없이 도전하고 있는 델파이지망생입니다.
프로젝트를 정해서 프로그램하려고 하는데 읽어오기는 잘하는데 저장이 안되네요.
고수님들의 조언 부탁드립니다.
procedure TSub101F.btn_saveClick(Sender: TObject);
begin
With Query1 do
begin
sql.clear;
sql.add(' select * from tblmenu ');
sql.add(' where Skey = '''+ Temp_key+'''');
open;
if EOF then
begin
sql.clear;
sql.add(' Insert into tblmenu');
sql.add(' (Skey, Ymd, Mae, Bob, Kuk, C1, C2, C3, C4, C5, No) ');
sql.add(' Values('''+Temp_key+''', '+
' '''+Temp_ymd+''', '+
// ' TO_DATE('''+Temp_ymd+''','YYYY-MM-DD'), '+
' '''+Temp_mae+''', '+
' '''+bob.text+''', '+
' '''+kuk.text+''', '+
' '''+c1.text+''', '+
' '''+c2.text+''', '+
' '''+c3.text+''', '+
' '''+c4.text+''', '+
' '''+c5.text+''', '+
' TO_NUMBER('''+eatno.text+''') ');
end
else If Not EOF then
begin
sql.clear;
sql.add(' Update tblmenu SET ');
sql.add(' Skey = '''+Temp_key+''', '+
' Ymd = '''+Temp_ymd+''', '+
// ' Ymd = TO_DATE('''+Temp_ymd+''','YYYY-MM-DD'), '+
' Mae = '''+Temp_mae+''', '+
' Bob = '''+bob.text+''', '+
' Kuk = '''+kuk.text+''', '+
' C1 = '''+c1.text+''', '+
' C2 = '''+c2.text+''', '+
' C3 = '''+c3.text+''', '+
' C4 = '''+c4.text+''', '+
' C5 = '''+c5.text+''', '+
' No = TO_NUMBER('''+eatno.text+''') ');
sql.add(' where Skey = '''+ Temp_key+'''');
end;
try
ExecSql;
ShowMessage(' 자료가 저장되었습니다. ');
Except
ShowMessage(' Data 저장 오류가 발생되었습니다. ');
end;
Close;
ymd.SetFocus;
end;
end;
// 실행하면 다음 메세지가 뜨네요...
Project Project1.exe raised exception class EDBEngineError with message 'Invalid use of keyword'
Token: No)
Line Number ; 2', Process stopped. Use Stop or Run to continue.
부탁드립니다. 도와주세요. 꾸벅...
2
COMMENTS
-
-
No라는 필드명이 키워드라는 에러 메시지인것 같은데요...
C2, C3, C4, C5, "No") '); 라고 하셔서 컴파일해 보십시오...
또는 "테이블명"."No"라는 형식으로...
serigr2 wrote:
> 안녕하세요.
> 겁없이 도전하고 있는 델파이지망생입니다.
> 프로젝트를 정해서 프로그램하려고 하는데 읽어오기는 잘하는데 저장이 안되네요.
> 고수님들의 조언 부탁드립니다.
>
> procedure TSub101F.btn_saveClick(Sender: TObject);
> begin
> With Query1 do
> begin
> sql.clear;
> sql.add(' select * from tblmenu ');
> sql.add(' where Skey = '''+ Temp_key+'''');
> open;
> if EOF then
> begin
> sql.clear;
> sql.add(' Insert into tblmenu');
> sql.add(' (Skey, Ymd, Mae, Bob, Kuk, C1, C2, C3, C4, C5, No) ');
> sql.add(' Values('''+Temp_key+''', '+
> ' '''+Temp_ymd+''', '+
> // ' TO_DATE('''+Temp_ymd+''','YYYY-MM-DD'), '+
> ' '''+Temp_mae+''', '+
> ' '''+bob.text+''', '+
> ' '''+kuk.text+''', '+
> ' '''+c1.text+''', '+
> ' '''+c2.text+''', '+
> ' '''+c3.text+''', '+
> ' '''+c4.text+''', '+
> ' '''+c5.text+''', '+
> ' TO_NUMBER('''+eatno.text+''') ');
>
> end
> else If Not EOF then
> begin
> sql.clear;
> sql.add(' Update tblmenu SET ');
> sql.add(' Skey = '''+Temp_key+''', '+
> ' Ymd = '''+Temp_ymd+''', '+
> // ' Ymd = TO_DATE('''+Temp_ymd+''','YYYY-MM-DD'), '+
> ' Mae = '''+Temp_mae+''', '+
> ' Bob = '''+bob.text+''', '+
> ' Kuk = '''+kuk.text+''', '+
> ' C1 = '''+c1.text+''', '+
> ' C2 = '''+c2.text+''', '+
> ' C3 = '''+c3.text+''', '+
> ' C4 = '''+c4.text+''', '+
> ' C5 = '''+c5.text+''', '+
> ' No = TO_NUMBER('''+eatno.text+''') ');
> sql.add(' where Skey = '''+ Temp_key+'''');
> end;
> try
> ExecSql;
> ShowMessage(' 자료가 저장되었습니다. ');
> Except
> ShowMessage(' Data 저장 오류가 발생되었습니다. ');
> end;
> Close;
> ymd.SetFocus;
> end;
> end;
>
> // 실행하면 다음 메세지가 뜨네요...
> Project Project1.exe raised exception class EDBEngineError with message 'Invalid use of keyword'
> Token: No)
> Line Number ; 2', Process stopped. Use Stop or Run to continue.
>
> 부탁드립니다. 도와주세요. 꾸벅...
>
>
(NOTICE) You must be logged in to comment on this post.
-
- 이뿐초보
- •
- 2000.05.04 00:47
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.04 04:03안녕하세요. 최용일입니다. 파일스트림에서 Read, Write는 비정형버퍼를 사용합니다. 둘 다 파라매터는 ...
-
- 레마
- •
- 2000.05.04 00:39
- 3 COMMENTS
- /
- 0 LIKES
-
강민주•2000.05.04 03:31레마 wrote: > 안녕하세요? > 현재월에서 한달을 뺀 달만을 변수로 받고싶은데.. 어떻게... functaion D...
-
HART•2000.05.04 01:05procedure TForm1.Button1Click(Sender: TObject); var Present: TDateTime; Year, Month, Day, H...
-
선희•2000.05.04 01:04이렇게 하면 어떨까요? procedure .... var Year,Month,Day : Word; MonthBefore : TDate; be...
-
- 답답이
- 2000.05.04 00:08
- 0 COMMENTS
- /
- 0 LIKES
-
- serigr2
- •
- 2000.05.03 22:11
- 2 COMMENTS
- /
- 0 LIKES
안녕하세요. 겁없이 도전하고 있는 델파이지망생입니다. 프로젝트를 정해서 프로그램하려고 하는데 읽어오기는 잘하는데 저장이 안되네요. 고수님들의 조언 부탁드립니다. procedure TSub101F.btn_saveClick(Sender: TObject); begin With...-
하얀까마귀•2000.05.03 23:21안녕하세요 하얀까마귀 입니다.. 다른 부분은 타입같은거와 상관이 있을테니.. 다른 부분들에 대해 봐야...
-
nilriri•2000.05.03 23:16No라는 필드명이 키워드라는 에러 메시지인것 같은데요... C2, C3, C4, C5, "No") '); 라고 하셔서 컴파...
-
- 어린왕자
- •
- 2000.05.03 22:06
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.05.03 22:35좋은 하루 되십시요! 어린왕자님. 그리고 최용일님, 유솔로몬님, 박종삼형님, 안경옥님, 갱수님, 민주씨, ...
-
- 서종환
- 2000.05.03 20:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 승현이
- 2000.05.03 23:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 김민지
- •
- 2000.05.03 20:25
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.05.03 23:32unit unit1; interface uses //선언에 printers추가... Windows, Messages, SysUtils, Classes, G...
-
-
- 안명호
- 2000.05.03 19:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- •
- 2000.05.03 18:33
- 10 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.05.03 22:29
-
어린왕자•2000.05.03 22:53
-
조규춘•2000.05.04 00:14
-
어린왕자•2000.05.04 01:18
-
조규춘•2000.05.04 03:34
-
어린왕자•2000.05.04 03:37
-
조규춘•2000.05.04 04:01
- • • •
-
- 박설화
- •
- 2000.05.03 18:27
- 1 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.05.03 19:09박설화 wrote: > maskedit에 주민번호를 입력하는데 숫자가 하나라도 빠지면 에러가 발생합니다. > 이 에...
-
- 박설화
- •
- 2000.05.03 18:24
- 4 COMMENTS
- /
- 0 LIKES
-
HART•2000.05.03 18:33간단한 방법은 델파이 메뉴에서 file 선택하여 다시 new를 선택하면 newitem이라는 창이 열림 그 중에서...
-
박설화•2000.05.03 18:45HART wrote: > 간단한 방법은 델파이 메뉴에서 file 선택하여 다시 new를 선택하면 > newitem이라는 창...
-
HART•2000.05.03 19:04그것은 여기 델파이 강의실에 보시면 printer 객체을 이용한 출력있는데. 그것은 조금 공부하고 소스을 복...
-
김영해•2000.05.03 19:23HART wrote: > 그것은 여기 델파이 강의실에 보시면 printer 객체을 이용한 출력있는데. > 그것은 조금 ...
-
-
- 레마
- •
- 2000.05.03 17:31
- 1 COMMENTS
- /
- 0 LIKES
-
HART•2000.05.03 18:24간단 ###,###,##0 레마 wrote: > 디비그리드상에서 숫자를 천단위로 보여주려하는데.... > Query콤포넌...
-
-
HART•2000.05.03 18:27마스크 문자를 포함할까, 말까 하는 표시 0 : 포함하지 안음 1 : 포함함 따라서 1로 하면 주민등록...
-
-
- 파란달
- •
- 2000.05.03 10:37
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.03 20:10안녕하세요. 최용일입니다. Columns Editor에서 각 컬럼들의 MinWidth, MaxWidth속성을 그 컬럼의 Width...
-
-
nilriri•2000.05.03 18:06저도 당했던 버그인데요... quick report의 버그입니다. 패치파일을 www.qusoft.com에서 다운받아 설...
-
-
-
-
한창희•2000.05.03 07:00정연 wrote: > 디비에 저장하는걸 하려구 합니다. 넘 방대한가요? ^^; > > edit와 memo를 써서 타이핑...
-
정연•2000.05.03 08:36Exit 이벤트 생각을 못했던거네요 감사함돠 꾸우뻑 ^^; 밑에 분두요 ^^;
-
강민주•2000.05.03 06:58정연 wrote: > 디비에 저장하는걸 하려구 합니다. 넘 방대한가요? ^^; > > edit와 memo를 써서 타이핑...
-
다른 부분은 타입같은거와 상관이 있을테니.. 다른 부분들에 대해 봐야 알겠고요..
에러는 No라는 필드가 디비에서 key Word로 있기 때문에.. 에러가 나는 겁니다..
이런 경우에는 그냥
tblMemu."No" 라고 해주시면 됩니다.
그럼 즐거운시간 되세요
- 하얀까마귀 -