如保在接口中动态创建TADOConnection??

                            
type   
      IDTD   =   interface  
          function   TxtToDB(FileName,TableName:String):Boolean;  
          function   ExcelToDB(FileName,TableName:String):Boolean;  
          function   XmlToDB(FileName,TableName:String):Boolean;  
          ...  
  end;  
   
  type  
      TIDTD   =   class(TDTDObject,IDTD)  
      private  
          FADOConnection   :   TADOConnection   ;  
          FADODataSet   :   TADODataSet   ;  
      public  
          procedure   CreateADOConnection(aPara   :   TCompont);  
          function   TxtToDB(FileName,TableName:String):Boolean;  
          function   ExcelToDB(FileName,TableName:String):Boolean;  
          function   XmlToDB(FileName,TableName:String):Boolean;  
          ...  
  end;  
   
   
  procedure   TIDTD.CreateADOConnection(aPara   :   TCompont);  
  begin  
      FADOConnection   :=   TADOConnection.create(aPara);   //出错了,  
  end;  
   
  请问该如何创建呢?  
   
  这样做的目的是:  
   
  自动监控一指定文件目录夹,如有新文件,检测此文件是文本文件还是EXCEL文件还是DBF文件等,然后调用一接口将其导入数据库中,请问这接口该如何做,请给点思路,多谢,分不够再开贴另加?  
   
 

查看回复