MySQLのデータベース名の取得 (ID:40272)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Delphi2010、MySQL5.5.8にdbExpressで接続しています。
接続やテーブル取得はできましたが、データベース名のリストを作成したいので、下記のようにかきましたが取得できません。
  with SQLConnection1 do begin
    try
      Connected := False;
      Params.Values['DriverName'] := 'MySQL';
      Params.Values['HostName'] := EditHostName.Text;
      Params.Values['Database'] := EditMySQLDataBase.Text;
      Params.Values['User_Name'] := EditMySQLUser.Text;
      Params.Values['ServerCharset'] := 'cp932';
      LabelSchema.Caption := EditMySQLDataBase.Text;
      Connected := True;
      SQLConnection1.GetSchemaNames(ListBox1.Items);  <--ここで取得したい
      SQLConnection1.GetTableNames(ListBoxMySQLTable.Items, False);  <--ここは正常
      PageControlHyouDB.ActivePage := TabSheetHenkan;
      ImageMySQL.Visible := True;
    except
      PageControlHyouDB.ActivePage := TabSheetSetsuzoku;
      ImageMySQL.Visible := False;
      ListBoxMySQLTable.Items.Clear;
      EditMySQLTableName.Text := '';
      BitBtnSQLConnect.Caption := '接続';
      Beep;
      ShowMessage('SQLサーバーが見つかりません。接続の条件を設定して[接続]ボタンを押してください。');
    end;
  end;
ですが
GetSchemaNamesは使えないのでしょうか

←解決時は質問者本人がここをチェックしてください。

戻る