如何解决这个问题

Question

编程列出系统中所有可用数据库及其驱动程序类型，选择一个数据库后能够连接数据库并列出其中所有数据表，选择数据表后列出该表的所有字段

Answer 1

1、列出所有驱动程序 
var
 DrList:TStrings;
begin   
 DrList := TStringList.Create;
  try
   Session1.GetDriverNames(DrList);  //Session1是TSession
   cbDriverName.Items := DrList;     //cbDriverName是TComboBox
  finally
   DrList.Free;
  end;
  ...
end;2、列出某个驱动程序需要配置的参数(如SQL Explorer中不动的驱动程序需要配置的参数不同)Session1.GetDriverParams(驱动程序名,DrList);  //DrList和以上同3、列举所有的表SDBase.GetTableNames(DrList,False); //SDBase为TDatabase当第二个参数为true时包括系统表其它的事情你就自己搞定了