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

← →
Мазут Береговой (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]

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

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

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