![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() База данных не хочет работать на других компьютерах, выдаёт сообщение:
Без имени-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. |
#2
|
||||
|
||||
![]() Мб на тех машинах нужно сервер субд поднимать. Ну или Dll ки какие подкинуть от нее к экзешнику.
Кстати, как там с наличием базы по указанному пути?) Последний раз редактировалось anonymous, 14.06.2011 в 09:41. |
#3
|
|||
|
|||
![]() База на месте, переписал вот так и работает, но проект пришлось заново создать.
![]() Код:
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; end; Последний раз редактировалось Admin, 19.06.2011 в 14:34. |