Привет!!!
Помогите мне с программой, будто ничего сложно но не работает
такая задача есть таблица базы данних Accsses с полями Название, Номер_групы ...
мне нужно сделать чтобы ко всем числам записей поля "Номер_групы" 
добавлялось число 100, а затем проверялось условие, если это чило >=500, то данный 
запись удалялась..
 
мой текст программы...исправьте что нетак

DataModule7->ADODataSet3->First();
 while (DataModule7->ADODataSet3->Eof==false)
 {
DataModule7->ADODataSet3->Edit();
DataModule7->ADODataSet3->FieldByName("Номер_групы")->AsInteger=StrToInt(DataModule7->ADODataSet3->FieldByName("Номер_групы")->AsInteger+100);
DataModule7->ADODataSet3->Post();
if(DataModule7->ADODataSet3->FieldByName("Номер_групы")->AsInteger >=500)
 DataModule7->ADODataSet3->Delete();
DataModule7->ADODataSet3->Next();
}


второй вариант:


DataModule7->ADODataSet3->First();
 while (DataModule7->ADODataSet3->Eof==false)
 {
DataModule7->ADODataSet3->Edit();
DataModule7->ADODataSet3->FieldByName("Номер_групы")->AsInteger=StrToInt(DataModule7->ADODataSet3->FieldByName("Номер_групы")->AsInteger+100);
DataModule7->ADODataSet3->Post();
DataModule7->ADODataSet3->Next();
}

DataModule7->ADODataSet3->First();
 while (DataModule7->ADODataSet3->Eof==false)
 {
 if(DataModule7->ADODataSet3->FieldByName("Номер_групы")->AsInteger >=500)
 DataModule7->ADODataSet3->Delete();
 DataModule7->ADODataSet3->Next();
 }

оба варианта добавляют к записям хорошо, а вот удаляют..не все.., например есть 8-семь записей которые отвечают условию >=500, то видаляет за первый раз
половину 4-тиры.., потом 2-ва и т.д..
   

Модератор: Название темы должно отражать ее суть!

Power_Lifter, обязательно использовать DataSet?

думаю да...а как по другому?, а что плохого в ADODataSet?

Все тему можно закрывать..!, я сам нашел ошибку всьо было гуд., только нехватало одново else
    

DataModule7->ADODataSet3->First();
 while (DataModule7->ADODataSet3->Eof==false)
 {
DataModule7->ADODataSet3->Edit();
DataModule7->ADODataSet3->FieldByName("Номер_групы")->AsInteger=StrToInt(DataModule7->ADODataSet3->FieldByName("Номер_групы")->AsInteger+100);
DataModule7->ADODataSet3->Post();
DataModule7->ADODataSet3->Next();
}

DataModule7->ADODataSet3->First();
 while (DataModule7->ADODataSet3->Eof==false)
 {
 if(DataModule7->ADODataSet3->FieldByName("Номер_групы")->AsInteger >=500)
 DataModule7->ADODataSet3->Delete();
else
 DataModule7->ADODataSet3->Next();
 }

Power_Lifter, темы закрывают, только при нарушениях. В случаях нахождения решения, вопрос помечается решенным создателем темы.