Q&A
- 아직 안주무시죠? dbgrid..
아직 안 주무시죠? 저도 아직 안자고 있습니다.. ^^
아래 두분께서 도와 주신대로 코딩을 했습니다만 조금 부족한 부분이 있어서 재차 질문 드립니다.
procedure TFrmmain.TB_UClick(Sender: TObject); // insert , update query
begin
value_chk; // 필요 충분값 검사
if pagecontrol1.ActivePage = tabsheet1 then // 사외 방문자
begin
with query1 do
begin
try
close;
sql.Clear;
sql.Add(' update io_schedule set stat ="1" ');
sql.Add(' where in_date = :indate ');
sql.Add(' and seq = :seq ');
sql.Add(' and vendcd = :vendcd ');
parambyname('in_date').AsString := dbgrid1.Fields[0].asstring;
parambyname('vendcd').AsString := dbgrid1.Fields[1].AsString;
parambyname('seq').AsString := dbgrid1.Fields[6].AsString;
execsql;
except
if isempty then
begin
showmessage('자료가 수정 되지 않았습니다 . 자료를 확인해 주십시요'); //===> 요기 요부분
exit;
end;
end;
showmessage('자료가 정상적으로 추가 되었습니다'); // 발생되는 message
end;
end;
위의 코드에서 isempth 시 발생되는 showmessage 가 보이네요..
update 문에서는 execsql로 open 을 대신 실행한다고 들었는데 이부분이 아닌지요? 위에서 변수 값으로 받을 값들은 seq, in_date,vendcd 3개중에 틀린 부분이 있지 않나 싶습니다.. dbgrid 에서 뿌려 주는 값을 각각의 필드 순으로 받아서(in_date 0번, vendcd 2번, seq를 7번째에 필드(dbgrid 는 첫번째 필드를 0번으로 표현하는 것이 맞지요?)로 받는데 값이 안 넘어 가네요.. db상에서의 query 는 잘 되는듯 한데.. 소스 상에 문제가 혹시 있나요? 고언을 바랍니다..
참고로 위의 try except 문을 삭제 하면 access violation error 이 뜨네요.. 부탁 드립니다..
아래 두분께서 도와 주신대로 코딩을 했습니다만 조금 부족한 부분이 있어서 재차 질문 드립니다.
procedure TFrmmain.TB_UClick(Sender: TObject); // insert , update query
begin
value_chk; // 필요 충분값 검사
if pagecontrol1.ActivePage = tabsheet1 then // 사외 방문자
begin
with query1 do
begin
try
close;
sql.Clear;
sql.Add(' update io_schedule set stat ="1" ');
sql.Add(' where in_date = :indate ');
sql.Add(' and seq = :seq ');
sql.Add(' and vendcd = :vendcd ');
parambyname('in_date').AsString := dbgrid1.Fields[0].asstring;
parambyname('vendcd').AsString := dbgrid1.Fields[1].AsString;
parambyname('seq').AsString := dbgrid1.Fields[6].AsString;
execsql;
except
if isempty then
begin
showmessage('자료가 수정 되지 않았습니다 . 자료를 확인해 주십시요'); //===> 요기 요부분
exit;
end;
end;
showmessage('자료가 정상적으로 추가 되었습니다'); // 발생되는 message
end;
end;
위의 코드에서 isempth 시 발생되는 showmessage 가 보이네요..
update 문에서는 execsql로 open 을 대신 실행한다고 들었는데 이부분이 아닌지요? 위에서 변수 값으로 받을 값들은 seq, in_date,vendcd 3개중에 틀린 부분이 있지 않나 싶습니다.. dbgrid 에서 뿌려 주는 값을 각각의 필드 순으로 받아서(in_date 0번, vendcd 2번, seq를 7번째에 필드(dbgrid 는 첫번째 필드를 0번으로 표현하는 것이 맞지요?)로 받는데 값이 안 넘어 가네요.. db상에서의 query 는 잘 되는듯 한데.. 소스 상에 문제가 혹시 있나요? 고언을 바랍니다..
참고로 위의 try except 문을 삭제 하면 access violation error 이 뜨네요.. 부탁 드립니다..
7
COMMENTS
-
-
목동 wrote:
> 아직 안 주무시죠? 저도 아직 안자고 있습니다.. ^^
> 아래 두분께서 도와 주신대로 코딩을 했습니다만 조금 부족한 부분이 있어서 재차 질문 드립니다.
>
> procedure TFrmmain.TB_UClick(Sender: TObject); // insert , update query
> begin
> value_chk; // 필요 충분값 검사
> if pagecontrol1.ActivePage = tabsheet1 then // 사외 방문자
> begin
> with query1 do
> begin
> try
> close;
> sql.Clear;
> sql.Add(' update io_schedule set stat ="1" ');
> sql.Add(' where in_date = :indate ');
> sql.Add(' and seq = :seq ');
> sql.Add(' and vendcd = :vendcd ');
> parambyname('in_date').AsString := dbgrid1.Fields[0].asstring;
> parambyname('vendcd').AsString := dbgrid1.Fields[1].AsString;
> parambyname('seq').AsString := dbgrid1.Fields[6].AsString;
> execsql;
> except
> if isempty then
-----------------------------------------------
execsql 은 항상 isEmpty 입니다 이유는 리턴 된
Result Set 이 없기 때문이죠.
if RowsAffected = -1 then 으로 바꾸시져..
> begin
> showmessage('자료가 수정 되지 않았습니다 . 자료를 확인해 주십시요'); //===> 요기 요부분
> exit;
> end;
>
> end;
> showmessage('자료가 정상적으로 추가 되었습니다'); // 발생되는 message
> end;
> end;
>
> 위의 코드에서 isempth 시 발생되는 showmessage 가 보이네요..
> update 문에서는 execsql로 open 을 대신 실행한다고 들었는데 이부분이 아닌지요? 위에서 변수 값으로 받을 값들은 seq, in_date,vendcd 3개중에 틀린 부분이 있지 않나 싶습니다.. dbgrid 에서 뿌려 주는 값을 각각의 필드 순으로 받아서(in_date 0번, vendcd 2번, seq를 7번째에 필드(dbgrid 는 첫번째 필드를 0번으로 표현하는 것이 맞지요?)로 받는데 값이 안 넘어 가네요.. db상에서의 query 는 잘 되는듯 한데.. 소스 상에 문제가 혹시 있나요? 고언을 바랍니다..
> 참고로 위의 try except 문을 삭제 하면 access violation error 이 뜨네요.. 부탁 드립니다..
다시써본 코드.
procedure TFrmmain.TB_UClick(Sender: TObject); // insert , update query
begin
value_chk; // 필요 충분값 검사
if pagecontrol1.ActivePage = tabsheet1 then // 사외 방문자
with query1 do
begin
// try <-- 익셉션 핸들링 이 잘못됐음다.
close;
sql.Clear;
sql.Add(' update io_schedule set stat ="1" ');
sql.Add(' where in_date = :indate ');
sql.Add(' and seq = :seq ');
sql.Add(' and vendcd = :vendcd ');
parambyname('in_date').AsString := dbgrid1.Fields[0].asstring;
parambyname('vendcd').AsString := dbgrid1.Fields[1].AsString;
parambyname('seq').AsString := dbgrid1.Fields[6].AsString;
try
execsql;
if RowsAffected = -1 then
showmessage('자료가 수정 되지 않았습니다 . 자료를 확인해');
else
Showmessage('자료가 정상적으로 추가 되었습니다'); // 발생되는 message
except
ShowMessage('에러발생');
end;
end;
end;
-
sql.Add(' update io_schedule set stat ="1" '); // 그럼 이부분에서
"1" 을 ""를 지우고 그냥 1로 바꾸어 보시면 가능할 것 같은데.. 함 해보세염..
그럼 수고하세염..
목동 wrote:
> 아직 안 주무시죠? 저도 아직 안자고 있습니다.. ^^
> 아래 두분께서 도와 주신대로 코딩을 했습니다만 조금 부족한 부분이 있어서 재차 질문 드립니다.
>
> procedure TFrmmain.TB_UClick(Sender: TObject); // insert , update query
> begin
> value_chk; // 필요 충분값 검사
> if pagecontrol1.ActivePage = tabsheet1 then // 사외 방문자
> begin
> with query1 do
> begin
> try
> close;
> sql.Clear;
> sql.Add(' update io_schedule set stat ="1" ');
> sql.Add(' where in_date = :indate ');
> sql.Add(' and seq = :seq ');
> sql.Add(' and vendcd = :vendcd ');
> parambyname('in_date').AsString := dbgrid1.Fields[0].asstring;
> parambyname('vendcd').AsString := dbgrid1.Fields[1].AsString;
> parambyname('seq').AsString := dbgrid1.Fields[6].AsString;
> execsql;
> except
> if isempty then
> begin
> showmessage('자료가 수정 되지 않았습니다 . 자료를 확인해 주십시요'); //===> 요기 요부분
> exit;
> end;
>
> end;
> showmessage('자료가 정상적으로 추가 되었습니다'); // 발생되는 message
> end;
> end;
>
> 위의 코드에서 isempth 시 발생되는 showmessage 가 보이네요..
> update 문에서는 execsql로 open 을 대신 실행한다고 들었는데 이부분이 아닌지요? 위에서 변수 값으로 받을 값들은 seq, in_date,vendcd 3개중에 틀린 부분이 있지 않나 싶습니다.. dbgrid 에서 뿌려 주는 값을 각각의 필드 순으로 받아서(in_date 0번, vendcd 2번, seq를 7번째에 필드(dbgrid 는 첫번째 필드를 0번으로 표현하는 것이 맞지요?)로 받는데 값이 안 넘어 가네요.. db상에서의 query 는 잘 되는듯 한데.. 소스 상에 문제가 혹시 있나요? 고언을 바랍니다..
> 참고로 위의 try except 문을 삭제 하면 access violation error 이 뜨네요.. 부탁 드립니다..
-
자유지역 wrote:
> sql.Add(' update io_schedule set stat ="1" '); // 그럼 이부분에서
> "1" 을 ""를 지우고 그냥 1로 바꾸어 보시면 가능할 것 같은데.. 함 해보세염..
> 그럼 수고하세염..
>
>
넹.. 여전히 수고 하고 있습니다.. 헥헥..
stat 값은 db 에서 char(1) 로 잡혀 있습니다.. 미리 말씀 드렸어야 하는데.. 말씀 못 드렸네요..
저 혹시 access violation 메세지 겪어 보신적이 있으신지요?
지금 try-except 를 지우고 해보고 있는데 그 메세지가 뜨네요.. 이 메세지가 어떤때에 주로 뜨는지 알고 계신가요?
-
access violation 에러는 대부분 sql 문법 오류가 많구여, 가장 흔한게 데이터 타입이 맞질 않거나 해서 생기는 오류이구여, 간혹 철자 오류로 없는 테이블에 접근하려고 하면 생깁니다.. 뭐저도 초보라 정확히는 모르겠구여.. 경험상 그렇더라고여..
그리구 어떤 DB쓰시는지?
위에서 나열한 것들 한번 확인 해보시기 바랍니다.. 수고하세염..
목동 wrote:
> 자유지역 wrote:
> > sql.Add(' update io_schedule set stat ="1" '); // 그럼 이부분에서
> > "1" 을 ""를 지우고 그냥 1로 바꾸어 보시면 가능할 것 같은데.. 함 해보세염..
> > 그럼 수고하세염..
> >
> >
> 넹.. 여전히 수고 하고 있습니다.. 헥헥..
> stat 값은 db 에서 char(1) 로 잡혀 있습니다.. 미리 말씀 드렸어야 하는데.. 말씀 못 드렸네요..
> 저 혹시 access violation 메세지 겪어 보신적이 있으신지요?
> 지금 try-except 를 지우고 해보고 있는데 그 메세지가 뜨네요.. 이 메세지가 어떤때에 주로 뜨는지 알고 계신가요?
-
자유지역 wrote:
> access violation 에러는 대부분 sql 문법 오류가 많구여, 가장 흔한게 데이터 타입이 맞질 않거나 해서 생기는 오류이구여, 간혹 철자 오류로 없는 테이블에 접근하려고 하면 생깁니다.. 뭐저도 초보라 정확히는 모르겠구여.. 경험상 그렇더라고여..
> 그리구 어떤 DB쓰시는지?
> 위에서 나열한 것들 한번 확인 해보시기 바랍니다.. 수고하세염..
>
>
예.. 감사 합니다.. 전 sql 6.5 사용합니다.. 계속 수고 하고 있겠습니다.. ^^
차근차근 다시 살펴 봐야 겠네요.. 그런 오류라면.. 흠.....
늦은 시간까지 고생하시네요...
-
꾸벅 감사 합니다.. 저도 금방 발견했는데요.. 그 부분은 고쳤네요.. 게시판에 올려 놓고 보니까 눈에 안 보이던 에러가 보이네요..
그 부분은 고쳐서 다시 컴파일 해 봤습니다만.. 흠.. 아직 update가 안되고 있네요...
조금더 살펴 보아 주실수 있을런지요?
(NOTICE) You must be logged in to comment on this post.
-
- Help Me*^^*
- 2001.10.05 20:51
- 0 COMMENTS
- /
- 0 LIKES
-
- kirra
- 2001.10.05 19:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 만성
- •
- 2001.10.05 19:37
- 2 COMMENTS
- /
- 0 LIKES
-
코스엑스•2001.10.05 20:24만성 wrote: > 스트링그리드를 쓰게되면 상단과 좌단에 타이틀칼럼이 있지 않습니까? > 경우에 따라 제목...
-
만성•2001.10.06 08:43코스엑스 wrote: > 만성 wrote: > > 스트링그리드를 쓰게되면 상단과 좌단에 타이틀칼럼이 있지 않습니까...
-
-
- sonny
- •
- 2001.10.05 19:21
- 2 COMMENTS
- /
- 0 LIKES
-
김일영•2001.10.06 10:43해당 서버의 command 환경에서 svrmgrl을 실행시켜서 connect internal을 통해 접속하시면 sys user로 접...
-
델 초보(아줌마)•2001.10.06 04:10sonny wrote: > internal로 접속하고자하는데 어케하져... > 보통 오라클접속시 internal하면 패스워드 ...
-
- 전영진
- 2001.10.05 10:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 목동
- •
- 2001.10.05 10:20
- 7 COMMENTS
- /
- 0 LIKES
아직 안 주무시죠? 저도 아직 안자고 있습니다.. ^^ 아래 두분께서 도와 주신대로 코딩을 했습니다만 조금 부족한 부분이 있어서 재차 질문 드립니다. procedure TFrmmain.TB_UClick(Sender: TObject); // insert , update query begin va...-
돌파리•2001.10.06 02:07목동 wrote: > 아직 안 주무시죠? 저도 아직 안자고 있습니다.. ^^ > 아래 두분께서 도와 주신대로 코딩...
-
코스엑스•2001.10.05 11:41목동 wrote: > 아직 안 주무시죠? 저도 아직 안자고 있습니다.. ^^ > 아래 두분께서 도와 주신대로 코딩...
-
자유지역•2001.10.05 10:22sql.Add(' update io_schedule set stat ="1" '); // 그럼 이부분에서 "1" 을 ""를 지우...
-
목동•2001.10.05 10:31자유지역 wrote: > sql.Add(' update io_schedule set stat ="1" '); // 그럼 이부분에서 ...
-
자유지역•2001.10.05 10:55access violation 에러는 대부분 sql 문법 오류가 많구여, 가장 흔한게 데이터 타입이 맞질 않거나 해서 생...
-
목동•2001.10.05 11:01자유지역 wrote: > access violation 에러는 대부분 sql 문법 오류가 많구여, 가장 흔한게 데이터 타입이 ...
-
목동•2001.10.05 10:16꾸벅 감사 합니다.. 저도 금방 발견했는데요.. 그 부분은 고쳤네요.. 게시판에 올려 놓고 보니까 눈에 안 ...
-
- 자유지역
- •
- 2001.10.05 10:58
- 3 COMMENTS
- /
- 0 LIKES
-
irookie•2001.10.05 16:43exit대신 break를 사용해 보세요. 제가 알기에는 exit는 폼(프로그램)을 끝내는 걸루 알고 있습니다. ...
-
자유지역•2001.10.05 17:26답변 감사합니다. 하지만 break나 continue 문은 루프에서만 사용이 가능한걸로 알고 있는데.. 그리고 한...
-
코스엑스•2001.10.05 18:30자유지역 wrote: > 답변 감사합니다. > 하지만 break나 continue 문은 루프에서만 사용이 가능한걸로 알...
-
- 목동
- •
- 2001.10.05 09:06
- 2 COMMENTS
- /
- 0 LIKES
-
자유지역•2001.10.05 10:06요구하시는게 이것인지 모르겠군여.. DBGrid1.Fields[0].AsString; //DBGrid의 선택된 첫번째 필드 값입...
-
코스엑스•2001.10.05 09:45목동 wrote: > 안녕하세요? 서울의 목동입니다.. > 한가지 궁금한 것이 있어서 지난 게시물을 찾아 보고...
-
- 안영훈
- •
- 2001.10.05 07:33
- 1 COMMENTS
- /
- 0 LIKES
-
stoney•2001.10.05 08:13RichEdit에서 원하는 Syntex를 색깔을 바꾸는 방법이니까 응용해보세요.. procedure TForm1.Button1Clic...
-
- 이상환
- •
- 2001.10.05 06:43
- 1 COMMENTS
- /
- 0 LIKES
-
코스엑스•2001.10.05 09:46이상환 wrote: > 오라클 DB 테이블에 설계된 필드 길이보다 긴 데이터를 무조건 입력하고자 합니다. > 방...
-
- green15
- •
- 2001.10.05 05:39
- 1 COMMENTS
- /
- 0 LIKES
-
코스엑스•2001.10.05 09:53green15 wrote: > for i := stringgrid1.rowcount - 1 to 1 do > begin > query1.UpdateObje...
-
- 이인수
- 2001.10.05 06:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 김철수
- 2001.10.05 04:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.10.05 03:46
- 2 COMMENTS
- /
- 0 LIKES
-
stoney•2001.10.05 08:18이런 식으로 하면 될꺼 같네요. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); be...
-
강인규•2001.10.05 04:16스트링의 첫번째 문자는 var S : String; 이라 하면 S[1] 하시면 됩니다.. 숫자 특수문자가 ...
-
- 초보
- 2001.10.05 03:45
- 0 COMMENTS
- /
- 0 LIKES
-
- dasam4
- •
- 2001.10.05 03:34
- 1 COMMENTS
- /
- 0 LIKES
-
major•2001.10.05 04:07dasam4 wrote: > 현재 저의 회사에서 프로그램을 개발한 것은 델파이 3입니다... > 예전부터 작업을 델파...
-
-
- 델파이3.0
- 2001.10.05 02:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 미친닭
- 2001.10.05 02:31
- 0 COMMENTS
- /
- 0 LIKES
> 아직 안 주무시죠? 저도 아직 안자고 있습니다.. ^^
> 아래 두분께서 도와 주신대로 코딩을 했습니다만 조금 부족한 부분이 있어서 재차 질문 드립니다.
>
> procedure TFrmmain.TB_UClick(Sender: TObject); // insert , update query
> begin
> value_chk; // 필요 충분값 검사
> if pagecontrol1.ActivePage = tabsheet1 then // 사외 방문자
> begin
> with query1 do
> begin
> try
> close;
> sql.Clear;
> sql.Add(' update io_schedule set stat ="1" ');
> sql.Add(' where in_date = :indate ');
> sql.Add(' and seq = :seq ');
> sql.Add(' and vendcd = :vendcd ');
> parambyname('in_date').AsString := dbgrid1.Fields[0].asstring;
> parambyname('vendcd').AsString := dbgrid1.Fields[1].AsString;
> parambyname('seq').AsString := dbgrid1.Fields[6].AsString;
> execsql;
> except
> if isempty then
> begin
> showmessage('자료가 수정 되지 않았습니다 . 자료를 확인해 주십시요'); //===> 요기 요부분
> exit;
> end;
>
> end;
> showmessage('자료가 정상적으로 추가 되었습니다'); // 발생되는 message
> end;
> end;
>
> 위의 코드에서 isempth 시 발생되는 showmessage 가 보이네요..
> update 문에서는 execsql로 open 을 대신 실행한다고 들었는데 이부분이 아닌지요? 위에서 변수 값으로 받을 값들은 seq, in_date,vendcd 3개중에 틀린 부분이 있지 않나 싶습니다.. dbgrid 에서 뿌려 주는 값을 각각의 필드 순으로 받아서(in_date 0번, vendcd 2번, seq를 7번째에 필드(dbgrid 는 첫번째 필드를 0번으로 표현하는 것이 맞지요?)로 받는데 값이 안 넘어 가네요.. db상에서의 query 는 잘 되는듯 한데.. 소스 상에 문제가 혹시 있나요? 고언을 바랍니다..
> 참고로 위의 try except 문을 삭제 하면 access violation error 이 뜨네요.. 부탁 드립니다..
parambyname('in_date').AsString ---> ParamByName('indate').AsString