Question

我使用以下代码检查我的数据库是否有任何问题/需要排除故障：

Dim cmd As New SqlCommand("DBCC CHECKDB (offpoDb) WITH TABLERESULTS", con)
Dim reader As SqlDataReader = cmd.ExecuteReader
executing.Content = "Checking datatabse for errors"
executing.Margin = New Thickness(243, 111, 0, 0)
While reader.Read
    strBuilder.AppendLine(CStr(reader("MessageText")))
End While
reader.Close()
MessageBox.Show(strBuilder.ToString)

现在，DBCC CHECKDB命令可能会产生如下内容：

CHECKDB found 0 allocation errors and 15 consistency errors in database 'mydb

可以修复以下SQL查询：

ALTER DATABASE AdventureWorks2008R2 SET SINGLE_USER WITH ROLLBACK 
IMMEDIATE;
BEGIN TRANSACTION;
DBCC CHECKDB ('AdventureWorks2008R2', REPAIR_ALLOW_DATA_LOSS);
ALTER DATABASE AdventureWorks2008R2 SET MULTI_USER;

但是在通过我的应用程序执行以下查询之前，有没有办法知道DBCC CHECKDB是否真的返回了任何错误？因为没有任何错误，修复数据库将毫无用处......

任何帮助？

我想要的想法

我正在考虑将字符串从strBuilder添加到文本框。将检查文本框是否有以下行CHECKDB found 0 allocation errors and 15 consistency errors in database的可用性。

但这仍然是不可能的，因为该行可能会不时出现。例如

CHECKDB found 0 allocation errors and 15 consistency errors

CHECKDB found 1 allocation errors and 14 consistency errors

有更好的想法吗？

Answer 1

有多种可能性：

<强> 1
在命令中添加NO_INFOMSGS选项。
如果没有找到错误，将不会返回任何记录。

DBCC CHECKDB (dname) WITH TABLERESULTS, NO_INFOMSGS

<强> 2
阅读Level栏的值。如果一个高于10，则会发生错误。（Reference）
您可以获得的DBCC错误列表：

SELECT * FROM sys.sysmessages 
WHERE description LIKE '%checkdb%' AND msglangid = 1033 AND severity > 10

第3
检查结果字符串中是否有高于0的数字。

For Each c As Char In "CHECKDB found 0 allocation errors and 15 consistency errors" If (Char.IsNumber(c)) AndAlso Integer.Parse(c) > 0 Then 'Errors occured End If Next

DBCC CheckDb-任何检测错误的方法vb.net？

1 个答案: