首先,在我对 ParseSQL 进行任何解释之前,请检查您的连接字符串。初始值和目录之间有两个空格。当我使用该连接字符串时,打开查询时出现错误,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
。该答案的其余部分将假设您拥有带有一个空格的正确连接字符串。
打电话是什么意思ParseSQL
with DoCreate=true
do?
AdoQuery.Parameters.ParseSQL(ADOQuery.SQL.Text,True);
它所做的第一件事是清除参数列表。在这种情况下,这意味着我们已经拥有的正确键入的参数被破坏。ParseSQL
然后解析SQL并找到参数。它创造了一个新的tParameter
有名称的对象sysID
并将其添加到列表中。新参数的类型ftUnknown
.
为什么有人想要这样做?如果查询连接未设置或未打开,这可能非常有用。将为您构建参数列表,之后您可以显式设置它们的数据类型。
如果你要执行怎么办ParseSQL
with DoCreate=false
:
AdoQuery.Parameters.ParseSQL(ADOQuery.SQL.Text,false);
答案是:什么也没有。 ParseSQL 会解析 SQL,找到参数,然后返回一个像这样的字符串:
SELECT * FROM tblTest WHERE sysId = ?
将参数替换为问号。它不会对参数列表进行任何更改。由于您的代码对返回的字符串不执行任何操作,因此最终结果是对 ParseSQL 的调用不会发生任何更改。