|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
 |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
25.09.2009, 10:31
|
||||
|
||||
Код:
try
TableDB.Active:=false;
TableDB.Close;
TableDB.TableName:=extractfilepath(Application.ExeName)+'DB\'+ComboBox2.Text+'.db';
TableDB.Open;
TableDB.Active:=true;
Except
ON E:EDBEngineError do showmessage('DB не найдена');
end; |
Комбинированный вид
