Q&A
- mysql에서 에디트박스로 출력이 안됩니다....
제가 원하는 것은 DB에 저장된 값을 특정한 날짜것만 추려서 에디트박스로
출력하는 것입니다.
예를들면 2001년 12월 26일의 잔고를 알고싶을때 사용하는 것 입니다.
소스는 아래와 같구요,
우선 에디트 박스에서 날짜를 불러와서 그것을 조건으로 쿼리문을 돌리고
값을 찾아내는 것 입니다.
근데 이 쿼리문이 mysql에서 직접 할 때는,
select ychargesu from shin where today = '2001-12-26';
하면은 나오는데 그 '2001-12-26'을 변수로 처리하려고 하니까 잘 안됩니다.
procedure TFrame3.rbtn11Click(Sender: TObject);
var
present : Tdatetime;
begin
with form1.query1 do
begin
close;
sql.Clear;
present:=EncodeDate(StrToInt(form1.Edtty.Text),StrToIntform1.Edttm.Text),
StrToInt(form1.Edttd.Text));
sql.add('select ychargesu from shin ');
sql.add('where today = :td');
form1.query1.parambyname('td').asdatetime:=present;
form1.edt115.Text := inttostr(form1.query1.FieldByName('ychargesu')
.Asinteger);
open;
form1.label3.caption := datetostr(present);
end;
출력하는 것입니다.
예를들면 2001년 12월 26일의 잔고를 알고싶을때 사용하는 것 입니다.
소스는 아래와 같구요,
우선 에디트 박스에서 날짜를 불러와서 그것을 조건으로 쿼리문을 돌리고
값을 찾아내는 것 입니다.
근데 이 쿼리문이 mysql에서 직접 할 때는,
select ychargesu from shin where today = '2001-12-26';
하면은 나오는데 그 '2001-12-26'을 변수로 처리하려고 하니까 잘 안됩니다.
procedure TFrame3.rbtn11Click(Sender: TObject);
var
present : Tdatetime;
begin
with form1.query1 do
begin
close;
sql.Clear;
present:=EncodeDate(StrToInt(form1.Edtty.Text),StrToIntform1.Edttm.Text),
StrToInt(form1.Edttd.Text));
sql.add('select ychargesu from shin ');
sql.add('where today = :td');
form1.query1.parambyname('td').asdatetime:=present;
form1.edt115.Text := inttostr(form1.query1.FieldByName('ychargesu')
.Asinteger);
open;
form1.label3.caption := datetostr(present);
end;
2
COMMENTS
-
-
yo`
음냥...코딩이 좀 이상하군요...
> form1.edt115.Text := inttostr(form1.query1.FieldByName('ychargesu')
> .Asinteger);
아직 form1.query1 가 open이 되지 않은 상태라서 값이 안나옵니다. 에러 안나요??
그거 빼고는 별다른거 없는거 같은데 present 변수에 날짜가 제대로 들어오겟죠??
그람..휘릭~
bLue bLood.
최은규 wrote:
> 제가 원하는 것은 DB에 저장된 값을 특정한 날짜것만 추려서 에디트박스로
> 출력하는 것입니다.
> 예를들면 2001년 12월 26일의 잔고를 알고싶을때 사용하는 것 입니다.
>
> 소스는 아래와 같구요,
> 우선 에디트 박스에서 날짜를 불러와서 그것을 조건으로 쿼리문을 돌리고
> 값을 찾아내는 것 입니다.
>
> 근데 이 쿼리문이 mysql에서 직접 할 때는,
> select ychargesu from shin where today = '2001-12-26';
> 하면은 나오는데 그 '2001-12-26'을 변수로 처리하려고 하니까 잘 안됩니다.
>
> procedure TFrame3.rbtn11Click(Sender: TObject);
> var
> present : Tdatetime;
> begin
> with form1.query1 do
> begin
> close;
> sql.Clear;
> present:=EncodeDate(StrToInt(form1.Edtty.Text),StrToIntform1.Edttm.Text),
> StrToInt(form1.Edttd.Text));
> sql.add('select ychargesu from shin ');
> sql.add('where today = :td');
> form1.query1.parambyname('td').asdatetime:=present;
> form1.edt115.Text := inttostr(form1.query1.FieldByName('ychargesu')
> .Asinteger);
> open;
> form1.label3.caption := datetostr(present);
> end;
(NOTICE) You must be logged in to comment on this post.
-
- 우나기
- •
- 2001.12.27 04:21
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.27 18:50안녕하세요. 최용일입니다. 아래와 같은 형식으로 변환하세요... unit Rudder; interface .......
-
- 준허접
- 2001.12.27 04:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 델사
- •
- 2001.12.27 03:40
- 3 COMMENTS
- /
- 0 LIKES
-
manlife•2001.12.28 01:22DBGrid의 오브젝트 인스펙트에서 Option을 선택하면 그 중에 dgRowSelect가 있습니다. 그 값을 False로 ...
-
김대준•2001.12.31 23:31dgRowSelect = True속성을 주고서 이동 안되게 할수 있는 방업은 없나요? 현재 저 같은 경우는.. Row를 ...
-
김대준•2001.12.31 23:30dgRowSelect = True속성을 주고서 이동 안되게 할수 있는 방업은 없나요? 현재 저 같은 경우는.. Row를 ...
-
- 김영호
- •
- 2001.12.27 02:57
- 1 COMMENTS
- /
- 0 LIKES
-
오라클•2001.12.28 03:44김영호 wrote: > 안뇽하세요 > 저는 오라클 디비를 사용하고 있는 사람입니다. 다름이 아니오라 > 숫자...
-
- 초보임당
- •
- 2001.12.27 02:54
- 1 COMMENTS
- /
- 0 LIKES
-
데빠이•2001.12.27 03:04초보임당 wrote: > 안녕하십니까.. > 현재 오라클 db연동 프로그램을 만들고 있습니다. > 데이터를 db에...
-
- 김종석
- 2001.12.27 02:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 비비드
- 2001.12.27 02:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이초보
- •
- 2001.12.27 01:58
- 5 COMMENTS
- /
- 0 LIKES
-
씨나락•2001.12.27 02:09SQL.Add('Set GYEL_CHEK = ''Y'', GYEL_NUMB = ''SYSDATE'' '); 이부분을 SQL.Add('Set GYEL_CHEK = ''Y'...
-
한가해•2001.12.27 02:08땡땡이('''')를 지우세요.. 델파이초보 wrote: > 얼마전 질문을 올렸었습니다. 그러나 답을해주시는 분...
-
델파이초보•2001.12.27 02:20답변 정말 감사드립니다. 그럼 한가지만 더 물어보겠습니다. 말씀하신대로 '' ''를 지웠더니 sysdate를 가...
-
빙고•2001.12.27 20:35제 생각에는 이러면 어떨지요? 필드가 문자형이라고 생각한 경우입니다. 데이타형이 틀리다면 거기에 맞게...
-
델파이초보•2001.12.28 20:18델파이초보 wrote; 답변 정말 감사드립니다. 빙고 wrote: > 제 생각에는 이러면 어떨지요? 필드가 문...
-
- 초보자
- •
- 2001.12.27 01:50
- 1 COMMENTS
- /
- 0 LIKES
-
김지태•2001.12.27 03:12초보자 wrote: > 안녕하세요 > 타 부서의 프로그램을 우리 부서의 환경에 맞게 변경시키는 작업을 하고 ...
-
- 최은규
- •
- 2001.12.27 01:33
- 2 COMMENTS
- /
- 0 LIKES
제가 원하는 것은 DB에 저장된 값을 특정한 날짜것만 추려서 에디트박스로 출력하는 것입니다. 예를들면 2001년 12월 26일의 잔고를 알고싶을때 사용하는 것 입니다. 소스는 아래와 같구요, 우선 에디트 박스에서 날짜를 불러와서 그것을 ...-
앙리앙리•2001.12.27 19:14최은규 wrote: > 제가 원하는 것은 DB에 저장된 값을 특정한 날짜것만 추려서 에디트박스로 > 출력하는 ...
-
^-_-^•2001.12.27 07:05yo` 음냥...코딩이 좀 이상하군요... > form1.edt115.Text := inttostr(form1.query1.FieldByNa...
-
- 라일락
- 2001.12.27 01:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 동동
- •
- 2001.12.27 01:24
- 2 COMMENTS
- /
- 0 LIKES
-
김지태•2001.12.27 02:39동동 wrote: > > 안녕하세요. 우선 리치에디트가 두개가 있습니다. 한쪽에서 '보내기'버튼을 누르면 자...
-
동동•2001.12.27 03:37죄송합니다. 제가 질문을 제대로 하지 못했어요. 우선 전체적인 Font가 문제가 아니라 그 중간에 삽...
-
- 인어공주
- 2001.12.27 01:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.12.27 01:14
- 1 COMMENTS
- /
- 0 LIKES
-
김지태•2001.12.27 02:57초보 wrote: > var > hwnd : THandle; > begin > hwnd := LoadLibrary('aaa.exe'); > > if hw...
-
- 아리엘
- 2001.12.27 00:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초짜
- •
- 2001.12.26 23:56
- 2 COMMENTS
- /
- 0 LIKES
-
박서규•2001.12.27 14:27왕초짜 wrote: > 델파이로 구조체를 만들어서 서버로 데이타를 보낼려고합니다 > > 서버는 C 로 되어있...
-
왕초짜•2001.12.28 06:06박서규님.. 정말 감사드립니다. 덕분에 지금은 아~주 잘 된답니다. ^^ 친절한 답변 다시한번 감사...
-
- 레지스트리를 사용하
- 2001.12.26 23:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 이범호
- 2001.12.26 22:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 우나기
- •
- 2001.12.26 21:44
- 1 COMMENTS
- /
- 0 LIKES
-
이채성•2001.12.26 22:21C Builder에서 컴파일 한 후 Obj단에서 링크하면 Delphi에서 C 소스를 사용할 수 있습니다. 그 방법...
-
- 엘뤼
- 2001.12.26 21:31
- 0 COMMENTS
- /
- 0 LIKES
> 제가 원하는 것은 DB에 저장된 값을 특정한 날짜것만 추려서 에디트박스로
> 출력하는 것입니다.
> 예를들면 2001년 12월 26일의 잔고를 알고싶을때 사용하는 것 입니다.
>
> 소스는 아래와 같구요,
> 우선 에디트 박스에서 날짜를 불러와서 그것을 조건으로 쿼리문을 돌리고
> 값을 찾아내는 것 입니다.
>
> 근데 이 쿼리문이 mysql에서 직접 할 때는,
> select ychargesu from shin where today = '2001-12-26';
> 하면은 나오는데 그 '2001-12-26'을 변수로 처리하려고 하니까 잘 안됩니다.
>
> procedure TFrame3.rbtn11Click(Sender: TObject);
> var
> present : Tdatetime;
> begin
> with form1.query1 do
> begin
> close;
> sql.Clear;
> present:=EncodeDate(StrToInt(form1.Edtty.Text),StrToIntform1.Edttm.Text),
> StrToInt(form1.Edttd.Text));
> sql.add('select ychargesu from shin ');
> sql.add('where today = :td');
> form1.query1.parambyname('td').asdatetime:=present;
> form1.edt115.Text := inttostr(form1.query1.FieldByName('ychargesu')
> .Asinteger);
> open;
> form1.label3.caption := datetostr(present);
> end;
허접한 답변이 될지는 모르겟지만... 저두 그러한 경우를 경험해 봐서 ^^*
델파이를 사용하고 계시는 운영체제가 2000 계열 또는 98계열이냐에 따라 날짜 포맷이 틀립니다. 그래서 전 2000에서는 1999-09-09 이러한 형태이구 98에서는 99-09-09 이러한 형태입니다. 물론 쿼리를 날리면 값을 제데로 가져오는덴 무리가 있겠져?
그리구 날짜를 구분하는 '-' 땜시 잘안되더라구여... 그래서 년월일을 copy명령을 써서 잘랐다가 붙였다가 하면서 쿼리를 날렸었는데... 그렇게 해결해보심이...