Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Програмноя Установка пути к базе [D7, ADO+Access]

anubis © (2006-03-26 15:42:00)
не могу програмно прописать путь к ADOConect
Нужно чтоб путь был не конкретный ('С:\АМБ\БД\BD.mdb ')
а относительный ('БД\BD.mdb')
Как сделать

Kley (2006-03-27 09:27:00) [1]
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';

Desdechado (2006-03-26 19:52:00) [2]
IncludeBackSlash(ExtractFilePath(Application.ExeName))+'БД\BD.mdb'

ViktorZ (2006-03-26 17:42:00) [3]

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

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

Alarm (2006-03-26 17:03:00) [4]
Если в каталоге программы, то можно просто BD.mdb
Или function ExtractFilePath(const FileName: string): string;

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

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

Alarm (2006-03-26 16:22:00) [6]
В чем глубокий смысл? И как быть, если ('БД\BD.mdb') на компьютере туева хуча?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »