Програмноя Установка пути к базе

← →
anubis © (2006-03-26 15:42) [0]

не могу програмно прописать путь к ADOConect
Нужно чтоб путь был не конкретный ("С:\АМБ\БД\BD.mdb ")
а относительный ("БД\BD.mdb")
Как сделать

← →
Alarm © (2006-03-26 16:22) [1]

В чем глубокий смысл? И как быть, если ("БД\BD.mdb") на компьютере туева хуча?

← →
anubis © (2006-03-26 16:29) [2]

Alarm © (26.03.06 16:22) [1] В чем глубокий смысл? И как быть, если ("БД\BD.mdb") на компьютере туева хуча?
а по делу можно не будет на компе куевы тучи

относительный ("БД\BD.mdb") я имел в виду что это нах. в каталоге прграмы!

← →
Alarm © (2006-03-26 17:03) [3]

Если в каталоге программы, то можно просто BD.mdb
Или function ExtractFilePath(const FileName: string): string;

← →
ViktorZ © (2006-03-26 17:42) [4]

> не могу програмно прописать путь к

В чем прописать?

IncludeBackSlash(ExtractFilePath(Application.ExeName))+"БД\BD.mdb"

← →
Kley (2006-03-27 09:27) [6]

anubis © (26.03.06 15:42)
не могу програмно прописать путь к ADOConect
Нужно чтоб путь был не конкретный ("С:\АМБ\БД\BD.mdb ")
а относительный ("БД\BD.mdb")
Как сделать
uses IniFiles
const sIniFileName: String = "Connect.ini";
...
var
DBPathName: string;
begin
with TIniFile.Create(ExtractFilePath(ParamStr(0)) + sIniFileName) do
try
WriteString("DefDB", "DefDBStr", sFileNameEdit1.Text);
finally
Free;
end;
with TIniFile.Create(ExtractFilePath(ParamStr(0)) + sIniFileName) do
try
DefDBStr := ReaDString("DefDB", "DefDBStr", "");
sFilenameEdit1.Text := DefDBStr;
finally
Free;
end;
if sFilenameEdit1.Text="" then
if Application.MessageBox(PChar("Не указан путь к БД "), "Внимание!!!", MB_OK)=id_OK then
begin
sFilenameEdit1.SetFocus;
exit;
end;
// Datamodule2.ADOConnection1.Connected:=false;
DBPathName := sFilenameEdit1.Text;
Datamodule2.ADOConnection1.ConnectionString:="Provider=Microsoft.Jet.OLEDB.4.0;" +
"Data Source="+dbpathname+";"+
"Persist Security Info=False;"+
"User ID=Admin;"+
"Jet OLEDB:Database password=1973";
//"Mode=ReadWrite;"+
Datamodule2.ADOConnection1.Connected:=true;
datamodule2.BuxTable.Connection:= datamodule2.ADOConnection1;
datamodule2.BuxTable.TableName:="bux";

Програмноя Установка пути к базе Найти похожие ветки