Q&A
- maskedit의 속성
안녕하세요?
제가 작성하는 프로그램의 일부분입니다.
컴파일까지는 하는데 날짜(medtinday)에 입력을 하려고 하면 에러가 발생합니다.
프로그램의 내용은 입력날짜를 입력하면 db에서 같은 날의 gwano 최고값에 1을 더한 값이 cnt로 출력되게 하려는 겁니다.
query1의 sql 내용은
[ select max(gwano) from ab.db where inday = :dd ] 입니다.
에러내용입니다.
[EConvertError with message '' - - 'is not a valid date]
procedure TNgumsa.medtindayChange(Sender: TObject);
var
dd : Tdatetime;
cnt : integer;
begin
try
with query1 do begin
close;
prepare;
Params[0].asdate := strtodate(medtinday.text); << 이부분이 에러입니다.
cnt := Query1MaxofGwano.AsInteger;
open;
end;
finally
edtgwano.text := inttostr(cnt +1);
end;
제가 작성하는 프로그램의 일부분입니다.
컴파일까지는 하는데 날짜(medtinday)에 입력을 하려고 하면 에러가 발생합니다.
프로그램의 내용은 입력날짜를 입력하면 db에서 같은 날의 gwano 최고값에 1을 더한 값이 cnt로 출력되게 하려는 겁니다.
query1의 sql 내용은
[ select max(gwano) from ab.db where inday = :dd ] 입니다.
에러내용입니다.
[EConvertError with message '' - - 'is not a valid date]
procedure TNgumsa.medtindayChange(Sender: TObject);
var
dd : Tdatetime;
cnt : integer;
begin
try
with query1 do begin
close;
prepare;
Params[0].asdate := strtodate(medtinday.text); << 이부분이 에러입니다.
cnt := Query1MaxofGwano.AsInteger;
open;
end;
finally
edtgwano.text := inttostr(cnt +1);
end;
2
COMMENTS
-
-
안녕하세요 ^^
제생각에는 그 에러메시지는
다음 함수 즉, strtodate에서 스트링값을
날짜로 변환하면서 생긴것 같습니다.(다 아는 얘기인가....)
혹시 medtinday.text에 - -가 있지 않습니까?
- -을 날짜로 변활 할때 에러가 발생하는 것같은데
[EConvertError with message '' - - 'is not a valid date]
이걸로 봐서는......
강미라 께서 말씀하시기를...
> 안녕하세요?
>
> 제가 작성하는 프로그램의 일부분입니다.
> 컴파일까지는 하는데 날짜(medtinday)에 입력을 하려고 하면 에러가 발생합니다.
>
> 프로그램의 내용은 입력날짜를 입력하면 db에서 같은 날의 gwano 최고값에 1을 더한 값이 cnt로 출력되게 하려는 겁니다.
>
> query1의 sql 내용은
> [ select max(gwano) from ab.db where inday = :dd ] 입니다.
>
> 에러내용입니다.
> [EConvertError with message '' - - 'is not a valid date]
>
>
> procedure TNgumsa.medtindayChange(Sender: TObject);
> var
> dd : Tdatetime;
> cnt : integer;
> begin
> try
> with query1 do begin
> close;
> prepare;
> Params[0].asdate := strtodate(medtinday.text); << 이부분이 에러입니다.
> cnt := Query1MaxofGwano.AsInteger;
> open;
> end;
> finally
>
> edtgwano.text := inttostr(cnt +1);
> end;
>
(NOTICE) You must be logged in to comment on this post.
-
- 이승윤
- 1999.07.03 17:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 한승협
- •
- 1999.07.03 14:28
- 2 COMMENTS
- /
- 0 LIKES
-
신호성•1999.07.03 18:24한승협 께서 말씀하시기를... > 안냐세여~ 거두절미하고.. > > 도서관프로그램을 짜보고 있는데요. 간...
-
시밀레•1999.07.03 15:37이렇게 해보세요. 아래 예는 오라클에서입니다. select count(*) from lend le,usr us where le.user...
-
- 하명훈
- 1999.07.03 12:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 고혜정
- •
- 1999.07.03 10:12
- 1 COMMENTS
- /
- 0 LIKES
-
김경수•1999.07.04 07:25안녕하세요 김경수라고 합니다. 저같은경우는요 일단 사용하는 디비의 알리아스를설정부분이 레지스트리 ...
-
- 디제이
- •
- 1999.07.03 07:59
- 1 COMMENTS
- /
- 0 LIKES
-
그냥•1999.07.08 00:14숨길때는 Form1.hide; 보일때는 Form1.show; 해보세요. 디제이 께서 말씀하시기를... > > 프로그램...
-
- 박성훈
- 1999.07.03 06:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 박성훈
- 1999.07.03 05:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 박성훈
- •
- 1999.07.03 05:46
- 1 COMMENTS
- /
- 0 LIKES
-
정재홍•1999.07.03 07:12박성훈 께서 말씀하시기를... Q> 첫째, TTabControl에서 탭이 변경될 때 서로 다른 내용을 보여주려면 어...
-
- 김대원
- 1999.07.03 05:40
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 이한나
- 1999.07.03 02:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 이경섭
- •
- 1999.07.03 02:40
- 1 COMMENTS
- /
- 0 LIKES
-
조복기•1999.07.03 04:54이경섭 께서 말씀하시기를... > 공부를 하다가 보니까 > 델파이의 내장함수에 대해서 너무 모르는 것이 ...
-
-
- 이철민
- •
- 1999.07.03 00:59
- 2 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.07.03 01:55힌트를 사용하시면 됩니다. 힌트의 문자열에 그 컴포넌트의 이름을 넣고 나오게 하면 되죠. 델파이에서도...
-
조복기•1999.07.03 01:29이철민 께서 말씀하시기를... > 아래의 박재홍씨의 답변 먼저 고맙습니다. > 제가 원하는 대답이 아니군...
-
- 강미라
- •
- 1999.07.03 00:44
- 2 COMMENTS
- /
- 0 LIKES
안녕하세요? 제가 작성하는 프로그램의 일부분입니다. 컴파일까지는 하는데 날짜(medtinday)에 입력을 하려고 하면 에러가 발생합니다. 프로그램의 내용은 입력날짜를 입력하면 db에서 같은 날의 gwano 최고값에 1을 더한 값이 cnt로 출력...-
정재홍•1999.07.03 03:39강미라 께서 말씀하시기를... > 안녕하세요? > > 제가 작성하는 프로그램의 일부분입니다. > 컴파일까...
-
하남수•1999.07.03 02:22안녕하세요 ^^ 제생각에는 그 에러메시지는 다음 함수 즉, strtodate에서 스트링값을 날짜로 변환하면...
-
- 정계훈
- •
- 1999.07.02 23:16
- 1 COMMENTS
- /
- 0 LIKES
-
강민주•1999.07.04 06:46정계훈 께서 말씀하시기를... > 안녕하십니까? > 전 지금 머리가 무척 아프답니다. > > 퀵리포트로 만...
-
- bds
- 1999.07.02 20:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 강민주
- 1999.07.02 20:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 최석기
- •
- 1999.07.02 20:48
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.07.03 02:48APD를 이용하세요. ZModem을 사용하시면 됩니다. APD는 상용컴포넌트 입니다. 나이렉스에서 판매하고 있...
-
- 조대희
- 1999.07.02 20:37
- 0 COMMENTS
- /
- 0 LIKES
> 안녕하세요?
>
> 제가 작성하는 프로그램의 일부분입니다.
> 컴파일까지는 하는데 날짜(medtinday)에 입력을 하려고 하면 에러가 발생합니다.
>
> 프로그램의 내용은 입력날짜를 입력하면 db에서 같은 날의 gwano 최고값에 1을 더한 값이 cnt로 출력되게 하려는 겁니다.
>
> query1의 sql 내용은
> [ select max(gwano) from ab.db where inday = :dd ] 입니다.
>
> 에러내용입니다.
> [EConvertError with message '' - - 'is not a valid date]
>
>
> procedure TNgumsa.medtindayChange(Sender: TObject);
> var
> dd : Tdatetime;
> cnt : integer;
> begin
> try
> with query1 do begin
> close;
> prepare;
> Params[0].asdate := strtodate(medtinday.text); << 이부분이 에러입니다.
> cnt := Query1MaxofGwano.AsInteger;
> open;
> end;
> finally
>
> edtgwano.text := inttostr(cnt +1);
> end;
>
제 생각은 이렇습니다.
체인지이벤트에 코드를 넣어 두어서 그렇습니다.
체인지 이벤트는 그 컨트롤이 생성되면서도 발생할 수 있습니다.
즉, 아무 자료도 입력되지 않은 상태에서(' - - ')자료 변환을
시도하기 때문입니다.
그리고 날짜(1999-07-02)를 입력하기 위해 키보드의 1자를 누르는 순간에도
1이 입력되기전에 체인지 이벤트가 먼저 발생하기 때문이죠...
이렇게 해 보심이....
체인지 이벤트가 아닌 키 다운 이벤트에....
procedure TNgumsa.medtindayKeyDown(...생략...);
var
dd : Tdatetime;
cnt : integer;
begin
if key = 13 then //또는 if key = vk_return then
begin
try
with query1 do
begin
close;
prepare;
Params[0].asdate := strtodate(medtinday.text);
open; //여기서 오픈을 먼저 해야 겠지요 아래서 쓰고있으니.
cnt := Query1MaxofGwano.AsInteger;
//open; 원래 여기에 있는데 ....
end; //with문
finally
edtgwano.text := inttostr(cnt +1);
end; //try문
end; //if문
end;
그럼 문제 잘 해결 되길 바랍니다.