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

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

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

Задача параметров в TADOConnection [D7, MSSQL]

sashuly © (2005-11-18 14:07:00)
Привет.
Хочу сделать так, что б можно было задать параметры у TADOConnection програмно, пробовал присвоить ConnectionString, но получается слишком длинная строка (боее 255 символов). Скажите есть способ задать параметры по отдельности?

Спасибо.

Карелин Артем (2005-11-19 14:57:00) [1]

> Floppy © (19.11.05 13:07) [6]

Скажите есть способ задать параметры по отдельности?

Floppy (2005-11-19 13:07:00) [2]
Читайте то, что пишут:)
У Anatoly Podgoretsky © (18.11.05 14:38) [2] исчерпывающий ответ, а далее почти флуд

Separator (2005-11-19 10:04:00) [3]
Properties - жто обычный TStringList

Работай через Names[I] или Values[Name]

Карелин Артем (2005-11-19 08:44:00) [4]
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
ListBox1.Items.Clear;
s:=StringReplace(ADOConnection1.ConnectionString,';',#13#10,[rfReplaceAll]);
ListBox1.Items.Text:=s;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var i:integer;
begin
i:=ListBox1.ItemIndex;
if i=-1 then exit;
Edit1.Text:=ListBox1.Items.Names[i];
Edit2.Text:=ListBox1.Items.Values[ListBox1.Items.Names[i]];
end;

procedure TForm1.Button2Click(Sender: TObject);
var s:string;
begin
ADOConnection1.ConnectionString:=StringReplace(ListBox1.Items.Text,#10#13,';',[rfReplaceAll]);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ListBox1.Items.Add(Edit1.Text+'='+Edit2.Text);
end;

procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
begin
i:=ListBox1.ItemIndex;
if i=-1 then exit;
ListBox1.Items.Strings[i]:=Edit1.Text+'='+Edit2.Text;
end;

sashuly (2005-11-18 14:51:00) [5]
Спасибо, а как по имени Properties получить значение?

Anatoly Podgoretsky (2005-11-18 14:38:00) [6]
sashuly (18.11.05 14:07)
У строки коннекта нет ограничения на длину строки. По крайней мере такого, которое вызвало бы проблему.

stone (2005-11-18 14:16:00) [7]

> Скажите есть способ задать параметры по отдельности?

Есть.
TADOConnection.Properties

Наверх

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