| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Путь к БД ! [D7]
Ded22 © (2006-04-27 13:20:00)День Добрый.
Связываюсь c БД Access через ADOConnection.
все нормально.
кинул на форму кнопку "Подключиться к базе" по которой написал код
begin
DataModule.ADOConnection1.Close;
if EditConnectionString(DataModule.ADOConnection1) then begin
DataModule.ADOConnection1.Connected:=true;
DataModule.ADOTable.Active:=true;
но если перенести Базу на другой диск то при запуске вылетает куча ошибок ! типа Поле такое то не найдено.жму Ок ок ок ок ок ок.
подключаюсь через кнопку и все работает.
вопрос - как исправить эти ошибки?
если я ADOConnect не привязываю к орпеделенной базе то при запуске выскакивает ошибка - НЕ ВЫПОЛНЕННА ПРОВЕРКА ПОДЛИННОСТИ !
что с этим делать?
IntruderLab (2006-04-27 17:02:00) [1]Я обычно вот такую процедурку использую при подключении БД
procedure DBConnect;
begin
if frmMain.sDBSettings <> '' then
begin
frmMain.adoc := TADOConnection.Create(Application);
frmMain.adoc.Connected := False;
frmMain.adoc.LoginPrompt := False;
frmMain.adoc.ConnectionString := frmMain.sDBSettings;
frmMain.adoc.Connected := True;
try
//некие действия
except end;
end
else begin
frmMain.sDBSettings := PromptDataSource(Application.Handle,'');
DBConnect;
end;
end;
MsGuns (2006-04-27 14:33:00) [2]1. В дизайне не должно быть открытых датасетов и, естественно, коннектов.
2. Для настройки на нужный путь в БД использовать одно из :
- инифайл, куда программа записывает указанный юзером путь к БД через меню "Настройка"
- источник данных ODBC
- udl-файл при доступе через OLEDB
3. При загрузке программы запустать сплэш, делающий попытку подсоединиться к БД с соответсвующим комментарием и, если БД нет, автоматически запускать форму "Настройка".
| |
