Как загрузить Одновременно Таблицу и Картинку

У меня вопрос, Я сделал загрузку Таблицы на Форму, но как сделать так чтобы одновременно с ней загружалась и Картинка на форму. Например Имя Базы данных 123 и имя картинки 123 ? Как их загрузить одновременно по имени ?!

0

Из файла, что ли?

0

Из Файла ? Нет, у меня в папке лежит База данных access с именем 123 в которой одна таблица. Также в этой папке лежит Картинка с именем 123 и расширением bmp . Мне надо при открытие Бд , чтобы сразу открывалась и картинка.

0

Что значит нет, если у тебя bmp в файле?

0

Не так понял значит вас

0

И что не получается? Элемент для отображения картинок же умеет из файла загружать.

0

но не знаю как сделать загрузку по одинаковому имени
Вот загрузка БД

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
AnsiString ConStr, Path;
ConStr="Provider=Microsoft.Jet.OLEDB.4.0 ata Source=";
if(!OpenDialog1->Execute())return;
Path=OpenDialog1->FileName;
ConStr=ConStr+Path;
StatusBar1->Panels->Items[0]->Text=Path;
ADOConnection1->ConnectionString=ConStr;
ADOConnection1->Connected=true;
ADOConnection1->GetTableNames(ComboBox1->Items);
}

А вот загрузка картинки через кнопку:
void __fastcall TForm1::BitBtn4Click(TObject *Sender)
{
if(!OpenPictureDialog1->Execute())
{
Image2->Picture->LoadFromFile(OpenPictureDialog1->FileName);
}
}

Как сделать по имени и bmp файл я не понимаю

0

Ну перенеси эту строку загрузки в ту функцию, только имя файла явно укажи вместо OpenPictureDialog1->FileName.

0

Вы не поняли меня, мне надо так чтобы если я поменяю и возьму другую Бд с именем 323 то должна загрузится соответствующая ей картинка с именем 323. У меня к примеру 30 БД и для каждой есть своя картинка с названием соответствующей ей БД.

0

OpenDialog1->FileName - имя БД? Тогда бери его, меняй расширение на bmp и открывай.

0

void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
if(ADOConnection1->Connected==false)
{
MessageDlg("Сначала откройте БД",mtInformation,TMsgDlgButtons()<<mbOK ,0);
return;
}
if(ComboBox1->Text.Length()==0)
{
MessageDlg("Укажите таблицу!",mtError,TMsgDlgButtons()<<mbOK ,0);
return;
}
if(ADOTable1->Active==true)ADOTable1->Active==false;
ADOTable1->TableName=ComboBox1->Text;

ADOTable1->Active=true;
GetDBState();

if(!OpenPictureDialog1->Execute())
{
Image2->Picture->LoadFromFile(OpenPictureDialog1->TableName=ComboBox1->Text);
}
}

Почему он выдает ошибку?
[bcc32c Error] Unit1.cpp(73): no member named 'TableName' in 'Vcl::Extdlgs::TOpenPictureDialog'

0

У тебя же по-другому было в тот раз. А здесь что? Имя таблицы?

0

void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
if(ADOConnection1->Connected==false)
{
MessageDlg("Сначала откройте БД",mtInformation,TMsgDlgButtons()<<mbOK ,0);
return;
}
if(ComboBox1->Text.Length()==0)
{
MessageDlg("Укажите таблицу!",mtError,TMsgDlgButtons()<<mbOK ,0);
return;
}
if(ADOTable1->Active==true)ADOTable1->Active==false;
ADOTable1->TableName=ComboBox1->Text;
ADOTable1->Active=true;
GetDBState();

if( ComboBox1->Items->Strings[ComboBox1->ItemIndex]==ComboBox1->Text)
{
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName==ComboBox1->Text(".bmp"));
}
}

Я опять изменил немного код, изменяю в зависимости от результата(вот последняя версия думаю она близко подходит к моему результату ,но выдает ошибку )
Если не писать (".bmp") То выдает такое: Unknown picture file extension(.)
Если оставить (".bmp") или (.\\.bmp) то выдает это :type 'Vcl::Controls::TCaption' (aka 'System::UnicodeString') does not provide a call operator

0

1

Парень спасибо тебе больше, весь день ломал голову

0