Q&A

  • 이번에는 DataTimePicker에서...

하루에 질문 2~3개는 올리는거 같네요 ㅡㅡ;

도데체 우찌 풀어야 할지 몰라서여

게시판 찾아봐도 없는거 같구염

소스 보시면 대충 아실건데요

어떻게 해야할지 몰라서 제 맘대로 짠 소스입니다.

DateTimepicker1에는  TRUNC(SYSDATE,'D') + 1 값이

그라고 DateTimepicker2에는  TRUNC(SYSDATE)  값이 들어가게 하고

싶습니다.  

물론 쿼리도 파빌에서 잘 쓰던거구요..^^;

실행시키면 ORA-01745 호스트 바인드 변수명이 부적합 이라는 오류가

발생합니다..

어떻게 해야할지 답변 부탁드립니다.
=============================================================
procedure TForm1.FormCreate(Sender: TObject);
   var
  ls_start_date, ls_end_date : string;
begin
    With DM.Query6 do
   begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT TRUNC(SYSDATE,'D') + 1, TRUNC(SYSDATE) '
             +'INTO :ls_start_date, :ls_end_date '
             +'FROM DUAL ');
    open;
    first;
    DateTimepicker1.Date := strtodatetime(ls_start_date);
    DateTimepicker1.Date := strtodatetime(ls_end_date);
   end;
end;
2  COMMENTS
  • Profile
    고지범 2002.08.31 02:56
    아마...  :ls_start_date 부분이 문제가 되는 듯 한데요...
    쩝 지가 디비가 약해서리...
    : 들어가면 Parameter로 인식되는 거 아닌가요?
    근데 거기다가 변수명 적어주시믄...쩌비...

    코드를 약간 고쳐서 아래와 같이 하심...??
       with Query1 do begin
          Active := FALSE;
          SQL.Clear;
          SQL.Add('SELECT TRUNC(SYSDATE,''D'') + 1 , ' +
                        '             TRUNC(SYSDATE)               ' +
                        'FROM DUAL ');
          Active := TRUE;
          if not Eof then begin
             DateTimepicker1.Date := Fields[0].AsDateTime;
             DateTimepicker2.Date := Fields[1].AsDateTime;
          end;
       end;
    디비는 오라클 8i이구요... 잘 올라오는 군요...
  • Profile
    김상수 2002.08.31 03:51

    답변 정말 감사드리구요...

    하나만 더 물어볼께염

                                                         (with ~do)
                      

    허접에 길은 멀고도 험하군요...

    부탁드립니다.