Q&A

  • 기간 조회하는 부분...
먼저..기간별 조회를 하려고 하거든요~

지금은 기간 하나만은 가지고 검색은 됩니다..

쿼리를 어떻게 써야 언제부터 언제까지...라는 조회가 가능한지 궁금해서요~procedure



TfrmAdmin.btnSearch2Click(Sender: TObject);

var

sId, sDate, sInTime, sOutTime, sTotal, sNote : String;

sSql : String;

begin

sDate := txtFind.text;

sId := txtId.Text;

if trim(sid) <> '' then

begin

sSql := ' Select Id, Date, InTime, OutTime, OtherTime, Total '

+ ' From Pay'

+ ' where Id = '

+ '"'+sid+'"'

+ ' and Date like '

+ '"'+sDate+'%"';



cnQueryExe(Query2, sSql);

end;



지금 이상태에서 어떻게 쿼리를 해야..

~부터 ~까지의 기간 조회가 되는건가요?

고수님들..알려주세요~ ^^

4  COMMENTS
  • Profile
    기냥지나가다 2001.05.15 06:22
    진짜초보 wrote:

    > 먼저..기간별 조회를 하려고 하거든요~

    > 지금은 기간 하나만은 가지고 검색은 됩니다..

    > 쿼리를 어떻게 써야 언제부터 언제까지...라는 조회가 가능한지 궁금해서요~procedure

    >

    > TfrmAdmin.btnSearch2Click(Sender: TObject);

    > var

    > sId, sDate, sInTime, sOutTime, sTotal, sNote : String;

    > sSql : String;

    > begin

    > sDate := txtFind.text;

    > sId := txtId.Text;

    > if trim(sid) <> '' then

    > begin

    > sSql := ' Select Id, Date, InTime, OutTime, OtherTime, Total '

    > + ' From Pay'

    > + ' where Id = '

    > + '"'+sid+'"'

    > + ' and Date like '

    > + '"'+sDate+'%"';

    >

    > cnQueryExe(Query2, sSql);

    > end;

    >

    > 지금 이상태에서 어떻게 쿼리를 해야..

    > ~부터 ~까지의 기간 조회가 되는건가요?

    > 고수님들..알려주세요~ ^^







    With Query1 do

    Begin

    Sql.Close;

    Sql.Clear;

    Sql(" Select * From PAY ")

    Sql(" Where DATE >= :Date1 ")

    Sql(" And DATE <= :Date2 ")

    ParamByName('Date1").AsString := Edit1.Text;

    ParamByName('Date2").AsString := Edit2.Text;

    Open;

    end



    이런식으로 해보세요....













  • Profile
    진짜초보 2001.05.15 16:08
    기냥지나가다 wrote:

    > 진짜초보 wrote:

    > > 먼저..기간별 조회를 하려고 하거든요~

    > > 지금은 기간 하나만은 가지고 검색은 됩니다..

    > > 쿼리를 어떻게 써야 언제부터 언제까지...라는 조회가 가능한지 궁금해서요~procedure

    > >

    > > TfrmAdmin.btnSearch2Click(Sender: TObject);

    > > var

    > > sId, sDate, sInTime, sOutTime, sTotal, sNote : String;

    > > sSql : String;

    > > begin

    > > sDate := txtFind.text;

    > > sId := txtId.Text;

    > > if trim(sid) <> '' then

    > > begin

    > > sSql := ' Select Id, Date, InTime, OutTime, OtherTime, Total '

    > > + ' From Pay'

    > > + ' where Id = '

    > > + '"'+sid+'"'

    > > + ' and Date like '

    > > + '"'+sDate+'%"';

    > >

    > > cnQueryExe(Query2, sSql);

    > > end;

    > >

    > > 지금 이상태에서 어떻게 쿼리를 해야..

    > > ~부터 ~까지의 기간 조회가 되는건가요?

    > > 고수님들..알려주세요~ ^^

    >

    >

    >

    > With Query1 do

    > Begin

    > Sql.Close;

    > Sql.Clear;

    > Sql(" Select * From PAY ")

    > Sql(" Where DATE >= :Date1 ")

    > Sql(" And DATE <= :Date2 ")

    > ParamByName('Date1").AsString := Edit1.Text;

    > ParamByName('Date2").AsString := Edit2.Text;

    > Open;

    > end

    >

    > 이런식으로 해보세요....

    >

    >

    >

    > 그런데...

    문제는 pay라는 테이블에서..조회한 사람..그러니까..즉

    죄회된 아이디 한하는 사람의 기간을 조회해야 하거든요~

    여기엔 그 부분이 빠진 듯 해서..

    위 코드를 약간 응용해서..돌렸는데..

    sql문에서 에러가 나는군요~



    답변 감사하고,,.

    혹 시간이 된다면 다시 한번 올려주세요~ ^^



    감사합니다~

    >

    >

  • Profile
    나그네 2001.05.15 16:22
    Date1, Date2필드가 TDateTime형이라면 paramByName('Date1').AsDateTime := xxxxx; 처럼 해보세요



    xxxx는 물론 TDateTime형이어야 겠죠



    진짜초보 wrote:

    > 기냥지나가다 wrote:

    > > 진짜초보 wrote:

    > > > 먼저..기간별 조회를 하려고 하거든요~

    > > > 지금은 기간 하나만은 가지고 검색은 됩니다..

    > > > 쿼리를 어떻게 써야 언제부터 언제까지...라는 조회가 가능한지 궁금해서요~procedure

    > > >

    > > > TfrmAdmin.btnSearch2Click(Sender: TObject);

    > > > var

    > > > sId, sDate, sInTime, sOutTime, sTotal, sNote : String;

    > > > sSql : String;

    > > > begin

    > > > sDate := txtFind.text;

    > > > sId := txtId.Text;

    > > > if trim(sid) <> '' then

    > > > begin

    > > > sSql := ' Select Id, Date, InTime, OutTime, OtherTime, Total '

    > > > + ' From Pay'

    > > > + ' where Id = '

    > > > + '"'+sid+'"'

    > > > + ' and Date like '

    > > > + '"'+sDate+'%"';

    > > >

    > > > cnQueryExe(Query2, sSql);

    > > > end;

    > > >

    > > > 지금 이상태에서 어떻게 쿼리를 해야..

    > > > ~부터 ~까지의 기간 조회가 되는건가요?

    > > > 고수님들..알려주세요~ ^^

    > >

    > >

    > >

    > > With Query1 do

    > > Begin

    > > Sql.Close;

    > > Sql.Clear;

    > > Sql(" Select * From PAY ")

    > > Sql(" Where DATE >= :Date1 ")

    > > Sql(" And DATE <= :Date2 ")

    > > ParamByName('Date1").AsString := Edit1.Text;

    > > ParamByName('Date2").AsString := Edit2.Text;

    > > Open;

    > > end

    > >

    > > 이런식으로 해보세요....

    > >

    > >

    > >

    > > 그런데...

    > 문제는 pay라는 테이블에서..조회한 사람..그러니까..즉

    > 죄회된 아이디 한하는 사람의 기간을 조회해야 하거든요~

    > 여기엔 그 부분이 빠진 듯 해서..

    > 위 코드를 약간 응용해서..돌렸는데..

    > sql문에서 에러가 나는군요~

    >

    > 답변 감사하고,,.

    > 혹 시간이 된다면 다시 한번 올려주세요~ ^^

    >

    > 감사합니다~

    > >

    > >

  • Profile
    명탁 2001.05.15 18:51
    Select * From PAY Where DATE between :date1 and :data2