我是在过程中定义的ADODataSet,不用初始化吗?procedure THRI_OrgForm.WriteTree(MyNode:TTreeNode;Grade:Integer); var ThisDataSet:TADODataSet; begin
ThisDataSet.Connection:=DBConnectionUnit.DBConnection.DBADOConnection; ThisDataSet.CommandText:='select * from tgORG_DeptInfo '; ThisDataSet.CommandType:= cmdText; ThisDataSet.Open();end;
procedure THRI_OrgForm.WriteTree(MyNode:TTreeNode;Grade:Integer); var ThisDataSet:TADODataSet; begin ThisDataSet:=TADODataSet.Create(nil); ThisDataSet.Connection:=DBConnectionUnit.DBConnection.DBADOConnection; ThisDataSet.CommandText:='select * from tgORG_DeptInfo '; ThisDataSet.CommandType:= cmdText; ThisDataSet.Open();
设置ADODataSet的CommandText值。(需要执行的SQL语句)
激活。ADODataSet.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initial Catalog=master;Data Source=DRAGON';
ADODataSet.CommandText:='select * from Table1';
ADODataSet.Active:=True;
var
ThisDataSet:TADODataSet;
begin
ThisDataSet.Connection:=DBConnectionUnit.DBConnection.DBADOConnection;
ThisDataSet.CommandText:='select * from tgORG_DeptInfo ';
ThisDataSet.CommandType:= cmdText;
ThisDataSet.Open();end;
var
ThisDataSet:TADODataSet;
begin
ThisDataSet:=TADODataSet.Create(nil);
ThisDataSet.Connection:=DBConnectionUnit.DBConnection.DBADOConnection;
ThisDataSet.CommandText:='select * from tgORG_DeptInfo ';
ThisDataSet.CommandType:= cmdText;
ThisDataSet.Open();
.......// some you code
ThisDataSet.Free;
end;