The project needs to use the Data Link Properties dialog box to set up ConnectionString and consult some of the following solutions:
1.Delphi
In Delphi is relatively simple, the steps are as follows:
Methods 1:use adoconed;
Adoconed.editconnectionstring (ADOConnection1);
So we can use:
ShowMessage (adoconnection1.connectionstring)
Check out ADOConnection1 's connectionstring.
Methods 2:adoconnection1.connectionstring:=promptdatasource (Handle, "");
Or:
Adoconnection1.connectionstring:=promptdatasource (handle,adoconnection1.connectionstring);
Attached: code for the Promptdatasource function:
function Promptdatasource (parenthandle:thandle; initialstring:widestring): widestring;
Var
Datainit:idatainitialize;
Dbprompt:idbpromptinitialize;
Datasource:iunknown;
Initstr:pwidechar;
Begin
Result: = initialstring;
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);
Result: = Initstr;
End
End