如何处理连接字符串错误的情况

Question

算法实现遍历数据库中的表
filename :=OpenDialog1.FileName ;
onenode   :=   treeview1.items.add(nil,filename);
ADOconnection1.Close ;
ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;'+
          'Data Source='+ filename +';Persist Security Info=False';
ADOConnection1.Open ;
      SL   :=   TStringList.Create;
      try
          ADOConnection1.GetTableNames(SL,   False);
          for   index   :=   0   to   (SL.Count   -   1)   do   begin
              treeview1.items.addchild(onenode,SL[index]);
          end;
      finally
          SL.Free;
      end;
错误提示 "不是合法的数据库格式."
请问如何屏蔽.或者给出友好的提示

Answer 1

try
   ADOConnection1.Open ;
   ................
except
  showmessage('友好提示');
end;

Answer 2

只要自己加了错误处理就可以了。比如try exception on eoleexception
但是调试的时候还是会报错的，执行编译后的程序就不会了

Answer 3

设置一下Opendialog的Filter属性　让它只能打开你需要的文件　比如ACESS是*.MDB

Answer 4

try 
      ADOConnection1.Open   ; 
      ................ 
except 
    showmessage( '友好提示 '); 
end;设置一下Opendialog的Filter属性　让它只能打开你需要的文件　比如ACESS是*.MDB