【VB6|第21期】检查SqlServer数据库置疑损坏的小工具（含源码）

news2024/11/25 10:06:36

日期：2023年7月25日
作者：Commas
签名：(ง •_•)ง 积跬步以致千里,积小流以成江海……
注释：如果您觉得有所帮助，帮忙点个赞，也可以关注我，我们一起成长；如果有不对的地方，还望各位大佬不吝赐教，谢谢^ - ^
1.01365 = 37.7834；0.99365 = 0.0255
1.02365 = 1377.4083；0.98365 = 0.0006

在这里插入图片描述

文章目录

  • 一、前言
  • 二、使用说明
    • （2-1）数据库连接测试
    • （2-2）数据库完整性检测
  • 三、实现思路
    • （3-1）数据库连接测试
    • （3-2）数据库完整性检测
  • 四、完整源码

一、前言

在这里插入图片描述
当用户电脑、或者我们所要操作的电脑没有 SQL Server Management Studio ，而我们又想确定 SqlServer 中某个数据库是否损坏的时候，这个时候就有点难办了，只能硬着头皮先安装这种大块头的工具，然后再写 DBCC CHECKDB 的语句检测问题，时间基本都花到了安装软件上了。

为了解决这个问题，不妨自己做一个小工具，如下所示：

在这里插入图片描述

二、使用说明

（2-1）数据库连接测试

输入服务器名称、用户名登录名以及数据库密码，点击【数据库连接测试】按钮，可以测试参数是否正确；在这里插入图片描述

（2-2）数据库完整性检测

填写需要检测的数据库名称 ，点击【开始检测】按钮

  • 正确：在这里插入图片描述

  • 数据库置疑的错误：
    在这里插入图片描述

  • 数据库不存在的错误：
    在这里插入图片描述

三、实现思路

实现思路很简单，先实现正常连接数据库功能，再实现数据库检测的功能，如下：

（3-1）数据库连接测试

可以通过 CN.Open 和 CN.State （其中 Dim CN As New ADODB.Connection）来判断是否可以正常连接上数据库；

Private Sub CmdPing_Click()
On Error Resume Next
    
    Dim sErr As String: sErr = ""
    Dim CN As New ADODB.Connection
    
    CN.ConnectionString = getConnectionString()
    
    CN.Open

    If CN.State = adStateOpen Then
        MsgBox "连接成功！"
        CN.Close
    Else
        MsgBox "连接失败：" & err.Description
    End If

    Set CN = Nothing
End Sub

其中，获取数据库连接字符串的函数如下所示：

Private Function getConnectionString(Optional ByVal isWinLogin As Boolean = False, Optional ByVal sDbName As String = "master") As String
On Error Resume Next
'函数说明：获取数据库连接字符串
'创建作者：Commas
'创建时间：2023-07-25
'修改时间：
'------传参说明------
'isWinLogin：是否采用 “Windows 身份验证”，默认采用 “SQL Server 身份验证”；
'sDbName：指定需要连接的数据库，默认为master
'------传参说明------
    Dim sCNStr As String
    If isWinLogin Then
        sCNStr = "Provider=SQLOLEDB;Data Source={ServerName};Initial Catalog={DatabaseName};Trusted_Connection=Yes;Persist Security Info=True;"
        If Trim(Me.TxtDB(0).Text) = "127.0.0.1" Then
            sCNStr = Replace(sCNStr, "{ServerName}", ".")
        Else
            sCNStr = Replace(sCNStr, "{ServerName}", Trim(Me.TxtDB(0).Text))
        End If
        sCNStr = Replace(sCNStr, "{DatabaseName}", "master")
    Else
        sCNStr = "Provider=SQLOLEDB;Data Source={ServerName};Initial Catalog={DatabaseName};User Id={Username};Password={Password};"
        '也可以先不指定 Initial Catalog={DatabaseName};
        'sCNStr = "Provider=SQLOLEDB;Data Source={ServerName};User Id={Username};Password={Password};"
        
        sCNStr = Replace(sCNStr, "{ServerName}", Trim(Me.TxtDB(0).Text))
        sCNStr = Replace(sCNStr, "{DatabaseName}", "master")
        sCNStr = Replace(sCNStr, "{Username}", Trim(Me.TxtDB(1).Text))
        sCNStr = Replace(sCNStr, "{Password}", Trim(Me.TxtDB(2).Text))
    End If
    getConnectionString = sCNStr
