报错：在单一线程模式下，试图在一个以上线程上进行呼叫。急 在线

Question

报错：在单一线程模式下，试图在一个以上线程上进行呼叫
使用ADO连接ORACLE
程序中循环查询多个数据表。
怎么解决？？？解决马上给分。

Answer 1

把数据导入EXCEl这样写有没有问题？  fname:=Extractfilepath(Application.ExeName)+'temp.xls';  templates:=Extractfilepath(Application.ExeName)+'stock compare.xls';
  closeExcel;
   try
   self.ExcelApp.Connect;
   except
   Showmessage('Excel没有安装或连接错误,请确认后重试！');
   closeExcel;
   abort;
   end;
         self.ExcelApp.Visible[0]:=True;
    self.ExcelApp.Workbooks.Add(templates,0);  self.ExcelWbook.ConnectTo(self.ExcelApp.Workbooks[1] as _Workbook);
    self.ExcelWsheet.ConnectTo(self.ExcelWbook.Worksheets[1] as _Worksheet);
         ExportExcel; //导入过程
         self.ExcelWsheet.SaveAs(fname);

Answer 2

你的EXCEL控件设置不对
excelapplication.connectkind:=ckinstance;
excelapplication.autoconnect:=true;