초보 델 wrote:

> if조건이 맞으면 쿼리를 실행하구 그렇지 않으면 메세지를 보여주어야 하는데..

> else 구문에서 계속해서 에러가 나네요..

> 그리고 이 문법이 맞는지 모르겠네요..

> 고수님들의 한수 부탁드립니다.

>

> 소스 입니다.

> ----------------------------------------------------------------

>

> if (DateTimeToStr(ft) < DateTimeToStr(ft2)) then

> //ShowMessage('현재시간이 크군요 인서트를 해야죠: ' + DateTimeToStr(ft2))



begin //추가

>

> With Query2 do

> begin

> Close;

> SQL.Clear;

> SQL.Add('INSERT INTO SEND_T (UPTIME, CALLNO, SONG_CODE) VALUES');

> SQL.Add('(:p_UPTIME, :p_CALLNO, :p_SONG_CODE)');

> ParamByName('p_UPTIME').Value := ft2;

> ParamByName('p_CALLNO').AsString := Query1.FieldByname('phone_number').AsString;

> ParamByName('p_SONG_CODE').AsString := Query1.FieldByname('song_number').AsString;

> ExecSql;

end;



> //2.이부분은 새로 추가한건 데요..

> //쿼리1에서 인서트 된것들은 Send_Mark라는 필드를 0으로 Update 하려하거든용..

> //이게 맞는건지는 모르겠어요..

> With Query2 do

> begin

> Close;

> SQL.Clear;

> SQL.Add('update ' +Edit1.Text+ ' SET SEND_MARK=0');

> SQL.Add('WHERE idx = :p_IDX');

> ParamByName('p_IDX').AsInteger := Query1.FieldByname('idx').AsInteger;

> ExecSql;

end; //추가





end

> else

begin

> ShowMessage('현재시간이 작군요 인서트를 하면 안되는뎅.. ');

> end;

>

> ---------------------------------------------------------------------------

답변 감사드립니다.



아직 부족한 것이 많아서...

많은 도움이 되었습니다.

감사합니다.