End Function

（3-2）数据库完整性检测

首先，我们用 SQL 先进行数据库数据库检查，如下：

DBCC CHECKDB ('<DataBaseName>') WITH NO_INFOMSGS;

其中，<DataBaseName> 改为需要检测的数据库名称。

接着，我们借用 CN.Errors （其中 Dim CN As New ADODB.Connection）来捕获精确的错误信息。当执行数据库查询或操作时，ADO 对象会自动将错误信息添加到 Errors 集合中，我们可以通过检查该集合来获取更详细的错误信息，包括错误号、错误描述和可能的原因等。

CN.Execute "DBCC CHECKDB ('" & sDbName & "') WITH NO_INFOMSGS;"
If CN.Errors.Count > 0 Then
    ' 捕获错误并进行相应的处理
    Dim errMsg As ADODB.Error
    For Each errMsg In CN.Errors
        'MsgBox "错误号：" & errMsg.Number & vbCrLf & "错误描述：" & errMsg.Description, vbExclamation
        If InStr(errMsg.Description, "表错误") > 0 Then
            If sErr <> "" Then sErr = sErr & Chr(10)
            sErr = sErr & errMsg.Description
        End If
    Next errMsg
    
    Err.Clear
End If

四、完整源码

Option Explicit

Private Function getConnectionString(Optional ByVal isWinLogin As Boolean = False, Optional ByVal sDbName As String = "master") As String
On Error Resume Next
'函数说明：获取数据库连接字符串
'创建作者：Commas
'创建时间：2023-07-26
'修改时间：
'------传参说明------
'isWinLogin：是否采用 “Windows 身份验证”，默认采用 “SQL Server 身份验证”；
'sDbName：指定需要连接的数据库，默认为master
'------传参说明------
    Dim sCNStr As String
    If isWinLogin Then
        sCNStr = "Provider=SQLOLEDB;Data Source={ServerName};Initial Catalog={DatabaseName};Trusted_Connection=Yes;Persist Security Info=True;"
        If Trim(Me.TxtDB(0).Text) = "127.0.0.1" Then
            sCNStr = Replace(sCNStr, "{ServerName}", ".")
        Else
            sCNStr = Replace(sCNStr, "{ServerName}", Trim(Me.TxtDB(0).Text))
        End If
        sCNStr = Replace(sCNStr, "{DatabaseName}", "master")
    Else
        sCNStr = "Provider=SQLOLEDB;Data Source={ServerName};Initial Catalog={DatabaseName};User Id={Username};Password={Password};"
        '也可以先不指定 Initial Catalog={DatabaseName};
        'sCNStr = "Provider=SQLOLEDB;Data Source={ServerName};User Id={Username};Password={Password};"
        
        sCNStr = Replace(sCNStr, "{ServerName}", Trim(Me.TxtDB(0).Text))
        sCNStr = Replace(sCNStr, "{DatabaseName}", "master")
        sCNStr = Replace(sCNStr, "{Username}", Trim(Me.TxtDB(1).Text))
        sCNStr = Replace(sCNStr, "{Password}", Trim(Me.TxtDB(2).Text))
    End If
    getConnectionString = sCNStr
End Function

Private Sub CmdPing_Click()
On Error Resume Next
    
    Dim sErr As String: sErr = ""
    Dim CN As New ADODB.Connection
    
    CN.ConnectionString = getConnectionString()
    
    CN.Open

    If CN.State = adStateOpen Then
        MsgBox "连接成功！"
        CN.Close
    Else
        MsgBox "连接失败：" & Err.Description
    End If

    Set CN = Nothing
