Редактирование фото в Базе данных
Здравствуйте!
Есть база данных,Table1,DataSource1,DBGrid1 и DBImage1 - это на Form1. Для редактирования базы вылетает Форма2, в которой есть Editы и DBImage1(связан с таблицей1, которая на 1-ой форме).
Необходимо заменить или добавить фото. Делаю так:
void __fastcall TForm2::N1Click(TObject *Sender)
{
if(Form2->OpenPictureDialog1->Execute())
{
Form2->DBImage1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
Form2->DBImage1->CopyToClipboard();
Form2->DBImage1->PasteFromClipboard();
}
}
В форме2 фото появляется, но при переходе на другуу запись фото пропадает, то есть в базу не попадает.
Таблица по умолчанию ReadOnly=true;
Что делать подскажите!!
Заранее благодарен!
Есть база данных,Table1,DataSource1,DBGrid1 и DBImage1 - это на Form1. Для редактирования базы вылетает Форма2, в которой есть Editы и DBImage1(связан с таблицей1, которая на 1-ой форме).
Необходимо заменить или добавить фото. Делаю так:
void __fastcall TForm2::N1Click(TObject *Sender)
{
if(Form2->OpenPictureDialog1->Execute())
{
Form2->DBImage1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
Form2->DBImage1->CopyToClipboard();
Form2->DBImage1->PasteFromClipboard();
}
}
В форме2 фото появляется, но при переходе на другуу запись фото пропадает, то есть в базу не попадает.
Таблица по умолчанию ReadOnly=true;
Что делать подскажите!!
Заранее благодарен!
Извиняюсь, но добавить фото у меня получилось, а вот чё-то удалить не получилось?:
void __fastcall TForm2::N2Click(TObject *Sender)
{
Table1->Edit();
Form2->DBImage1->CutToClipboard();
Table1->Post();
}
Что делать подскажите!!
Заранее благодарен!
void __fastcall TForm2::N2Click(TObject *Sender)
{
Table1->Edit();
Form2->DBImage1->CutToClipboard();
Table1->Post();
}
Что делать подскажите!!
Заранее благодарен!