Access에서 데이타 key code가 2중 된데이타 지울려고 하는데요
자꾸 에라가 나서요
지우면 아래 메세지 가 자꾸 나와서래 안지워짐.
메세지 : Multiple Records found, But only one was expected
1.삭제방법 1
tbldel := TTable ;
tbldel.Delete ;
2. 삭제방법 2
delete from taxmast where code='0000' ;
<추심>
access 프로그램 에서 테이블띄워놓고 삭제하면 됨.
프로그램 에서 삭제 할구 있는 방법을 알고 싶음
예) Table 명 : taxmast 이고 code 가 중복인 데이타 삭제
procedure Form1.ErrCodeCheck;
var
sql1, sql2, sql3 : TQuery;
temp_ID : Integer;
begin
sql1 := TQuery.Create;
sql2 := TQuery.Create;
sql3 := TQuery.Create;
with sql1 do
if active then close;
Database := '';
sql.add('select code from taxmast group by code ordery by code');
open;
end;
while not sql1.eof do
begin
with sql2 do
begin
if active then close;
DataBase := '';
sql.add('select * from taxmast where code = :a1');
parambyname('a1').asinteger := sql1.fieldbyname('a1').asinteger;
open;
if RecordCount > 1 then begin
if sql3.active then sql3.close;
DataBase := '';
sql3.sql.add('delete taxmast where code=:a1 and name=:a2');
sql3.parambyname('a1').asinteger := fieldbyname('code').asinteger;
sql3.parambyname('a2').asstring := fieldbyname('name').asstring;
sql3.execsql;
end;
end;
end;
end;