TYLLlKAH
Зарегистрирован: 12.07.2005 Сообщения: 27 Откуда: Vidnoe
|
Добавлено: Вт Июл 12 2005 10:40 Заголовок сообщения: |
|
|
Уважаемый kambi
Цитата: |
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Projects\ServerDB\DB\db.mdb;Mode=ReadWrite|Share Deny |
крайне не корректно, в том смысле что для локальных баз данных (MS Access, Paradox, DB2) сатический путь крайне накладен в том смысле если не радивый заказчик мановение мыши перетащит папку с программой куда - либо, она(программа) просто перестанет функцианировать. У всех продуктов корпарации Borland есть такой идентификато входящих пораметров программы ParamStr(Index), вместо Index ставиться какое либо int значение, например ParamStr(0) вернёт полный путь и имя исполняемого модуля. изходя из этого можно написать такую конструкцию:
Код: |
procedure TForm1.DBINIT;
var s:string;
begin
s:=ExtractFilePath(ParamStr(0))+'\db\db.mdb';
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+s;
ADOConnection1.LoginPromt:=false;
ADOConnection1.Connected:=true;
end;
|
пардон что на обджект паскале, но для выржения основной мысли моего сообщения хватит.
Может не совсем по субжекту, но предупредит следующий вопрос _________________ Чуваки языком молотить, не мешки ворочить |
|