procedure TForm1.btn_saveClick(Sender: TObject);
begin
    with Query1, SQL do begin
      Close;
      Clear;
      Add(' SELECT * FROM emp WHERE empno = :empno');
      ParamByName('empno').AsString := Edit_empno.Text;
      Open;
      if RecordCount > 0 then
      begin
        Clear;
        Add(' UPDATE emp ');
        Add(' SET   empno = :empno, ename = :ename ');
        Add(' WHERE empno = :empno ');
      end
      else
      begin
        Clear;
        Add(' INSERT INTO emp(ename, empno) ');
        Add(' VALUES (:empno, :ename)');
      end;
      ParamByName('empno').AsString := Edit_empno.Text;
      ParamByName('ename').AsString := Edit_ename.Text;
      ExecSQL;
      Close;
      Open;
      Clear;
    end; // with
end;
////////////////////////////
error creating cursor handle 이란 에러 메시지가 뜨는데.. 뭐가 잘못된건지 
모르겠습니다.
			 
	
	
    
    
	
	
    
    
    
MyRecordCount: Integer; <--- 레코드 카운트 담을 변수
MyRecordCount := RecordCount;
Close;
if MyRecordCount > 0 then
// Close;
요표시 ">" 가 없는 부분만 수정 했는데.....이렇게 함 해보세요....
결론은 ExecSQL 하기전에 Close 상태에서 해야 하는데...그렇지 않아서
그런겁니다...
그럼....즐건 하루...^^;;