我编写的DB类

最新推荐文章于 2021-04-23 19:34:21 发布
最新推荐文章于 2021-04-23 19:34:21 发布
阅读量1k 收藏
点赞数
分类专栏： 个人作品 文章标签： sql server exception string security function microsoft
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ft1612796/article/details/542177
版权
''DB组件
Imports System.Data.SqlClient
'数据库类型
Public Enum DBKind
    SQL         'SQL Server
    ORACLE      'Oracle
    DB2
    ACCESS
    TEST
End Enum
Public Class Database
#Region " 变量 "

    '属性变量
    Private _databaseKind As String
    Private _errorMessage As String
    Private _databaseState As String

    '连接的数据库种类
    Private dbServer As DBKind
    'Transaction变量
    Private sqlTrans As SqlTransaction
    '事务状态
    Private useTrans As Boolean

    'Connection类变量
    Private cnSQL As SqlConnection                      'QLDB default use SQL SERVER
    Private cnORACLE As OracleClient.OracleConnection   'ORACLEDB default use ORACLE
    Private cnDB2 As SqlConnection                      'DB2DB default use DB2
    Private cnTEST As SqlConnection                     'TESTDB default use TEST

#End Region

#Region " 构造函数 "

    Sub New()
    End Sub

    '四种.NET数据提供程序
    '   1)  SQL Server .NET Framework 数据提供程序；
    '       连接字符串必要信息：
    '           方案一：Data Source/Server/Address/Addr/Network Address + Initial Catalog/Database +
Integerated Security/Trusted_Connection=SSPI/True/yes
    '           方案二：Data Source/Server/Address/Addr/Network Address + Initial Catalog/Database +
