tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトル件数表示
記事No6146
投稿日: 2007/08/25(Sat) 16:50
投稿者なぎ
初歩的な質問で申し訳ありませんが、

下記のような構文で契約DBの件数を表示させたいのですが、
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 契約DB  ;")
        msgbox(rs)

        'DBクローズ
        objConn.close()

VB.NET 2005/MySQL/OS:WinXP

[ツリー表示へ]
タイトルRe: 件数表示
記事No6148
投稿日: 2007/08/26(Sun) 03:49
投稿者魔界の仮面弁士
> 下記のような構文で契約DBの件数を表示させたいのですが、

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 の使用有無によって変化します。

[ツリー表示へ]
タイトルRe^2: 件数表示
記事No6160
投稿日: 2007/08/27(Mon) 13:23
投稿者なぎ
魔界の仮面弁士さま

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

[ツリー表示へ]