ado执行语句是否有结果集

var
 rs:_Recordset;
begin
 ADODataSet2.Close;
 rs :=ADOCommand1.Execute();

 

无论sql语句是否有结果集，都不报错。

不用担心是用open还是用execsql方法了

 

 

procedure TForm1.Button2Click(Sender: TObject);
var
 rs:_Recordset;
begin
 ADODataSet2.Close;
  ADOCommand1.CommandText := 'select top 50  *  from  fylb';
 rs :=ADOCommand1.Execute();
 ADODataSet2.Recordset := rs;
DataSource1.DataSet := ADODataSet2;

 

SET STATISTICS TIME ON
SET STATISTICS IO ON

go
select top 9  * from   cfy where  日期>'2012-10-08'
go
SET STATISTICS TIME OFF
SET STATISTICS IO OFF

go
select db_name ()
go

SET SHOWPLAN_ALL ON

go
select top 9  * from   cfy where  日期>'2012-10-08'

go
SET SHOWPLAN_ALL OFF

go
select db_name ()
go