delphi adoquery ConnectionString

Question

if strcomp(pchar(strconn),'')=0 then exit;
  query:=TADOQuery.Create(nil);
  query.Active:=true;  query.ConnectionString:=strConn;
  query.Open ;  strSQL:='select *from department where indexlevel=1';
  query.SQL.Clear;
  query.SQL.Add(strSQL);
  query.Open;总是在第一个query.open的时候报错，到底是怎么回事？

Answer 1

strconn是连接数据库的字符串？

Answer 2

if strcomp(pchar(strconn),'')=0 then exit; 
  query:=TADOQuery.Create(nil); 
  //query.Active:=true;   query.ConnectionString:=strConn; 
  //query.Open ;   strSQL:='select *from department where indexlevel=1'; 
  query.SQL.Clear; 
  query.SQL.Add(strSQL); 
  query.Open;