|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Загрузить базу сделаную в DataBase Desktop с любого компьютера
База данных не хочет работать на других компьютерах, выдаёт сообщение:
Без имени-2.jpg Код:
procedure TForm1.FormCreate(Sender: TObject); begin if form1.Table1.Active=true then form1.Table1.Active:=false; if form1.Table2.Active=true then form1.Table2.Active:=false; begin with Session do begin ConfigMode := cmSession; try { Если файл данных находиться в том же каталоге, что и выполняемый файл программы, то в программе путь к файлу данных может быть получен из командной строки при помощи функции ExtractFilePath(ParamStr(0)). В приведенном примере файл данных находиться в подкаталоге DATA каталога программы. } // создадим временный псевдоним для базы данны AddStandardAlias( 'Base', 'd:\program1\Database\','PARADOX'); s1:='d:\program1\Database\'+ 'db.db'; /// записать путь к БД s2:='d:\program1\Database\'+ 'db1.db'; /// записать путь к БД k:=''''; Table1.TableName:='DB.db' ; Table2.TableName:='DB1.db' ; Table1.DatabaseName:='Base' ; Table2.DatabaseName:='Base' ; Query1.SQL.Clear; query1.SQL.Add('select login from ' +k+s1+k); Query1.Active := True; Query2.SQL.Clear; query2.SQL.Add('select parol from ' +k+s1+k); Query2.Active := True; Table1.Active := True; // откроем базу данных Table2.Active := True; finally ConfigMode := cmAll; end; end; form1.Editcombo; end; Помогите ПЛИЗ! Защита диплома 17.06.11!!! Последний раз редактировалось lmikle, 12.06.2011 в 19:54. |