谢谢,如题!

解决方案 »

  1.   

    ADOConnection1.GetTableNames(tablelist.Items, False);
      

  2.   

    var
      i: Integer;
    begin
      for i := 0 to (ADOConnection1.DataSetCount - 1) do
        ListBox1.Items.Add(ADOConnection1.DataSets[i].Name)
    end;
      

  3.   

    sorry,看錯了ADOConnection1.GetTableNames(ListBox2.Items, False);
      

  4.   

    ADOConnection1.GetTableNames(ListBox1.Items, False);
    来晚了,那也写上吧!
      

  5.   

    就是用ADOCONNECTION的GETTABLENAMES属性,