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 ;
위문장이 들어가면 에러가 납니다.
왜 그런지 답답하군요...
고수님들의 답변을 기대합니다
패치문제더군요..
자료실에서패치 를까니까 잘되네요..
감사...