tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: MySQLへの接続 出直し編
投稿日: 2006/06/13(Tue) 13:04
投稿者なおこ(・∀・)
お世話になります。

> とするとエラー無く実行できるのですが、自分が作成したテーブル以外に
> mysql.columns_priv
> mysql.db
> mysql.func
> mysql.help_category
> などが表示されます。
MySql にはあまり詳しくないですが、
おそらく SYSTEM TABLE も取得している為でしょう。

取得する時に SYSTEM TABLE 以外のものを取得する方法は解りませんが、
TABLE_TYPE が TABLE のもののみ抽出するなら、
いったん全部取得して、こんな感じでどうでしょうか。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
  Const CONNECTION_STRING As String = "接続文字列"
  Dim schemaTable As DataTable
  Dim odbcConn As Odbc.OdbcConnection
  odbcConn = New Odbc.OdbcConnection(CONNECTION_STRING)
  Try
    odbcConn.Open()
    Try
      schemaTable = odbcConn.GetSchema("Tables")
      Dim dv As DataView = New DataView(schemaTable)
      dv.RowFilter = "TABLE_TYPE='TABLE'"
      Me.ListBox1.Items.Clear()
      For Each row As DataRowView In dv
        Me.ListBox1.Items.Add(Convert.ToString(row("TABLE_NAME")))
      Next
    Finally
      If odbcConn IsNot Nothing Then odbcConn.Close()
    End Try
  Finally
    If odbcConn IsNot Nothing Then odbcConn.Dispose()
  End Try
End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。