delphi中弹出(ADO)数据库连接字符串对话框的函数

时间:2022-02-24 07:39:27

好长时间没有用D啦,弹出odbc data link dialog的函数也忘了,找了半天,还是在英文网站上找到的,真是很累。所以为了以后方便(虽然用D的机会是越来越少了),记录在案吧。

在ADO单元中,函数为声明如下,为全局函数:

function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString; 

此单元很多相关的函数都放在一起,如下:

procedure CreateUDLFile(const FileName, ProviderName, DataSourceName: WideString);
function DataLinkDir: string;
procedure GetProviderNames(Names: TStrings);
function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
function PromptDataLinkFile(ParentHandle: THandle; InitialFile: WideString): WideString;
function GetDataLinkFiles(FileNames: TStrings; Directory: string = ''): Integer;

用法就不用说明了吧。