[Support]

Hello
Could you show a screenshot or a working application (it's better) ?
Thanks.

[mhaps]

QUOTE (Support @ Jun 30 2009, 07:03 AM)

Hello
Could you show a screenshot or a working application (it's better) ?
Thanks.

[attachment=3371:DBConnection.bmp]

[Support]

Thanks
How can I call this dialog?
Do you uses latest AlphaControls version?

[mhaps]

Here's the complete code:

CODE

uses
OleDB, ComObj, ActiveX;

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;

I am using Version 5.68 and Delphi 6.

[Support]

Thanks
This problem is solved in the v6 I think. Can you try it?

[mhaps]

If my problem with the system menu is solved I will try to upgrade

[Author]

Posts