delphi中ado如何动态连接数据库

delphi中ado如何动态连接数据库？

 
  var  
      s:   String;  
  begin  
      s   :=   PromptDataSource(Handle,   ADOConnection1.ConnectionString);  
      if   CompareText(s,   ADOConnection1.ConnectionString)   <>   0   then  
          ADOConnection1.ConnectionString   :=   s;  
  end;  
 

var  
      s:   String;  
  begin  
      s   :=   PromptDataSource(Handle,   ADOConnection1.ConnectionString);  
      if   CompareText(s,   ADOConnection1.ConnectionString)   <>   0   then  
      begin  
          ADOConnection1.Connected   :=   False;  
          ADOConnection1.ConnectionString   :=   s;  
          ADOConnection1.Connected   :=   True;  
      end;  
  end;

如果处于连接状态，ConnectionString比较是不准确的，还是应该先断开连接，修改如下：  
   
  var  
      s:   String;  
  begin  
      ADOConnection1.Connected   :=   False;  
      s   :=   PromptDataSource(Handle,   ADOConnection1.ConnectionString);  
      if   CompareText(s,   ADOConnection1.ConnectionString)   <>   0   then          
          ADOConnection1.ConnectionString   :=   s;  
      ADOConnection1.Connected   :=   True;  
  end;

直接传个ADOConnection对象不就完了?如果在多个窗口像这样写那要生成多少个连接?

--------------------------
新闻：专注、极致、快、口碑 互联网创业的葵花宝典
导航：博客园首页  知识库  新闻  招聘  社区  小组  博问  网摘  找找看