MySQLとの接続に関して

サナ 2011-11-07 20:54:45 No: 103109

環境：Visual Basic2008
ＤＢ：MySQL

MySQLにOLEプロバイダ経由で接続したいと考え、以下のように記述しましたが、下記の★印の
ところで、次のようなエラーとなってしまいます。

何が原因か教えて頂きたいと思います。

よろしくお願いします。

【エラー内容】

エラーメッセージはありません。結果コードは E_FAIL(0x80004005) です。

【記述内容】

        ' 全レコードを取得してコンソールに出力
        Dim syain As New DataTable()
        Dim msg As String
        Dim strOut As String
        Dim i As Integer

        Const SELECT_発注データ As String = "SELECT * FROM T_発注データ"
        Dim con As New OleDbConnection()
        Dim cmd As New OleDbCommand()
        Dim da As New OleDbDataAdapter()
        Dim dt As DataSet = New DataSet()

Try
' DB接続文字列の設定

con.ConnectionString = "Provider=MySQLProv;Data Source=localhost;User Id=root;Password=000000;"

' コネクションの設定
cmd.Connection = con

' SQL文の設定
cmd.CommandText = SELECT_発注データ

            ' データを取得する
            da.SelectCommand = cmd
            da.Fill(syain)    ・・・・  ★★★

Catch ex As Exception
' 例外が発生した時の処理

End Try

とくま 2011-11-08 21:57:16 No: 103110

マルチポスト
http://qanda.rakuten.ne.jp/qa7118864.html
マルチポストが嫌われる理由
http://stakasaki.at.webry.info/200512/article_3.html

> 環境：Visual Basic2008
この掲示板は VB6.0 以前の質問用ですので板違いです。

エラーメッセージで事例を検索してみましたが、特定の
原因で出るとは限らないようですね。
問題をできるだけ切り分けるようにして下さい。

ConnectionString を設定した時点で con.Open が
通ればデータベースへの接続は問題ないと判断できます。
通らなければ、接続文字列の問題です。

接続に問題なければ、SQL の問題だと考えるのが自然です。

OS のシステムログや、データベースの実行ログを確認して、
原因をもっと明確に出力している情報がないか確認して下さい。