初歩的な質問で申し訳ありませんが、

下記のような構文で契約ＤＢの件数を表示させたいのですが、
msgboxの部分で"引数 'Prompt' は型 'String' に変換できません。"
のエラーになります件数の表示を行うにはどのようにしたらよいのでしょうか？


    Public rs As Object
        '共通変数値設定
        MyConString = "DRIVER={MySQL ODBC 3.51 Driver};" + _
                           "SERVER=localhost;" + _
                          "PORT=3306;" + _
                         "DATABASE=****;" + _
                        "UID=****;" + _
                       "PASSWORD=****;" + _
                      "OPTION=3"
        objConn = CreateObject("ADODB.Connection")
        objConn.ConnectionString = MyConString

        'DBオープン
        objConn.Open()

        rs = objConn.Execute("select count(*) from 契約ＤＢ  ;")
        msgbox(rs)

        'DBクローズ
        objConn.close()

VB.NET 2005/MySQL/OS:WinXP

> 下記のような構文で契約ＤＢの件数を表示させたいのですが、

ADO.NET が使えない事情がおありなのでしょうか?
だとしても、せめて、PIA を使うべきだとは思いますけれども。

サンプルとしての提示ならば良いですが、このまま使用し続けるには
問題があるので、ReleaseComObject の解放処理なども盛り込んでおきましょう。

> のエラーになります件数の表示を行うにはどのようにしたらよいのでしょうか？
MsgBox(rs.Fields(0).Value) ですかね。
もう少し正確に言えば、
　Dim fields As Object = rs.Fields
　Dim field As Object = fields(0)
　Dim value As Object = field.Value
　MsgBox(value)
という感じですが。

# どの変数が解放対象となるかは、PIA の使用有無によって変化します。

魔界の仮面弁士さま

ありがとうございます
開放処理のみなおしを早速したいと思います
ご指摘ありがとうございます