Форум: "Потрепаться";
Текущий архив: 2003.03.03;
Скачать: [xml.tar.bz2];

Вниз

Маленькая хитрость в копилку...   Найти похожие ветки 

← →
Мазут Береговой   (2003-02-16 05:48) [0]

Для тех, кто не знает. Может пригодиться. Редактирование connection во время runtime.
(А может вы все знали, но молчали...)

uses ADOConEd;

procedure TADODBTest.EditConnStrClick(Sender: TObject);
begin
Connection.Close;
Connection.ConnectionString := ConnectionString.Text;
if EditConnectionString(Connection) then
begin
ConnectionString.Text := Connection.ConnectionString;
end;
end;

{Connection - TADOConnection;
ConnectionString - TEdit;}

---

← →
sniknik   (2003-02-16 11:39) [1]

просто ты не спрашивал ....

у меня около полгода програмка в кладовке лежит именно так и редактируется, ну почти с небольшой вариацией. (программу найти чегойто не получается, не пережила недавнего сбоя на сервере? около месяца назад, ну и ладно).

в примере в дельфях то же самое, каждый может посмотреть ....

мой вариант

procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin
Saved:= ComboBox1.Text;
if EnableUdl then begin
ADOConnection.Close;
ADOConnection.ConnectionString:= ComboBox1.Text;
if EditConnectionString(ADOConnection) then ComboBox1.Text:= ADOConnection.ConnectionString;
ADOConnection.Close;
end else ComboBox1.Text:= PromptDataSource(Handle, ComboBox1.Text);
UpdateList(ComboBox1.Text);
end;

---

← →
Tux   (2003-02-16 11:44) [2]

Да, слушайте, вот это откровение-то, а?

---

← →
Palladin   (2003-02-16 12:19) [3]

да
сразу видно
человек РАЗВИВАЕТСЯ, РАСТЕТ!

---

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

Форум: "Потрепаться";
Текущий архив: 2003.03.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c