База данных
Доброго времени суток.
Может кто поможет....
У программа, которая работает с базой данных.
Вопрос следующий:
Есть кнопки [как ни странно:)]
у кнопки "добавить" идет следующий обработчик:
{
Form3->Visible=true;
Form3->Fam->Text="";
Form3->Nam->Text="";
Form3->Ott->Text="";
Form3->Phone->Text="";
Form3->Mail->Text="";
Form3->Date->Text="1980";
Form3->Addr->Clear();
//Form3->Photo->Picture="";
}
Он очищает все поля. Заполняешь поля, жмешь "сохранить" (InsertRecord) все добавляется, повторяешь операцию 2,3,4,... все в порядке.
Потом жмешь "удалить"
Table1->Delete();
Жмешь снова "Добавить", потом "сохранить" выскакивает ошибка
Record/Key Deleted
То есть после удаления она никого сохранять не хочет в базу пока не перезапустишь прогу.
Что делать, подскажите...
P.S. кстати подскажите как сохранять изменения в существующей записи. А то у Архангельского про это ничего не нашел
Может кто поможет....
У программа, которая работает с базой данных.
Вопрос следующий:
Есть кнопки [как ни странно:)]
у кнопки "добавить" идет следующий обработчик:
{
Form3->Visible=true;
Form3->Fam->Text="";
Form3->Nam->Text="";
Form3->Ott->Text="";
Form3->Phone->Text="";
Form3->Mail->Text="";
Form3->Date->Text="1980";
Form3->Addr->Clear();
//Form3->Photo->Picture="";
}
Он очищает все поля. Заполняешь поля, жмешь "сохранить" (InsertRecord) все добавляется, повторяешь операцию 2,3,4,... все в порядке.
Потом жмешь "удалить"
Table1->Delete();
Жмешь снова "Добавить", потом "сохранить" выскакивает ошибка
Record/Key Deleted
То есть после удаления она никого сохранять не хочет в базу пока не перезапустишь прогу.
Что делать, подскажите...
P.S. кстати подскажите как сохранять изменения в существующей записи. А то у Архангельского про это ничего не нашел
Цитата:
Originally posted by JinPo
Привет. Проверь, есть ли вызов
Table1->Post();
после удаления, после добавления и др. операций с базой.
А изменение :
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Table1->Append();
Table1->FieldValues["ALPHANUMERIC"] = Edit1->Text;
Table1->FieldValues["INTEGER"] = StrToInt(Edit2->Text);
Table1->Post();
} // прямо из Help'а замечательного Borland'а
8)