같은이름이 여러개 있는 데이터베이스에서 특정이름을 지우는 소스입니다.
같은이름이 너뎃개 있을경우 꼭 같은 레코드중에 한개를 남기고 다지웁니다.
도대체 왜이런지 알수가 없읍니다.
잘아시는 분들의 도움바랍니다.
mainform.table1.open;
mainform.table1.first;
while mainform.table1.Eof=False do
begin
if Joomoon_Form.customer_name.Text = mainform.table1.FieldByName('name').AsString then
begin
mainform.table1.delete;
end;
mainform.table1.next;
end;
mainform.table1.close;
mainform.table1.open;
mainform.table1.first;
while mainform.table1.Eof=False do
begin
if Joomoon_Form.customer_name.Text = mainform.table1.FieldByName('name').AsString then
begin
mainform.table1.delete;
// 삭제하면 자동으로 밑의 레코드가 올라옴
end
else
mainform.table1.next;
end;
mainform.table1.close;
////////////////////////////////