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

Задача параметров в 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]

---

← →
Floppy ©   (2005-11-19 13:07) [6]

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

---

← →
Карелин Артем ©   (2005-11-19 14:57) [7]

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

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

---

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

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



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