End Sub

Private Sub CheckDatabaseIntegrity(ByVal sDbName As String)
On Error Resume Next
'函数说明：获取数据库连接字符串
'创建作者：Commas
'创建时间：2023-07-25
'修改时间：
'------传参说明------
'sDbName：指定需要连接的数据库，默认为master
'------传参说明------
    Dim sErr As String: sErr = ""
    Dim CN As New ADODB.Connection
    
    ' 设置数据库连接字符串
    CN.ConnectionString = getConnectionString()
    
    ' 打开数据库连接
    CN.Open
    
    ' 设置要执行的 SQL 查询
    CN.Execute "DBCC CHECKDB ('" & sDbName & "') WITH NO_INFOMSGS;"
    If CN.Errors.Count > 0 Then
        ' 捕获错误并进行相应的处理
        Dim errMsg As ADODB.Error
        For Each errMsg In CN.Errors
            'MsgBox "错误号：" & errMsg.Number & vbCrLf & "错误描述：" & errMsg.Description, vbExclamation
            If InStr(errMsg.Description, "表错误") > 0 Then
                If sErr <> "" Then sErr = sErr & Chr(10)
                sErr = sErr & errMsg.Description
            End If
        Next errMsg
        
        Err.Clear
    End If
    
    ' 关闭数据库连接
    CN.Close

    If sErr <> "" Then
        MsgBox "【" & "SuperMarket" & "】检测异常,详情如下：”" & Chr(10) & sErr
    Else
        MsgBox "【" & sDbName & "】检测正常"
    End If
End Sub
        
Private Sub CmdRun_Click()
On Error Resume Next
    Call CheckDatabaseIntegrity(Me.TxtDB(3).Text)
End Sub

版权声明：本文为博主原创文章，如需转载，请给出：
原文链接：https://blog.csdn.net/qq_35844043/article/details/131915284

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处：http://www.coloradmin.cn/o/794731.html

如若内容造成侵权/违法违规/事实不符，请联系多彩编程网进行投诉反馈，一经查实，立即删除！

相关文章

Java反射类private私有变量Map并赋值

Java反射类private私有变量Map并赋值

