Текущий архив: 2003.03.03;
Скачать: CL | DM;
Вниз
Маленькая хитрость в копилку... Найти похожие ветки
← →
Мазут Береговой (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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.024 c