Integerated Security/Trusted_Connection=false(默认值）/no + User ID + Password/Pwd
    '           例子： 1) "Server=(local);Database=CustomerManagement;Integrated Security=SSPI" 本
机SQL Server
    '                  2) "Server=xj;database=CustomerManagement;Integrated Security=SSPI"  远程
SQL Server
    '                  3) "Server=xj;database=CustomerManagement;Integrated Security=fasle;User
Id=book;Password=bookpwd"  远程SQL Server
    '   2)  Oracle .NET Framework 数据提供程序；
    '       连接字符串必要信息：与SQL Server类似
    '           例子： 1) "Data source=xj;Integrated Security=yes"
    '                  2) "Data source=xj;Integrated Security=false;User
ID=myUserID;Password=123456"
    '   3)  OLE DB .NET Framework 数据提供程序；
    '       连接字符串信息：Provider关键字/值对 + 其余部分
    '           例子： 1) SQL Server    "Provider=SQLOLEDB;Data
source=xj;Database=CustomerManagement;Integrated Security=SSPI"
    '                  2) Oracle        "Provider=MSDAORA;Data source=xj;Persist Security
Info=false;Integrated Security=yes"
    '                  3) Access        "Provider=Microsoft.jet.oledb.4.0;Data
source=c:/bin/localaccess40.mdb"
    '   4)  ODBC .NET Framework 数据提供程序。
    '           方案一：连接字符串（语法要与基础驱动程序所支持的内容完全匹配）与OLE DB类似
    '               例子：  1) SQL Server    "Driver={SQL Server};server=xj;Integrated
Security=SSPI;Database=CustomerManagement"
    '                       2) Oracle        "Driverr={Microsoft ODBC for Oracle};server=xj;Persist
Security Info=false;Integrated Security=yes"
    '                       3) Access        "Driver={Microsoft Access Driver
(*.mdb);DBQ=c:/bin/localaccess40.mdb"
    '                       4) Excel         "Driver={Microsoft Excel Driver
(*.xls);DBQ=c:/bin/book1.xls"
    '           方案二：DSN
    Sub New(ByVal userID As String, ByVal userPassword As String, ByVal db As DBKind)

        dbServer = db
        Select Case dbServer
            Case DBKind.SQL 'connect to SQLDB-- SQL SERVER
                '1)  SQL Server .NET Framework 数据提供程序 方案二
                Dim cnString As String
                Dim sqlDA As SqlDataAdapter
                cnString = "data source=tet;initial catalog=hisdb;Integrated Security=false;user id=" &
userID & ";password=" & userPassword & ""
                _databaseKind = "SQL Server"
                cnSQL = New SqlConnection(cnString)
                sqlDA = New SqlDataAdapter

            Case DBKind.ORACLE ' connect to ORACLEDB-- ORACLE
                ' 相应的处理程序
            Case DBKind.DB2 'connect to DB2DB-- DB2
                ' 相应的处理程序
            Case DBKind.ACCESS
                '3)  OLE DB .NET Framework 数据提供程序；
                Dim cnString As String
                cnString = "DataSource = 'C:/Documents and Settings/xue/桌面
/hisdb.mdb';Provider='Microsoft.Jet.OLEDB.4.0';persist security info=false;user id=" & userID & ";password="
& userPassword & ""
                Dim cnAccess As OleDb.OleDbConnection = New OleDb.OleDbConnection(cnString)

            Case DBKind.TEST
                '1)  SQL Server .NET Framework 数据提供程序 方案二
                Dim cnString As String
                Dim sqlDA As SqlDataAdapter
                cnString = "data source=tet;initial catalog=hisdb;Integrated Security=SSPI"
                _databaseKind = "SQL Server"
                cnSQL = New SqlConnection(cnString)

        End Select

    End Sub

#End Region

#Region " 属性 "

    '错误信息
    Public ReadOnly Property errMsg() As String
        Get
            errMsg = _errorMessage
        End Get
    End Property
    '获取数据库类型
    Public ReadOnly Property getDataBaseKind() As String
        Get
            getDataBaseKind = _databaseKind
        End Get
    End Property
    '获取数据库状态
    Public ReadOnly Property getDbState() As String
        Get
            getDbState = _databaseState
        End Get
    End Property

#End Region

#Region " 方法 "

    '打开数据库连接
    Private Sub openDatabase()

        If Not cnSQL.State = ConnectionState.Open Then
            cnSQL.Open()
            _databaseState = "Open"
        End If

    End Sub
    '关闭数据库连接
    Private Sub closeDatabase()

        If cnSQL.State = ConnectionState.Open Then
            cnSQL.Close()
            _databaseState = "Close"
        End If

    End Sub
    '执行sql查询命令取得资料(DATATABLE格式)
    Public Overridable Function getData(ByVal sqlcommand As String, Optional ByVal returnTableName As
String = "TableName") As DataTable


        Select Case dbServer
            Case DBKind.SQL
                ' 相应的处理程序
            Case DBKind.ORACLE
                ' 相应的处理程序
            Case DBKind.DB2
                ' 相应的处理程序
            Case DBKind.ACCESS
                ' 相应的处理程序
            Case DBKind.TEST
                Dim sqlDA As New SqlDataAdapter
                sqlDA.SelectCommand = New SqlCommand(sqlcommand, cnSQL)
                getData = New DataTable(returnTableName)
                Call openDatabase()
                Try
                    sqlDA.Fill(getData)
                Catch ex As Exception
                    _errorMessage = ex.Message.ToString
                    Throw New Exception("")
                Finally
                    Call closeDatabase()
                End Try
        End Select

    End Function
    '执行sql查询命令取得DataTable的架构（列和约束）
    Public Overridable Function getSchema(ByVal sqlcommand As String, Optional ByVal returnTableName
As String = "TableName") As DataTable

        Select Case dbServer
            Case DBKind.SQL
                ' 相应的处理程序
            Case DBKind.ORACLE
                ' 相应的处理程序
            Case DBKind.DB2
                ' 相应的处理程序
            Case DBKind.ACCESS
                ' 相应的处理程序
            Case DBKind.TEST
                Dim sqlDA As New SqlDataAdapter
                sqlDA.SelectCommand = New SqlCommand(sqlcommand, cnSQL)
                getSchema = New DataTable(returnTableName)
                Call openDatabase()
                Try
                    sqlDA.FillSchema(getSchema, SchemaType.Mapped)
                Catch ex As Exception
                    _errorMessage = ex.Message.ToString
                    Throw New Exception("")
                Finally
                    Call closeDatabase()
                End Try
        End Select

    End Function
    '执行sql新增更新删除命令
    Public Overridable Function ExecuteNonQuery(ByVal sqlcommand As String) As Integer
        'execute SQL statement in (INSERTDELETE or UPDATE statement)

        Select Case dbServer
            Case DBKind.SQL
                ' 相应的处理程序
            Case DBKind.ORACLE
                ' 相应的处理程序
            Case DBKind.DB2
                ' 相应的处理程序
            Case DBKind.ACCESS
                ' 相应的处理程序
            Case DBKind.TEST
                Dim sqlCmd As SqlCommand = New SqlCommand(sqlcommand, cnSQL)
                If useTrans = True Then
                    sqlCmd.Transaction = sqlTrans
                    Try
                        ExecuteNonQuery = sqlCmd.ExecuteNonQuery()
                    Catch ex As Exception
                        _errorMessage = ex.Message.ToString
                        Throw New Exception("")
                    End Try
                Else
                    Call openDatabase()
                    ExecuteNonQuery = sqlCmd.ExecuteNonQuery()
                    Call closeDatabase()
                End If

        End Select

    End Function
    '执行sql查询命令只回传笔数
    Public Overridable Function ExecuteScalar(ByVal sqlcommand As String) As Integer

        Dim sqlDA As SqlDataAdapter
        Select Case dbServer
            Case DBKind.SQL
                ' 相应的处理程序
            Case DBKind.ORACLE
                ' 相应的处理程序
            Case DBKind.DB2
                ' 相应的处理程序
            Case DBKind.ACCESS
                ' 相应的处理程序
            Case DBKind.TEST
                Dim dtTemp As New DataTable
                sqlDA.SelectCommand = New SqlCommand(sqlcommand, cnSQL)
                Call openDatabase()
                Try
                    sqlDA.Fill(dtTemp)
                    ExecuteScalar = dtTemp.Rows.Count
                Catch ex As Exception
                    _errorMessage = ex.Message.ToString
                    Throw New Exception("")
                Finally
                    Call closeDatabase()
                End Try
        End Select

    End Function
    '进入交易状态
    Public Overridable Sub BeginTransaction()

        Select Case dbServer
            Case DBKind.SQL
                ' 相应的处理程序
            Case DBKind.ORACLE
                ' 相应的处理程序
            Case DBKind.DB2
                ' 相应的处理程序
            Case DBKind.ACCESS
                ' 相应的处理程序
            Case DBKind.TEST
                Try
                    Call openDatabase()
                    ' Start a local transaction
                    sqlTrans = cnSQL.BeginTransaction()
                    useTrans = True
                Catch ex As Exception
                    Call closeDatabase()
                    _errorMessage = ex.Message.ToString
                    Throw New Exception("")
                End Try
        End Select

    End Sub
    '交易成功,确认资料变更
    Public Overridable Sub Commit()

        Select Case dbServer
            Case DBKind.SQL
                ' 相应的处理程序
            Case DBKind.ORACLE
                ' 相应的处理程序
            Case DBKind.DB2
                ' 相应的处理程序
            Case DBKind.ACCESS
                ' 相应的处理程序
            Case DBKind.TEST
                Try
                    ' Commit a local transaction
                    sqlTrans.Commit()
                Catch ex As Exception
                    _errorMessage = ex.Message.ToString
                    Throw New Exception("")
                Finally
                    useTrans = False
                    Call closeDatabase()
                End Try
        End Select

    End Sub
    '交易失败,取消资料变更
    Public Overridable Sub Rollback()

        Select Case dbServer
            Case DBKind.SQL
                ' 相应的处理程序
            Case DBKind.ORACLE
                ' 相应的处理程序
            Case DBKind.DB2
                ' 相应的处理程序
            Case DBKind.ACCESS
                ' 相应的处理程序
            Case DBKind.TEST
                Try
                    ' Rollback a local transaction
                    sqlTrans.Rollback()
                Catch ex As Exception
                    _errorMessage = ex.Message.ToString
                    Throw New Exception("")
                Finally
                    useTrans = False
                    Call closeDatabase()
                End Try
        End Select

    End Sub
    '检查使用者帐号
    Public Overridable Function checkID(ByVal par As String) As Boolean

        Dim strSQL As String
        Select Case dbServer
            Case DBKind.SQL
                Dim ArrTmp() = par.Split(Microsoft.VisualBasic.ChrW(2))
                strSQL = "select LG_LOGIN,LG_PASSWORD,LG_GROUP from LOGIN where " &
"LG_LOGIN= '" & ArrTmp(0) & "' and LG_PASSWORD='" & ArrTmp(1) & "'"
                If ExecuteScalar(strSQL) > 0 Then
                    Return True
                Else
                    Return False
                End If
            Case DBKind.ORACLE
                ' 相应的处理程序
            Case DBKind.DB2
                ' 相应的处理程序
            Case DBKind.ACCESS
                ' 相应的处理程序
            Case DBKind.TEST
                Dim ArrTmp() = par.Split(Microsoft.VisualBasic.ChrW(2))
                If arrtmp(0) = "test" And arrtmp(1) = "test" Then
                    Return True
                Else
                    Return False
                End If
        End Select

    End Function
    '取得DB时间
    Public Overridable Function DBTime() As String

        Select Case dbServer
            Case DBKind.SQL
                DBTime = Now
            Case DBKind.ORACLE
                ' 相应的处理程序
            Case DBKind.DB2
                ' 相应的处理程序
            Case DBKind.ACCESS
                ' 相应的处理程序
            Case DBKind.TEST
                Dim strSQL As String = "select getdate() from login"
                Dim tbTmp As New DataTable
                Dim sqlDA As New SqlDataAdapter
                sqlDA.SelectCommand = New SqlCommand(strSQL, cnSQL)
                Call openDatabase()
                Try
                    sqlDA.Fill(tbTmp)
                    DBTime = tbTmp.Rows(0).Item(0).ToString
                Catch ex As Exception
                    _errorMessage = ex.Message.ToString
                    Throw New Exception("")
                Finally
                    Call closeDatabase()
                End Try
        End Select

    End Function

    ''重载的存储过程
    Public Function runStoreProc(ByVal strStoreProcName As String, ByVal strReturnTableName As String)
As DataTable
    End Function
    Public Function runStoreProc(ByVal strStoreProcName As String, ByVal strParametersName As String, ByVal strParametersValue As String, ByVal strReturnTableName As
String) As DataTable
    End Function
    Public Function runStoreProc(ByVal strStoreProcName As String, ByVal strParametersName As String,  ByVal strParametersValue As String, ByVal strParametersName2 As String, ByVal strParametersValue2 As String, ByVal strReturnTableName As String) As DataTable
    End Function
#End Region

End Class

ft1612796
关注
专栏目录
JavaWeb——教你写db数据库连接类
流浪~
12-31 6338
db连接类 db就是database（数据库），下面我讲演示如何通过java语言通过jdbc的方式来连接到你所要的数据库，本例中以oracle为参考。 代码实现首先我们先创造几个等会会用到的对象 创造一个数据库连接对象（Connection对象，代表与数据源进行的唯一会话。）。 创建编译语句对象（Statement对象，建立了到特定数据库的连接之后，就可用该连接发送 SQL 语句。）。 创建预编
DB总结
05-03
NoSQL概述.docx MySQL字段类型.docx MySQL概述.docx DB使用规范.docx DB基础.docx DB存储引擎.docx 博文链接：https://tomcyndi.iteye.com/blog/2427782
数据库类的编写
msy095041118的专栏
11-12 441
asp.net中app.code文件夹是专门用来存放一写用于全局的代码，数据库操作类包括：  Execsql方法用于执行sql语句，返回boolean型，主要实现对数据库中数据进行添加，修改，删除等操作，相应的功能执行成功返回true,否则返回false;  public Boolean ExecSql(string sQueryString)    {        SqlConnect
c# DBHelper类编写
Amos_duo
03-16 544
using System; using System.Collections.Generic; using System.Text; using System.Data; using System.Data.SqlClient; using System.Windows.Forms; namespace scut2015 { public class DBHelper { ...
DBHelper类的编写
在路上
11-22 2798
用sql语句来修改sa用户的登陆密码 分类:C#重要代码 方法１不要旧密码： alter login sa with password='sa' go 方法２： exec sp_password  null, 'cw' go 方法3: windows验证登
CSharp编写的OleDb数据库连接通用类库.rar_C#编写类库_Csharp 数据库_c#获得oledb版本_oledb
09-14
在本案例中，"CSharp编写的OleDb数据库连接通用类库.rar" 提供了一个用C#编写的类库，它封装了对OLEDB数据库的连接和操作，简化了数据库访问的过程。OLEDB是微软提出的一种数据访问接口，它可以访问多种数据源，包括...
rocksdb：用 C++ 编写的高性能键值存储引擎
06-28
rocksdb：用 C++ 编写的高性能键值存储引擎。该项目是由 Fackbook 数据库团队基于 levelDB 开发，键值均支持二进制流，能够充分利用多核 CPU 获得高性能，并兼容 levelDB 的 API 可谓是青出于蓝而胜于蓝。RocksDB ...
C#编写的OleDb数据库连接通用类库.7z
07-12
本篇将深入探讨标题和描述中提及的"C#编写的OleDb数据库连接通用类库"。 首先，OleDb（Object Linking and Embedding, Database）是一个微软的数据访问接口，允许开发者通过统一的方式访问多种数据源，包括关系型...
YCSB-cpp：用C ++编写的YCSB，用于LevelDB，RocksDB和LMDB
02-12
用C ++编写的云服务基准（ ）。 这是的叉子。 当前支持LevelDB，RocksDB和LMDB。 建筑 只需使用make即可构建。 仅绑定LevelDB： make BIND_LEVELDB=1 BIND_ROCKSDB=0 BIND_LMDB=0 或修改Makefile。 要使用其他...
封装类似thinkphp连贯操作数据库的Db类，单例模式，完全遵守tp写法的三方类，使用超级简单!
10-31
本人在做客服聊天系统的时候，用的原声的php编写，操作数据库的时候找了很久没有找到一个合适的链式的Db类，即便有但是没有用到单例模式，老是实例化耗资源，后来便萌生了自己编写一个好用的Db类，于是开始了封装,...
Laravel DB类SQL语句操作（CURD）
大家的blog
12-18 553
1、从数据表中取得单一数据列 $user= DB::table('users')->where('name','John')->first(); 2、检索表中的所有行 复制代码代码如下: $users = DB::table('users')->get(); foreach ($users as $user) { var_dump($user->name); } 3、从表
java连接ORACLE的方法（DBUTIL类编写）
GinChou的萌新博客
09-07 1806
java连接ORACLE的方法（DBUTIL类编写） java连接数据库的工具类：DBUTIL 编写流程如下： 1.配置驱动包 （可以查看我的这篇博客：https://blog.csdn.net/qq_28198181/article/details/82499089） 2.可以在包下创建一个DBUTILl类： 3.打开DBUTIL配置相应的属性 private...
java dbutil_Java编程基础34——JDBC&DBUtil
weixin_39815456的博客
02-12 351
1.DButils工具类的介绍个三个核心类A: 概述DBUtils是java编程中的数据库操作实用工具，小巧简单实用。DBUtils封装了对JDBC的操作，简化了JDBC操作，可以少写代码。DBUtils就是JDBC的简化开发工具包。需要项目导入commons-dbutils-1.6.jar才能够正常使用DBUtils工具。B: Dbutils三个核心功能介绍QueryRunner中提供对sql语...
Db事务的使用
Daisy的博客
04-08 2430
1.首先try{ }catch(Exception $e){ }使用起来【异常捕捉】 try catch会将此处的一系列报错信息捕捉起来，不直接返回给浏览器，当他捕捉到错误之后，会进入catch中，若全程无错，则会直接跳过catch一直往下执行，所有我们对于想要捕捉错误但不返回给浏览器或者想要自定义报错的时候，就可以使用该语句。 2.开启事务 TP5是 Db::startTrans() laravel是DB::beginTransaction(); 该事务实际就是数据库中的事务操作，beginTran
创造JDBC工具类简化JDBC代码编写
qq_49044908的博客
04-23 288
创造JDBC工具类简化JDBC代码编写 前一篇文章向大家分享了 JDBC 编写代码的六个步骤JDBC编程, 但是我们发现如果每次都按照这个步骤来编写代码会十分的麻烦, 所以今天我来向大家分享如何将 JDBC 的这些步骤变成一些工具类从而起到简化代码的目的. 目录 创造JDBC工具类简化JDBC代码编写 构造方法私有化 静态代码块注册驱动 获取数据库连接对象 为什么没有数据库操作对象? 释放资源 实际使用 下面我直接将工具类的代码粘贴过来, 之后进行分析: // 自己创造 JDBC..
db类 select 字段
最新发布
01-11
db类是用于在数据库中执行查询操作的类。在进行查询操作时，可以使用select语句来选择需要检索的字段。 在使用db类进行select字段操作时，首先需要确定要查询的数据表和字段名称。然后可以使用select语句将需要检索...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值