Скачать: CL | DM;

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

← →
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]

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

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

---

← →
Desdechado ©   (2006-03-26 19:52) [5]

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";

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.036 c