Q&A

  • 질문좀 드리고자합니다.
Procedure Tform1.BitBtn4Click (Sender: Tobject);// 해당테이블찾기
var
Input_Str : String;
begin
InPut_Str:= InputBox('찾을품명', '찾을 품명를입력하세요.   ', '');
  if Trim(Input_Str) <> ''Then
   begin
    AdoQuery1.Close;
    AdoQuery1.SQL.Clear ;
    AdoQuery1.SQL.Add ('Select * from  자재관리');
    AdoQuery1.SQL.add('where 품명 like :name1');
    Adoquery1.parameters.paramByname('name1').value := '%' + Input_Str + '%';
    AdoQuery1.open ;
   end;
찾는문장이 있으면 에러가나지 않는데..
찾고자하는 내용이 없으면 공백이 나오는데 다시저장을하기위해
  AdoQuery1.Close ;
위문장이 들어가면 에러가 납니다.
왜 그런지 답답하군요...
고수님들의 답변을 기대합니다
1  COMMENTS