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

Question

我有一个Delphi应用程序,使用TADOConnection连接到MS SQL服务器.
现在我需要设置TADOConnection的"Application Name"属性(以便可以在带有select distinct program_name from sys.sysprocesses查询的DB上看到它).

TADOConnection没有ApplicationName属性.相反,它只是在内部为它分配应用程序可执行文件名(可以通过上面的查询看到).

如何设置TADOConnection与MS SQL数据库的连接的"应用程序名称"属性？

Answer 1

"应用程序名称"属性(和其他)可以这样设置:

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