Удаление записи из таблицы

@mojohead · Регистрация: 15.05.2011

Author24 — интернет-сервис помощи студентам

помогите решит проблему удаления из таблицы данных
вот нашол нафоруме
Я тебе могу предложить как я делаю

Код

	 
 if(MainForm->ADOQuery1->RecordCount !=0)
     {
         AnsiString ds = "Вы деиствительно хотите удалить выбранную строку? \n\n" + IntToStr(ADOQuery1->FieldByName("Invent_Number")->AsInteger)+" - "+ADOQuery1->FieldByName("Number_in_Lan")->AsString+" - "+ADOQuery1->FieldByName("Department")->AsString+" - "+ADOQuery1->FieldByName("Processor")->AsString+" - "+ADOQuery1->FieldByName("Memory")->AsString+" - "+ADOQuery1->FieldByName("HDD")->AsString+" - "+ADOQuery1->FieldByName("Room")->AsString;
     if (Application->MessageBox(ds.c_str(),"Подтверждение удаления строки из базы данных",MB_YESNO +MB_TOPMOST+ MB_ICONQUESTION)!=IDYES)
     {
         Abort();
     }
     else
 
      if(DBGrid1->SelectedRows->Count > 0)
     {
         ADOQuery1->DisableControls();
         int curItem = ADOQuery1->RecNo;
         ADOQuery1->First();
         while(!ADOQuery1->Eof)
     {
     if(DBGrid1->SelectedRows->CurrentRowSelected)
     {
         ADOQuery1->Delete();
     }
    else
     {
         ADOQuery1->Next();
     }
     }
        DBGrid1->SelectedRows->Clear();
        if(ADOQuery1->RecordCount > 0)
     {
        if(curItem > ADOQuery1->RecordCount)
     {
        ADOQuery1->Last();
     }
    else
    {
        ADOQuery1->RecNo = curItem;
        DBGrid1->SelectedRows->CurrentRowSelected = true;
    }
    }
     ADOQuery1->EnableControls();
    }

я вроде его адаптировал немного выдаёт сообщение типа вы хотит удалить такуюто строчку жму ок но ничего не происходит запись не удаляется но и ошибок никаких если можете помогите

@Sasha · 15.06.2011, 10:09

Этот код был предназначен для удаления нескольких строк
Поэтому сделай, в свойствах Грида так чтобы можно было выделять полностью строку и возможность выделять одну строку, а много строк.

C++

 
void __fastcall TMainForm::DelString()
{
if(MainForm->ADOQuery1->RecordCount !=0)
     {
         AnsiString ds = "Âû äåèñòâèòåëüíî õîòèòå óäàëèòü âûáðàííóþ ñòðîêó? \n\n" + IntToStr(ADOQuery1->FieldByName("Invent_Number")->AsInteger)+" - "+ADOQuery1->FieldByName("Number_in_Lan")->AsString+" - "+ADOQuery1->FieldByName("Department")->AsString+" - "+ADOQuery1->FieldByName("Processor")->AsString+" - "+ADOQuery1->FieldByName("Memory")->AsString+" - "+ADOQuery1->FieldByName("HDD")->AsString+" - "+ADOQuery1->FieldByName("Room")->AsString;
     if (Application->MessageBox(ds.c_str(),"Ïîäòâåðæäåíèå óäàëåíèÿ ñòðîêè èç áàçû äàííûõ",MB_YESNO +MB_TOPMOST+ MB_ICONQUESTION)!=IDYES)
     {
         Abort();
     }
     else
 
      if(DBGrid1->SelectedRows->Count > 0)
     {
         ADOQuery1->DisableControls();
         int curItem = ADOQuery1->RecNo;
         ADOQuery1->First();
         while(!ADOQuery1->Eof)
     {
     if(DBGrid1->SelectedRows->CurrentRowSelected)
     {
         ADOQuery1->Delete();
     }
    else
     {
         ADOQuery1->Next();
     }
     }
        DBGrid1->SelectedRows->Clear();
        if(ADOQuery1->RecordCount > 0)
     {
        if(curItem > ADOQuery1->RecordCount)
     {
        ADOQuery1->Last();
     }
    else
    {
        ADOQuery1->RecNo = curItem;
        DBGrid1->SelectedRows->CurrentRowSelected = true;
    }
    }
     ADOQuery1->EnableControls();
    }
}
}
//---------------------------------------------------------------------

@MsGuns · 15.06.2011, 11:02

Приведенный код (оба вообще-то, т.к. сущность у обоих одинаковая) - пример того, как НЕЛЬЗЯ удалять записи. Криминала тут валом.
Два основных (каждый тянет на "вышку"):
1. Использование RecNo в качестве идентификатора удаляемых записей - уже преступление ! Сколько раз повторять железное правило:

PureBasic

1	ИСПОЛЬЗОВАТЬ RECNO и RECORDCOUNT КРАЙНЕ ОСТОРОЖНО, НИ В КОЕМ СЛУЧАЕ НЕ ПОЛАГАЯСЬ НА ИХ ДОСТОВЕРНОСТЬ !

Например, для вывода внизу грида текста типа "Запись nnn из mmmm",
Ан нет ! Народ упрямо лезет сослепу в эту кучу свежего г..на, где к тому же еще лежат вилы, капкан и пара грабель ! Виват "славным" учителям или как ?
2. Выделение строк средствами стандартного DBGrid смерти подобно. Точнее выделяить можно конечно, но следует помнить, что при любом изменении в составе и порядке записей рекордсета (удаление и добавление, понятное дело - это именно изменене в составе) приводит к потере валидости букмарок, с помощью которых грид "метит" выделенные записи. А уж делать удаление по этим букмаркам - все равно что на улице нарисовать в витрине магазина цель и пальнуть в нее из дробовика - скоко при этом ляжет народу, с дуру "шоппингующего" в этом маркете, одному всевышнему известно ! И вообще выделение строк не следует делать штатными средствами TDBGrid потому, что оно реализовано крайне глюкаво (во-первых только подряд, во-вторых любой клик на сетке отменяем выделенную и т.д.), а если уж делать, так грамотно, используя технологию визуального выделения (чекбоксы в спец колонке, иной цвет, обязательно возможность отображения только выделенных, использование в качестве указателей на выделенные записи их UID, выполнение удаления в контексте транзакции (или все или ни одной !) и т.д.) Короче, голову нао использовать, господа, а не только глаза и руки.

	15.06.2011, 11:02

Опции темы

Удаление записи из таблицы

Решение