VB.NETでDBCC CHECKDBの結果を取得する

当ブログの記事、EXCEPTION_ACCESS_VIOLATIONアサーションエラーのような現象がおきたときに、
DBCC CHECKDBを実行することがあります。

これをVB.NETで行います。
シングルユーザーモードにした後で、接続を閉じるとDBCC CHECKDBが実行できなくなります。
ソースコードを書きます。


Dim sSQL As String 'SQL文
Dim sDBNAME As String 'データベース名
Dim cnSQL As SqlConnection 'SQLコネクション
Dim sConSQL As String '接続文字列
Dim objCom As SqlCommand
Dim dtReader As SqlDataReader
Dim sText As String
Dim i As Integer

'接続文字列はmasterに接続するようにします。
'シングルユーザーモードにする
sSQL = "ALTER DATABASE " & sDBNAME & " SET SINGLE_USER"
cnSQL = New SqlConnection(sConSQL)
cnSQL.Open()
objCom = New SqlCommand(sSQL, cnSQL)
objCom.ExecuteNonQuery()
'ここで接続を閉じないようにします。
'DBCC CHECKDBのコマンドをデータリーダーで実行します。
'WITH TABLERESULTSをつけることにより、
'結果がテーブルとして返ってきます。
sSQL = "DBCC CHECKDB('" & sDBNAME & "',"
sSQL &= "REPAIR_ALLOW_DATA_LOSS) WITH TABLERESULTS"
objCom = New SqlCommand(sSQL, cnSQL)
dtReader = objCom.ExecuteReader
'結果を1行ずつ読み込みます。
'どんなテーブルなのかわからなかったので、
'1列ずつカンマ区切りで取得しました。
Do While dtReader.Read()
For i = 0 To dtReader.FieldCount - 1
If Not IsDBNull(dtReader.Item(i)) Then
sText &= dtReader.Item(i)
End If
sText &= ", "
Next
sText &= vbCrLf
Loop
dtReader.Close()
'マルチユーザーモードにします。
sSQL = "ALTER DATABASE " & sDBNAME & " SET MULTI_USER"
cnSQL = New SqlConnection(sConSQL)
cnSQL.Open()
objCom = New SqlCommand(sSQL, cnSQL)
objCom.ExecuteNonQuery()
'接続を閉じます。
cnSQL.Close()
posted by VB.NET+MSDE+ActiveReports at 15:29 | Comment(10) | TrackBack(0) | VB.NET
この記事へのコメント
http://www.jk-jk-jk.com/deai/46_01.html
暇してるヒトォー遊んでぇ〜くらは〜ぃ
Posted by イロハを教えて at 2011年08月11日 08:50
http://www.jbus.biz/
私の全てをじっくりネットリ見て欲しいな
Posted by 色々教えて欲しいナ! at 2011年08月29日 07:36
http://pr1.adadgjgj.com/
アソコからお汁が滴りっぱなしのM女を皆様のおもちゃにして下さい
Posted by 女子大☆はづき at 2012年03月22日 06:07
http://xn--cck0cya3l.faith-go.net/
普段出せない自分を表現することが出来るので、とても幸せ
Posted by ちょっとドキドキ at 2012年08月11日 16:39
http://xn--fkqr09a.auauauauau.com/
あなた好みにしっちゃってください♪
Posted by 即もOKです♪ at 2012年09月27日 15:39
http://mobi1.i15.biz/
してみない?絶対に楽しいとおもうんだけどなぁ♪
Posted by 興味ありあり at 2012年12月22日 01:07
http://xxx.mangasa06.info/
男性経験ないけど 頑張ってみます
Posted by あきほです at 2013年01月28日 02:12
http://pr33.fren.biz/
気持ちぃとこや、やり方色々教えてね♪
Posted by フェラ大好き at 2013年04月03日 06:48
zpzvmwcepuofuntef/tcmp/kq, Book Of RA Online, EAupTph, [url=http://edmundfournier.com/]Book Of RA Online[/url], TLFEiCG, http://edmundfournier.com/ Online casino book of ra, pbigHQt.
Posted by Online テ青コテ青ーテ青キテ青クテ青ステ青セ book of ra deluxe at 2013年05月09日 06:27
http://pr1.adult-99b.com/001.html
大きいの見せられると大興奮しますww
Posted by ヌギヌギ開始 at 2013年07月03日 06:10
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

この記事へのTrackBack URL
http://blog.sakura.ne.jp/tb/29109643