tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルVB6.0でDBの存在確認
記事No13437
投稿日: 2009/02/18(Wed) 14:18
投稿者asuka
件名の通り実装が出来ずに困っております。

下記にようにコーディングしているのですが、肝心の『COUNT』数はどのように取得すればよろしいのでしょうか?

'■変数宣言
Dim conhdb As ADODB.Connection 'コネクションオブジェクト
Dim rsthdb As ADODB.Recordset  'レコードセットオブジェクト

'■オブジェクト生成
Set conhdb = New ADODB.Connection 'コネクションオブジェクトの作成
Set rsthdb = New ADODB.Recordset  'レコードセットオブジェクトの作成
On Error GoTo LB1  

conhdb = "Provider=" & sSQLProvider & "; " & sSQL_ConnectionID & "; " & _
                "Data Source=" & sServerName & ";DATABASE = 'master'"
conhdb.Open
On Error GoTo LB2

rsthdb.Open "SELECT COUNT(*) FROM sysdatabases WHERE name='master'", conhdb, , , adCmdText
----

最後の行でCOUNT数が取得出来ればDBが存在するか否かがわかると思うのですが、その方法が分からないでおります。

ご教授頂ければ幸いです。

[ツリー表示へ]
タイトルRe: VB6.0でDBの存在確認
記事No13439
投稿日: 2009/02/18(Wed) 15:22
投稿者魔界の仮面弁士
> 最後の行でCOUNT数が取得出来ればDBが存在するか否かがわかると思うのですが、

If Not rsthdb.EOF Then
  Debug.Print rsthdb.Collect(0)
End If

[ツリー表示へ]
タイトルRe^2: VB6.0でDBの存在確認
記事No13440
投稿日: 2009/02/18(Wed) 18:13
投稿者asuka
> > 最後の行でCOUNT数が取得出来ればDBが存在するか否かがわかると思うのですが、
>
> If Not rsthdb.EOF Then
>   Debug.Print rsthdb.Collect(0)
> End If

全く知らないやり方でしたので非常にためになりました。

無事に解決致しました。

ありがとうございます。

[ツリー表示へ]