Q&A

  • DateTimePicker에 관한 질문입니다.
님들~
아시면 점 도와 주세여...벌써 몇일째인지..ㅜㅡ

   Sql:='Select * from GateO where IO = '+chr(39)+'O'+chr(39)+
        ' And CntrNo ='+Chr(39)+Hedit4.Text+Chr(39)+
        ' And CarNo ='+Chr(39)+Hedit6.Text+Chr(39)+
        ' And N1 ='+Chr(39)+Hedit11.Text+Chr(39)+
        ' And DATEHD ='+Chr(39)+dateEdit2.???    +Chr(39)+
        ' Order By REF DESC ';

     Dm.Query2.Active:=False;
     Dm.Query2.SQL.Clear;
     Dm.Query2.SQL.Add(Sql);
     Dm.Query2.Active:=True;

문제는 ???부분에 어케해야할지..
dateEdit2는여..TDateTimePicker입니다.
시간을 어떻게 불러내져?
        ' And DATEYMD ='+Chr(39)+DateEdit2.Time+Chr(39)+
        ' And DATEYMD ='+Chr(39)+DateEdit2.DateTime+Chr(39)+
        ' And DATEYMD ='+DateEdit2.Time+
        ' And DATEYMD ='+Chr(39)+'''DateEdit2.Time'''+Chr(39)+
다 안되네여
[Error] GateOut.pas(647): Incompatible types: 'String' and 'TTime'
<==이런 오류가 납니다..
어떻하죠?

님들 도와주세여~!!


4  COMMENTS
  • Profile
    래머 2003.02.13 02:43
    TimeToStr(DateEdit2.Time)로 하시면 될거예요.

    DateTimePicker의 형식을 String로 바꾸실려면

    TimeToStr을 이용하시면 됩니다. (시간일경우)


    즐프하세요. ^^

  • Profile
    정수지 2003.02.13 02:53



       Sql:='Select * from GateO where IO = '+chr(39)+'O'+chr(39)+
            ' And CntrNo ='+Chr(39)+Hedit4.Text+Chr(39)+
            ' And CarNo ='+Chr(39)+Hedit6.Text+Chr(39)+
            ' And N1 ='+Chr(39)+Hedit11.Text+Chr(39)+
            ' And DATEHM ='+Chr(39)+DATETOSTR(Hedit20.time)+chr(39)+
            ' Order By REF DESC ';

         Dm.Query2.Active:=False;
         Dm.Query2.SQL.Clear;
         Dm.Query2.SQL.Add(Sql);
         Dm.Query2.Active:=True;

      if Dm.Query2.RecordCount=0 then
         Begin
         MessageDlg('먼저 저장하고 송신준비를 하십시요', mtError, [mbOK], 0);
         Exit;
         end;


    님의 답변 고맙습니다..^^
    이와 답변해 주신거 한번 만 더~봐주세요!!

    님이 알려 주신대로 하니 아까 부분은 오류가 나지 않는데..밑에서 딱!걸렸네여
    " if Dm.Query2.RecordCount=0 then"<==이부분에 빨간줄 쫘~~악!!
    Type Mismatch in Expression이라는 오류가 생기는데 이건 어떻게 해결해야 하나요?
    알려주세여~!!!
  • Profile
    갈매기 2003.02.13 03:12
    close, open이 안보이네요....??
  • Profile
    래머 2003.02.13 03:09
    급하게 쓰느라 TimeTostr을 DateTostr로 썼네요..

    ^^

    TimeToStr(Hedit20.time)식으로 쓰셔야 하구요..

    날짜형식으로 값이 들어가서 에러가 나는거 같습니다.

    아..그리고 시간이 나오는 형식이 위와같은 경우는 오후 5:30:40

    머 이런식으로 나오는데..formatdatetime으로 형식을 정해주셔야할거같네요.

    FormatDateTime('hhmmss', Hedit20.time) 식으로..

    ('hhmmss' <- 이건 제가 임으로 준형식이구요. DB에 들어가는 시간형식대로 고쳐주셔야할듯합니다.)

    즐프하세요. 도움이 되시길. ^^