我在动态创建数据库控件时报这样的错。。。

Question

DataBase11.AliasName := 'news'; 
没错；检查你前面的语句是否收了 分号什么的   Session11 := TSession.Create(Application); 
也因该没错
 var
  ss:Tsession;
  ss:=tsession.create(application);
或 ss:=tsession.create(nil); 

Answer 1

谢谢，那怎么该nil之后，会报错说：
asp_database_project.asp_database 错误 '8000ffff' Session11: Duplicate session name 'Ses11'
 

Answer 2

procedure Tasp_database.findarticle;
var
  Session11:TSession;
  DataBase11:TDataBase;
  Query11:TQuery;
  thetitle:string;
begin
  Session11 := TSession.Create(nil);
  Session11.Name := 'Session11';
  Session11.SessionName := 'Ses11';
  Session11.Active := True;  DataBase11 := TDataBase.Create(nil);
  DataBase11.Name := 'DataBase11';
  DataBase11.SessionName := Session11.SessionName;
  DataBase11.AliasName := 'news';
  DataBase11.DatabaseName := 'news';
  DataBase11.LoginPrompt := False;
  DataBase11.Params.Add('USER NAME=sa');
  DataBase11.Connected := True;  Query11 := TQuery.Create(nil);
  Query11.Name := 'Query11';
  Query11.SessionName := Session11.SessionName;
  Query11.DatabaseName := DataBase11.DatabaseName;  thetitle:=request.form.item['thetitle'];
  with Query11 do
    begin
      close;
      with sql do
        begin
          clear;
          add('select * from jxoption');
          add(' where title like :title');
        end;
      parambyname('title').asstring:='%'+thetitle+'%';
      if not prepared then
        prepare;
      try
        open;
      except
        execsql;
      end;
    end;
    if not Query11.eof then
    begin
      response.write('<center><font color=red size=3>'+Query11['title']+'</font></center>');
      response.write('<right>'+Query11['cdate']+'　'+Query11['sourse']+'</right>');
      response.write('<p>'+Query11['content']+'</p>');
    end
    else
      response.write('没有这篇文章！！！');
  Query11.free;
end;以上是我针对asp开发的控件里的自定义方法，会报上面显示的那个错误，帮我吧^o^