Q&A

  • 블조회를 하여서...테이블이 없으면...다시조회하라는 메시지나오게하구싶어여
지가 if 문을 사용을 하여서...테이블을 조회해서...데이터가 없으면
다시 조회하라는 메시지를 내보내구 싶어여..어케하면 될까여

begin
  ADOQuery1.Close ;
  ADOQuery1.Open ;
  WITH   ADOQuery2 DO
    BEGIN
      CLOSE ;
      SQL.Clear ;
      sQL.Add('SELECT * FROM H04_INSA ');
      sQL.Add(Format('where  H04_EMPLNO like  ''%S''',[Edt_EMPLNO.text+'%']));
      Edit30.Text :=sql.Text ;
      OPEN;
      First ;
      while not(eof) do
        begin
          Edt_EMPLNO.Text := FieldByName('H04_EMPLNO').AsString;
          Edt_HNAMNA.Text := FieldByName('H04_HNAMNA').AsString;
          Edt_CNAMNA.Text := FieldByName('H04_CNAMNA').AsString;
          Edt_ENAMNA.Text := FieldByName('H04_ENAMNA').AsString;
          Edt_JUNORG.Text := FieldByName('H04_JUNORG').AsString;
          next ;
        end ;
    END ;
end;
4  COMMENTS
  • Profile
    백지연 2003.04.12 02:53
    쿼리 실행후 RecordCount < 1 이면 다시 조회하도록 메세지를
    뿌려주면 될것 같네요..
    그럼 즐프하세요~

  • Profile
    첨시작델 2003.04.12 03:11
  • Profile
    yosule 2003.04.12 20:06
    위의 내용대로 좀 만 생각하시면 될 것 같은데....-.-;

          
            if RecordCount < 1 then
            begin
               ShowMessage('조회 내용이 없습니다!');
               Exit;
            end;


    PS :
    Query를 Open과 동시에 Query 레코드 커서의 위치는 처음을 가리키므로
    위의 First를 생략해도 무방합니다.
  • Profile
    임성은 2003.04.14 09:37