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

タイトル ： MySQLへの接続 出直し編
投稿日： 2006/06/13(Tue) 12:15
投稿者： kopo
こんにちは
やっとODBCでの接続法が分かりました。
VB2005を使っていますが、
参照の追加で、
Microsoft.Data.Odbc.dll
を選択し
Imports Microsoft.Data.Odbc
をコードの先頭に追加することによりODBCでのアクセスが可能となりました。
これでODBC関係のメソッドなどが使えるようになり、実際MySQLに接続はできたのですが、
テーブル情報などのスキーマ情報などの取得をどうすればよいかが分かりません。

        Dim cn As Odbc.OdbcConnection = New Odbc.OdbcConnection
        Dim dt As DataTable
        Dim dr As DataRow
        Dim resValue As String()

        cn.ConnectionString = "DRIVER={MySQL ODBC 3.51
Driver};SERVER=localhost;PORT=3306;DATABASE=db;UID=xxxx;PASSWORD=xxxx;OPTION=3"

        ListBox1.Items.Clear()

        Try
            cn.Open()
            MsgBox("データベースに接続できました")
            dt = cn.GetSchema("Tables", resValue)
            cn.Close()
            For Each dr In dt.Rows
                ListBox1.Items.Add(dr(2))
            Next
        Catch ex As Odbc.OdbcException
            Dim err As Odbc.OdbcError

            For Each err In ex.Errors
                MsgBox(err.Message & vbNewLine & "SQLState: " & err.S
QLState)
            Next
        End Try

とするとエラー無く実行できるのですが、自分が作成したテーブル以外に
mysql.columns_priv
mysql.db
mysql.func
mysql.help_category
などが表示されます。

GetSchemaで自分が作成したテーブルのみを表示するにはどうすればよいでしょうか。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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