如何在Delphi中设置TADOConnection的Application Name属性？

Question

我有一个使用TADOConnection连接到MS SQL服务器的Delphi应用程序 现在我需要设置＆＃34;应用程序名称＆＃34; TADOConnection的属性（这样可以在带有select distinct program_name from sys.sysprocesses查询的DB上看到）。

TADOConnection没有ApplicationName属性。相反，它只是在内部为其分配应用程序可执行文件名称（可以通过上面的查询看到）。

如何设置＆＃34;应用程序名称＆＃34;与MS SQL数据库建立TADOConnection连接的属性？

Answer 1

＆＃34;申请名称＆＃34;属性（和其他）可以像这样设置：

AdoConnection1.Properties['Application Name'].Value := 'MyAppName';