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