Диалог создания строки соеденения в ADOConnection

← →
Ярослав (2005-06-08 08:40) [0]

Подскажите как вызвать диалог создания строки соеденения (тот который появляется при двойном клике на компоненте) у ADOConnection из программы

← →
Anatoly Podgoretsky © (2005-06-08 09:03) [1]

ADOConnection представлен в исходных кодах.

← →
ryds (2005-06-08 09:14) [2]

создаешь UDL, и открываешь его из своей проги обычным shellexecute

← →
Ярослав (2005-06-08 09:28) [3]

> Anatoly Podgoretsky © (08.06.05 09:03) [1]
А нельзя ли по конкретней?

← →
ryds (2005-06-08 09:37) [4]

да че ты мучаешься? конекться ч/з UDL - гораздо удобней и гибче...

← →
dmitry501 © (2005-06-08 09:38) [5]

EditConnectionString(ИмяAdoConnection)

← →
Ярослав (2005-06-08 10:03) [6]

> dmitry501 © (08.06.05 09:38) [5]
А в каком модуле находиться EditConnectionString

← →
dmitry501 © (2005-06-08 10:11) [7]

Ярослав (08.06.05 10:03) [6]
В Delphi в меню жмешь Search-Find in Files
Ставишь Where-Search in directories
В file mask пишешь C:\Program Files\Borland\Delphi7 или жмешь Browse и указываешь, где находится Delphi. Ждешь пока завершится поиск и внизу юудет написано.
C:\Program Files\Borland\Delphi7\Source\Property Editors\AdoConEd.pas(40): function EditConnectionString(Component: TComponent): Boolean;

← →
вп (2005-06-08 10:49) [8]

DS := PromptDataSource(Application.Handle, "");
Модуль, кажись, ADODB

← →
Ярослав (2005-06-08 11:05) [9]

ОК получилось, а как потом результат сохранить в файл UDL, для последующего соеденения без этого диалога, пробовал просто сохранять в файл то что находиться в ConnectionString, но появляется ошибка "Недопустимый составной файл..."
Посмотрел файл отличается от ранее правильным методим созданного, исправил, файлы получаются идентичные но ошибка таже.
В чем тут дело?

← →
Ярослав (2005-06-08 11:08) [10]

Выяснил, нормальный файл в Unicode, но может всетаки есть функция у ADO, для этого дела?

ShellExecute(Handle, "open", "D:\Udl.Udl", nil, nil, SW_SHOWNORMAL);

Если я правильно понял вопрос, то автор спрашивает об этом:
uses ComObj, ActiveX, StdCtrls; function ADOConnectionString(ParentHandle: THandle; InitialString: WideString; out NewString: string): Boolean; var DataInit: IDataInitialize; DBPrompt: IDBPromptInitialize; DataSource: IUnknown; InitStr: PWideChar; begin Result := False; DataInit := CreateComObject(CLSID_DataLinks) as IDataInitialize; if InitialString <> "" then DataInit.GetDataSource(nil, CLSCTX_INPROC_SERVER, PWideChar(InitialString), IUnknown, DataSource); DBPrompt := CreateComObject(CLSID_DataLinks) as IDBPromptInitialize; if Succeeded(DBPrompt.PromptDataSource(nil, ParentHandle, DBPROMPTOPTIONS_PROPERTYSHEET, 0, nil, nil, IUnknown, DataSource)) then begin InitStr := nil; DataInit.GetInitializationString(DataSource, True, InitStr); NewString := InitStr; Result := True; end; end;

Ярослав (08.06.05 11:08) [10]
Сохраняй в файл
AdoConnection.ConnectionString
он уже в unicode. Это и есть .udl файл.

Диалог создания строки соеденения в ADOConnection Найти похожие ветки