有什么办法可以把赋值以后的sql代码show出来

2013-07-16

有什么办法可以把赋值之后的sql代码show出来？procedure TForm1.Button1Click(Sender: TObject)begin with

有什么办法可以把赋值之后的sql代码show出来？
procedure TForm1.Button1Click(Sender: TObject);
begin
with qry1 do
begin
  close;
  sql.Clear;
  SQL.Add('select * from zd_qyzg where gh=:gh');
  Parameters.ParamByName('gh').Value:='999' ;
   ShowMessage(SQL.DelimitedText);
  Open;
  ShowMessage(SQL.CommaText);
end;
end;

如上，想在运行之后看赋值之后的完整sql代码  有办法吗
[解决办法]
应该是没办法
自己组合下show出来，或者除了将SQL show出来外，同时也将传进去的值也show出来。

[解决办法]

引用:

试遍了····在做日记····项目里面太多了···要自己参数一个个另外加太麻烦了

那就写在每个DataSet的OnBeforeOpen事件中：


procedure TfmFAIDetail.QryDataBeforeOpen(DataSet: TDataSet);
var
  i: integer;
  s: string;
begin
  s := '';
  for i := 0 to QryData.Params.Count - 1 do
    s := s +#13#10+ QryData.Params.Items[i].AsString;
  ShowMessage(s);
  ShowMessage(QryData.CommandText);
end;

[解决办法]

引用:

Quote: 引用:

试遍了····在做日记····项目里面太多了···要自己参数一个个另外加太麻烦了

只showmessage(s)了下面的还是show不出完整的

s是Show你传的参数值，最后一句是ShowMessage(SQL.CommaText);显示出SQL的内容。

热点排行

.NET

有什么办法可以把赋值以后的sql代码show出来