タイトル : 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 |