TAdoQuery.ParseSql 在 xe4 中不起作用答案

【问题标题】：TAdoQuery.ParseSql do not work in xe4TAdoQuery.ParseSql 在 xe4 中不起作用
【发布时间】：2014-01-17 19:20:56
【问题描述】：

我在 Delphi 7 中有一个项目，我使用 TAdoQuery.ParseSql(); 来加载参数。现在我在 XE4 中编译它，参数类型有时是错误的。它确实是ftInteger，但创建为ftSmallint。我能做些什么来解决这个问题？我的数据库是 SQL Server 2008 R2。

表定义：

CREATE TABLE [dbo].[tblTest]( 
   [sysId] [int] IDENTITY(1,1) NOT NULL,  
   [Code] [nvarchar](50) NOT NULL, 
   [Name] [nvarchar](500) NOT NULL, 
CONSTRAINT [PK_tblTest] 
PRIMARY KEY CLUSTERED ( [sysId] ASC )
   WITH ( PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, 
          ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON ) 
   ON [PRIMARY] )
ON [PRIMARY]

样本数据：

INSERT INTO tblTest ( Code, Name ) VALUES ( 'a1', 'name1' )

德尔福代码：

ADOQuery.SQL.Text := 'SELECT * FROM tblTest WHERE sysId = :sysId';
AdoQuery.Parameters.ParseSQL(ADOQuery.SQL.Text,True);
AdoQuery.Parameters.ParamByName('sysId').value := -1;
AdoQuery.open;

ConnectionString（数据库：MyDb）

Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial  Catalog=MyDb;Data Source=.

作为解决方案，我使用了这个 delphi 代码

AdoQuery.Parameters.ParseSQL(ADOQuery.SQL.Text,false);

现在任何人都可以解释一下吗？有副作用吗？

【问题讨论】：

什么版本的 SQL Server？ SQL 代码是什么样的。你是用mdac还是sqlncli连接db？
重复不回答stackoverflow.com/questions/20813585/…
@Mikael 版本为sqlserver2008R2，使用MDAC连接
强调它在delphi7中工作
我很想看看 ParseSQL 之后的代码，它指示参数数据类型，并指示它在 Delphi 7 中“有效”。当您分配 SQL.Text 时，如果 AdoQuery.Connection设置后，您的应用程序将查询 SQL Server 的类型。此时类型应该是 ftInteger。当您使用 DoCreate=true 调用 ParseSQL 时，将删除参数列表，并创建新参数，但 DataType=ftUnknown。我已经在 Delphi 7 和 Delphi XE5 中对此进行了测试。（抱歉，没有 XE4）。

标签： delphi delphi-7 ado delphi-xe4

【解决方案1】：

首先，在我对 ParseSQL 进行任何解释之前，请检查您的连接字符串。 Initial 和 Catalog 之间有两个空格。当我使用该连接字符串时，打开 tblTest 不存在的查询时出现错误。删除多余的空间解决了这个问题。

当我看到这个问题时，我不知道 ParseSQL 是做什么的。多年来我一直在做 Delphi / SQL Server / ADO 开发，但从未使用过它。我认为这将是一个学习新东西的机会。

请注意，我运行的所有测试在 Delphi 7 和 Delphi XE5 中给出了相同的结果。我仍然很想看到一些在 Delphi 7 中有效但在 Delphi XE5 中无效的代码。

当您执行AdoQuery.SQL.Text:='...' 时，如果连接已设置并打开，您的应用程序将创建参数，并查询数据库服务器以确定它们的类型。这段代码：

AdoQuery := tAdoQuery . Create(nil);
AdoQuery . Connection := AdoConnection;
ADOQuery.SQL.Text := 'SELECT * FROM tblTest WHERE sysId = :sysId';

aDataType := AdoQuery.Parameters.ParamByName ( 'sysId' ) . DataType;
Msg ( 'Parameter type = ' + DataTypeToString ( aDataType ) );

将导致：

Parameter type = ftInteger

注意，DataTypeToString 只是我编写的将 tDataType 转换为字符串的例程。

function DataTypeToString ( const nDataType : tDataType ) : string;
begin
  Result := GetEnumName ( TypeInfo(tDataType),
                          integer (nDataType) );
end;

然后执行这段代码。

AdoQuery.Parameters.ParamByName ( 'sysId' ) . Value := -1;
AdoQuery . Open;

如果您运行 SQL Profiler，您将看到发送到 SQL Server 的查询：

exec sp_executesql N'SELECT * FROM tblTest WHERE sysId = @P1
',N'@P1 int',-1

注意@P1 被声明为int。

注意：如果连接字符串中有两个空格，则参数类型将显示为ftUnknown，@P1 将显示为smallint。此答案的其余部分将假设您有正确的连接字符串和一个空格。

用DoCreate=true 调用ParseSQL 有什么作用？

AdoQuery.Parameters.ParseSQL(ADOQuery.SQL.Text,True);

它做的第一件事就是清除参数列表。在这种情况下，这意味着我们已经拥有的正确类型的参数被破坏了。 ParseSQL 然后解析 SQL 并找到参数。它创建一个名为 sysID 的新 tParameter 对象并将其添加到列表中。新参数的类型为ftUnknown。

为什么会有人想要这样做？如果查询连接未设置或未打开，这可能非常有用。将为您构建参数列表，之后您可以显式设置它们的数据类型。

如果你用DoCreate=false 执行ParseSQL 会怎样：

AdoQuery.Parameters.ParseSQL(ADOQuery.SQL.Text,false);

答案是：没有。 ParseSQL 会解析 SQL，找到参数，它会返回一个这样的字符串：

SELECT * FROM tblTest WHERE sysId = ?

用问号替换参数。它不会对参数列表进行任何更改。由于您的代码对返回的字符串不执行任何操作，因此最终结果是对 ParseSQL 的此调用不会进行任何更改。

【讨论】：