Как изменить свойство ADOConnection1.ConectionString через edit или каким нибуть другим путем - БД в Delphi

xsaroo · 14.10.2012, 15:20

Есть компоненты:
AdoConnect
DataSource
AdoQuery
edit
dbgrid
Как изменить путь к бд в Adoconnect через edit или другие поля вводимые пользователем)
Есть бд мне нужно чтоб пользователь сам указывал путь к бд

Stilet · 14.10.2012, 15:35

А как выглядит строка подключения?

xsaroo · 14.10.2012, 15:40

procedure TForm1.Button4Click(Sender: TObject);
begin
var s: string;
begin
s:='';
s:=s+'Provider=Microsoft.Jet.OLEDB. 4.0;Password="";User ID=Admin;Data Source=%s;';
s:=s+'Mode=ReadWrite;Extended Properties=dBase 5.0;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";';
s:=s+'Jet OLEDB:Engine Type=18;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;';
s:=s+'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';

dm.ADOConnection1.Connected:= False;
dm.ADOConnection1.ConnectionString: =Format(s,[edit4.text]);
end;

end;

Serge_Bliznykov · 14.10.2012, 16:54

КРОССПОСТ.

ТЕМА ЗАКРЫТА.

14.10.2012, 15:20	#1
xsaroo Пользователь Регистрация: 14.10.2012 Сообщений: 40	Как изменить свойство ADOConnection1.ConectionString через edit или каким нибуть другим путем Есть компоненты: AdoConnect DataSource AdoQuery edit dbgrid Как изменить путь к бд в Adoconnect через edit или другие поля вводимые пользователем) Есть бд мне нужно чтоб пользователь сам указывал путь к бд Последний раз редактировалось xsaroo; 14.10.2012 в 15:26.

14.10.2012, 15:35	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	А как выглядит строка подключения? I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
как изменить css свойство transform из Js?	Даниил_глазко	JavaScript, Ajax	2	15.10.2011 13:23
Возможно ли каким нибуть образом вырезать из файла определенное количество строк?	maloy_ya	Общие вопросы Delphi	37	10.02.2011 18:06
Как программно VBA изменить свойство Обязательное поле в таблице	myprog	Microsoft Office Access	10	05.10.2010 11:23
Как изменить свойство href тега <A>	Ga-sergey	JavaScript, Ajax	2	23.04.2010 17:49
Как изменить свойство объекта, если его имя находится в переменной?	Aiden	Компоненты Delphi	1	13.09.2007 07:57

14.10.2012, 15:40	#3
xsaroo Пользователь Регистрация: 14.10.2012 Сообщений: 40	procedure TForm1.Button4Click(Sender: TObject); begin var s: string; begin s:=''; s:=s+'Provider=Microsoft.Jet.OLEDB. 4.0;Password="";User ID=Admin;Data Source=%s;'; s:=s+'Mode=ReadWrite;Extended Properties=dBase 5.0;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";'; s:=s+'Jet OLEDB:Engine Type=18;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;'; s:=s+'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'; dm.ADOConnection1.Connected:= False; dm.ADOConnection1.ConnectionString: =Format(s,[edit4.text]); end; end;

14.10.2012, 16:54	#4
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	КРОССПОСТ. ТЕМА ЗАКРЫТА.