Задача параметров в TADOConnection

← →
sashuly (2005-11-18 14:07) [0]

Привет.
Хочу сделать так, что б можно было задать параметры у TADOConnection програмно, пробовал присвоить ConnectionString, но получается слишком длинная строка (боее 255 символов). Скажите есть способ задать параметры по отдельности?

Спасибо.

← →
stone © (2005-11-18 14:16) [1]

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

Есть.
TADOConnection.Properties

← →
Anatoly Podgoretsky © (2005-11-18 14:38) [2]

sashuly (18.11.05 14:07)
У строки коннекта нет ограничения на длину строки. По крайней мере такого, которое вызвало бы проблему.

← →
sashuly (2005-11-18 14:51) [3]

Спасибо, а как по имени Properties получить значение?

← →
Карелин Артем © (2005-11-19 08:44) [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;

← →
Separator © (2005-11-19 10:04) [5]

Properties - жто обычный TStringList

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

Задача параметров в TADOConnection Найти похожие ветки