Java反射类private私有变量Map并赋值 import java.util.LinkedHashMap; import java.util.Map;public class MyObj {private String KEY "NAME";//目标是通过反射在外部访问cacheprivate Map<String, String> cache new LinkedHashMap<>();public MyOb…
阅读更多...
mac 删除自带的ABC输入法保留一个搜狗输入法，搜狗配置一下可以减少很多的敲击键盘和鼠标点击次数

mac 删除自带的ABC输入法保留一个搜狗输入法，搜狗配置一下可以减少很多的敲击键盘和鼠标点击次数

0. 背景 对于开发者来说&#xff0c;经常被中英文切换输入法所困扰&#xff0c;我这边有一个方法&#xff0c;删除mac默认的ABC输入法 仅仅保留搜狗一个输入法&#xff0c;配置一下搜狗输入&#xff1a;哪些指定为英文输入&#xff0c;哪些指定为中文输入&#xff08;符号也可…
阅读更多...
七、Kafka源码分析之网络通信

七、Kafka源码分析之网络通信

1、生产者网络设计 架构设计图 2、生产者消息缓存机制 1、RecordAccumulator 将消息缓存到RecordAccumulator收集器中, 最后判断是否要发送。这个加入消息收集器&#xff0c;首先得从 Deque 里找到自己的目标分区&#xff0c;如果没有就新建一个批量消息 Deque 加进入 2、消…
阅读更多...
限幅器(信捷PLC C语言FC功能函数)

限幅器(信捷PLC C语言FC功能函数)

关于限幅器的算法介绍，请参考下面博客文章，这里不再赘述，受水平和能力所限文中难免出现错误和不足之处，欢迎大家批评指正。 限幅器算法介绍 PLC信号处理系列之限幅器（Saturation）_RXXW_Dor的博客-CSDN博客TITLE=限幅器VAR_INPUTrX:REAL;// 输出值// 上限到达 FALSE: Up…
阅读更多...
RT thread 之 Nand flash 读写过程分析

RT thread 之 Nand flash 读写过程分析

文章目录 前言&#xff1a;什么是Nand Flash&#xff1f;1、Nand Flash 读取步骤2、从主存读到Cache2.1 在标准spi接口下读取过程2.2 测试时序&#xff08;SPI频率30MHz&#xff09; 3.从Cache读取数据3.1在标准spi接口读取过程测试时序 前言&#xff1a;什么是Nand Flash&…
阅读更多...
服务器数据恢复-误操作导致存储VDisk丢失的数据恢复案例

服务器数据恢复-误操作导致存储VDisk丢失的数据恢复案例

服务器数据恢复环境&#xff1a; IBM某型号存储&#xff1b; Solaris操作系统&#xff0c;部署Oracle数据库。 服务器故障&#xff1a; 重建MDisk导致对应的存储池中的VDisk丢失&#xff0c;导致Solaris操作系统中的Oracle数据库无法使用。 服务器数据恢复过程&#xff1a; 1、…
阅读更多...
【如何训练一个中英翻译模型】LSTM机器翻译模型部署之ncnn（python）（五）

【如何训练一个中英翻译模型】LSTM机器翻译模型部署之ncnn（python）（五）

系列文章 【如何训练一个中英翻译模型】LSTM机器翻译seq2seq字符编码&#xff08;一&#xff09; 【如何训练一个中英翻译模型】LSTM机器翻译模型训练与保存&#xff08;二&#xff09; 【如何训练一个中英翻译模型】LSTM机器翻译模型部署&#xff08;三&#xff09; 【如何训练…
阅读更多...
MTK系统启动流程

MTK系统启动流程

MTK系统启动流程 boot rom -> preloader ->lk ->kernel ->Native -> Android 1、Boot rom:系统开机&#xff0c;最先执行的是固化在芯片内部的bootrom&#xff0c;其作用主要有 a.初始化ISRAM和EMMC b.当系统全擦后 &#xff0c;也会配置USB&#xff0c;用来仿…
阅读更多...
Android：RecyclerView封装，打造列表极简加载

Android：RecyclerView封装，打造列表极简加载

前言 mBinding.recycler.linear().divider().set<OrdinaryListBean> {addLayout(R.layout.layout_ordinary_item)}.setList(getList()) 如果我要说&#xff0c;除了数据和布局之外&#xff0c;以上的几行代码&#xff0c;就实现了一个列表加载&#xff0c;有老铁会相信…
阅读更多...
T形积木（T puzzle）

T形积木（T puzzle）

目录 积木绘制 积木拼接 练习 1. 停止标志 2. 跳跃旋转 3. 小步平移 积木绘制 &#xff08;1&#xff09;复数欧拉公式&#xff1a; &#xff08;2&#xff09;复数的极坐标形式&#xff1a; 其中 &#xff08;3&#xff09;T形积木问题利用了复数乘以将该复数值旋转b角的…
阅读更多...
Spring源码解析(五)：循环依赖

Spring源码解析(五)：循环依赖

Spring源码系列文章 Spring源码解析(一)&#xff1a;环境搭建 Spring源码解析(二)&#xff1a;bean容器的创建、默认后置处理器、扫描包路径bean Spring源码解析(三)&#xff1a;bean容器的刷新 Spring源码解析(四)&#xff1a;单例bean的创建流程 Spring源码解析(五)&…
阅读更多...
Ubuntu 20.04.4 LTS安装Terminator终端（Linux系统推荐）

Ubuntu 20.04.4 LTS安装Terminator终端（Linux系统推荐）

Terminator终端可以在一个窗口中创建多个终端&#xff0c;并且可以水平、垂直分割&#xff0c;运行ROS时很方便。 sudo apt install terminator这样安装完成后&#xff0c;使用快捷键Ctrl Alt T打开的就是新安装的terminator终端&#xff0c;可以使用以下方法仍然打开ubuntu默…
阅读更多...
IAR for STM8L标准库基于DMP库驱动MPU6050

IAR for STM8L标准库基于DMP库驱动MPU6050

IAR for STM8L标准库基于DMP库驱动MPU6050 ✨移植到STM8上&#xff0c;主要对接的是I2C对应的接口函数&#xff0c;也没有什么难度&#xff0c;该型号目前不属于新设计推荐的型号了&#xff0c;如果使用DMP库最好还是需要配合磁力计才能输出比较稳定的数据&#xff0c;使用MPU9…
阅读更多...
【App管理04-Bug修正 Objective-C语言】

【App管理04-Bug修正 Objective-C语言】

一、咱们刚才已经把这个给大家做完了吧 1.这个Label怎么显示到上面去了， 我们现在是把它加到我们的控制器的View里面吧 我们看一下这个坐标是怎么算的，来，我们找一个坐标， 咱们的坐标，是不是用这个View的frame，减的吧 来，咱们在这里，输出一下这个Frame，看一下吧 在…
阅读更多...
idea的Plugins中搜索不到插件

idea的Plugins中搜索不到插件

1、ctrlalts 打开设置 ; 2、搜索框输入plugins; 3、点击plugins; 4、点齿轮按钮&#xff0c;选择HTTP Proxy settings; 如下操作&#xff1a; 5、刷新DNS&#xff0c;ipconfig /flushdns 6、重新打开idea 的plugins 插件列表出来了
阅读更多...
EC200U-CN学习(五)

EC200U-CN学习(五)

预留抓取CP日志 U15-B引脚学习 LOUDSPK_P: 一个连接到一个功率放大器的音频输出引脚。 MIC_P: MIC_P是一个用于连接麦克风的阳性引脚。通常情况下&#xff0c;MIC_P引脚用于连接麦克风的正极&#xff0c;而MIC_N引脚则用于连接麦克风的负极。麦克风的正极和负极之间通常需要连…
阅读更多...
springboot+mybatis-plus+vue+element+vant2实现短视频网站，模拟西瓜视频移动端

springboot+mybatis-plus+vue+element+vant2实现短视频网站，模拟西瓜视频移动端

目录 一、前言 二、管理后台 1.登录 2.登录成功&#xff0c;进入欢迎页 ​编辑 3.视频分类管理 4. 视频标签管理 5.视频管理 6.评论管理 ​编辑 7.用户管理 8.字典管理 &#xff08;类似于后端的枚举&#xff09; 9.参数管理&#xff08;富文本录入&#xff09; 10.管…
阅读更多...
Flask get post请求

Flask get post请求

Flask get &post请求 一、环境描述二、初始化flask 程序三、get请求3.1 代码3.2 分析3.3 验证3.4 请求结果 四、post请求4.1 代码4.2 分析4.3 验证4.3.1 postman 请求头application/json参数4.3.2 postman 请求头application/x-www-form-urlencoded参数4.3.3 postman 请求头…
阅读更多...
【ESP32】Espressif-IDE及ESP-IDF安装

【ESP32】Espressif-IDE及ESP-IDF安装

一、下载Espressif-IDE 2.10.0 with ESP-IDF v5.0.2 1.打开ESP-IDF 编程指南 2.点击快速入门–>安装–>手动安装–>Windows Installer–>Windows Installer Download 3.点击下载Espressif-IDE 2.10.0 with ESP-IDF v5.0.2 二、安装Espressif-IDE 2.10.0 wit…
阅读更多...
Docker 全栈体系（七）

Docker 全栈体系（七）

Docker 体系&#xff08;高级篇&#xff09; 五、Docker-compose容器编排 1. 是什么 Compose 是 Docker 公司推出的一个工具软件&#xff0c;可以管理多个 Docker 容器组成一个应用。你需要定义一个 YAML 格式的配置文件docker-compose.yml&#xff0c;写好多个容器之间的调…
阅读更多...
推荐文章
最新文章

Copyright @ 2022~2023