在delphi中如何得到mysql里所有的数据库名？急！在线等！！

Question

如题：在mysql 中有test,temp,sample等多个数据库，如何得到这些数据库的名称，请高手指点，在线等！！急！！！

Answer 1

SQLconnection1.GetTableNames(Listbox1.Items,false);

Answer 2

combobox_database.Clear;
  with Adoquery_temp do
  begin
    Close;
    Sql.Clear;
    Sql.Add('USE master SELECT dbid, DB_NAME(dbid) AS DB_NAME  FROM sysdatabases ORDER BY dbid');
    Open;
    First;
    while not eof do
    begin
      combobox_database.Items.Add(FieldBYName('db_name').AsString);
      next;
    end;
    lbl_database_count.Caption :=inttostr(recordcount);
  end;
  combobox_table.Clear;
  adoconnection1.GetTableNames(combobox_table.Items,false);

Answer 3

不行，楼上的是mssql，而不是mysql.用GetDatabaseNamesMyStringList := TStringList.Create;
try 
  Session.GetDatabaseNames(MyStringList);
  { fill a list box with database names for the user to select from }
  ListBox1.Items := MyStringList;
finally
  MyStringList.Free;
end;