DBClass~

最新推荐文章于 2021-03-10 18:00:16 发布
最新推荐文章于 2021-03-10 18:00:16 发布
阅读量1k 收藏
点赞数
文章标签： function string integer exception dataset user
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/raineo/article/details/4438386
版权


<Serializable()> _
Public Class clsDBConn
 
    //REPETITION_KEY ="2627"
    //REFERENCE_KEY ="547"

    Private m_conn As System.Data.SqlClient.SqlConnection   
    Private m_da As System.Data.SqlClient.SqlDataAdapter    

    Private m_tran As System.Data.SqlClient.SqlTransaction   
    Private strConn As System.Data.SqlClient.SqlConnection

   
    Public Sub New()
        Dim connectionString As String = ""
        connectionString = GblConnectString()
        m_conn = New System.Data.SqlClient.SqlConnection(connectionString)
    End Sub

   
    Public Sub New(ByVal strDBName As String)
        Dim connectionString As String = ""
        connectionString = GblConnectString(strDBName)
        m_conn = New System.Data.SqlClient.SqlConnection(connectionString)
    End Sub

    Public Function GblConnectString() As String
        GblConnectString = "User ID=" & ConfigurationManager.AppSettings.Get("gUserID") & _
                           ";Password=" & ConfigurationManager.AppSettings.Get("gPass") & _
                           ";Initial Catalog=" & ConfigurationManager.AppSettings.Get("sDataBase") & _
                           ";Data Source=" & ConfigurationManager.AppSettings.Get("sServerName")
    End Function

    Public Function GblConnectString(ByVal strDBName As String) As String
        GblConnectString = "User ID=" & ConfigurationManager.AppSettings.Get("gUserID") & _
                           ";Password=" & ConfigurationManager.AppSettings.Get("gPass") & _
                           ";Initial Catalog=" & strDBName & _
                           ";Data Source=" & ConfigurationManager.AppSettings.Get("sServerName")
    End Function

  
    Public ReadOnly Property Connection() As System.Data.SqlClient.SqlConnection
        Get
            Return m_conn
        End Get
    End Property

    Public Sub Open()
        Try
            m_conn.Open()
        Catch ex As System.Data.SqlClient.SqlException
            If ex.Number = Constants.REFERENCE_KEY OrElse ex.Number = Constants.REPETITION_KEY Then
                Throw ex
            Else
                If Not IsNothing(m_conn) Then
                  
                    Me.Close()
                End If
                System.Web.HttpContext.Current.Response.Redirect(Tool.getWebPath & "Forms/error.aspx?errid=11")
            End If
        End Try
    End Sub

  
    Public Sub Close()
        Try
            If Me.IsConnected Then
                If Me.InTransaction Then
                    Me.Rollback()
                End If
                m_conn.Close()
            End If
        Catch ex As System.Data.SqlClient.SqlException
            If ex.Number = Constants.REFERENCE_KEY OrElse ex.Number = Constants.REPETITION_KEY Then
                Throw ex
            Else
                If Not IsNothing(m_conn) Then
                  
                    Me.Close()
                End If
                System.Web.HttpContext.Current.Response.Redirect(Tool.getWebPath & "Forms/error.aspx?errid=11")
            End If
        End Try
    End Sub

   
   
    Public Sub BeginTransaction()
        Try
            m_tran = m_conn.BeginTransaction()
        Catch ex As System.Data.SqlClient.SqlException
            If ex.Number = Constants.REFERENCE_KEY OrElse ex.Number = Constants.REPETITION_KEY Then
                Throw ex
            Else
                If Not IsNothing(m_conn) Then
                  
                    Me.Close()
                End If
                System.Web.HttpContext.Current.Response.Redirect(Tool.getWebPath & "Forms/error.aspx?errid=11")
            End If
        End Try
    End Sub

  
    Public Sub Commit()
        Try
            m_tran.Commit()
            m_tran.Dispose()
            m_tran = Nothing
        Catch ex As System.Data.SqlClient.SqlException
            If ex.Number = Constants.REFERENCE_KEY OrElse ex.Number = Constants.REPETITION_KEY Then
                Throw ex
            Else
                If Not IsNothing(m_conn) Then
                  
                    Me.Close()
                End If
                System.Web.HttpContext.Current.Response.Redirect(Tool.getWebPath & "Forms/error.aspx?errid=11")
            End If
        End Try
    End Sub

 
    Public Sub Rollback()
        Try
            m_tran.Rollback()
            m_tran.Dispose()
            m_tran = Nothing
        Catch ex As System.Data.SqlClient.SqlException
            If ex.Number = Constants.REFERENCE_KEY OrElse ex.Number = Constants.REPETITION_KEY Then
                Throw ex
            Else
                If Not IsNothing(m_conn) Then
                   
                    Me.Close()
                End If
                System.Web.HttpContext.Current.Response.Redirect(Tool.getWebPath & "Forms/error.aspx?errid=11")
            End If
        End Try
    End Sub

  
    Public ReadOnly Property IsConnected() As Boolean
        Get
            Return (m_conn.State = ConnectionState.Open)
        End Get
    End Property

    Public ReadOnly Property InTransaction() As Boolean
        Get
            Return (Not m_tran Is Nothing)
        End Get
    End Property

  
    Public Function ExecuteSql(ByVal pv_strSql As String, ByVal flag As Integer) As Integer
        Try

            Dim objCmd As New System.Data.SqlClient.SqlCommand(pv_strSql)
            objCmd.Connection = m_conn
            objCmd.Transaction = m_tran
            objCmd.CommandType = CommandType.Text
            Return objCmd.ExecuteNonQuery()

        Catch ex As System.Data.SqlClient.SqlException
            Throw ex


        Catch ex As Exception
            Throw ex

        
        End Try

    End Function

   
    Public Function ExecuteSql(ByVal pv_strSql As String) As Integer
        Dim r As Integer = -1
        Try
            Me.Open()
            Dim objCmd As New System.Data.SqlClient.SqlCommand(pv_strSql)
            objCmd.Connection = m_conn
            objCmd.CommandType = CommandType.Text
            r = objCmd.ExecuteNonQuery()
            Me.Close()
         
            Return r
        Catch ex As System.Data.SqlClient.SqlException
            If Me.IsConnected Then
                Me.Close()
            End If
            Throw ex

        Catch ex As Exception
            If Me.IsConnected Then
                Me.Close()
            End If
            Throw ex

        End Try

    End Function

  
    Public Function ExecuteSql(ByVal pv_strSql As String, ByRef strFlag As String) As Integer
        Try
            Me.Open()
            Dim objCmd As New System.Data.SqlClient.SqlCommand(pv_strSql)
            objCmd.Connection = m_conn
            objCmd.CommandType = CommandType.Text
            ExecuteSql = objCmd.ExecuteNonQuery()
            Me.Close()
        Catch ex As System.Data.SqlClient.SqlException
            If ex.Number = Constants.REFERENCE_KEY OrElse ex.Number = Constants.REPETITION_KEY Then
                Throw ex
            Else
                If Not IsNothing(m_conn) Then
        
                    Me.Close()
                End If
                System.Web.HttpContext.Current.Response.Redirect(Tool.getWebPath & "Forms/error.aspx?errid=11")
            End If
        End Try
    End Function

  
    Public Function ExecuteSql(ByVal pv_strSql As String, ByRef strFlag As String, ByVal intFlag As Integer) As Integer
        Try
            Dim objCmd As New System.Data.SqlClient.SqlCommand(pv_strSql)
            objCmd.Connection = m_conn
            objCmd.Transaction = m_tran
            objCmd.CommandType = CommandType.Text
            ExecuteSql = objCmd.ExecuteNonQuery()
        Catch ex As System.Data.SqlClient.SqlException
            If ex.Number = Constants.REFERENCE_KEY OrElse ex.Number = Constants.REPETITION_KEY Then
                Throw ex
            Else
                If Not IsNothing(m_conn) Then
           
                    Me.Close()
                End If
                System.Web.HttpContext.Current.Response.Redirect(Tool.getWebPath & "Forms/error.aspx?errid=11")
            End If
        End Try
    End Function

  
 
    Public Function QuerySql(ByVal strSql As String, ByRef m_dt As DataTable) As Boolean
        Try
            m_da = New System.Data.SqlClient.SqlDataAdapter()
            Dim objCmd As New System.Data.SqlClient.SqlCommand(strSql)
            objCmd.Connection = m_conn
            objCmd.Transaction = m_tran
            objCmd.CommandType = CommandType.Text
            m_da.SelectCommand = objCmd
            m_da.Fill(m_dt)
            Return True
        Catch ex As System.Data.SqlClient.SqlException
            Throw ex

        Catch ex As Exception
            Throw ex

        End Try

    End Function

  
  
    Public Function QuerySql(ByVal strSql As String, ByRef m_dt As DataTable, ByVal flag As Integer) As Boolean
        Try
            m_da = New System.Data.SqlClient.SqlDataAdapter()
            Dim objCmd As New System.Data.SqlClient.SqlCommand(strSql)
            objCmd.Connection = m_conn
            objCmd.Transaction = m_tran
            objCmd.CommandType = CommandType.Text
            m_da.SelectCommand = objCmd
            m_da.Fill(m_dt)
            Return True
        Catch ex As System.Data.SqlClient.SqlException
            If ex.Number = Constants.REFERENCE_KEY OrElse ex.Number = Constants.REPETITION_KEY Then
                Throw ex
            Else
                If Not IsNothing(m_conn) Then
                
                    Me.Close()
                End If
                System.Web.HttpContext.Current.Response.Redirect(Tool.getWebPath & "Forms/error.aspx?errid=11")
            End If
        End Try
    End Function

  
    Public Function QuerySql(ByVal strSql As String, ByRef m_dt As DataTable, ByRef err As String) As Boolean
        QuerySql = True
        Try
            Me.Open()
            m_da = New System.Data.SqlClient.SqlDataAdapter(strSql, m_conn)
            m_da.Fill(m_dt)
            Me.Close()
        Catch ex As System.Data.SqlClient.SqlException
            If ex.Number = Constants.REFERENCE_KEY OrElse ex.Number = Constants.REPETITION_KEY Then
                Throw ex
            Else
                If Not IsNothing(m_conn) Then
                   
                 
                    Me.Close()
                End If
                System.Web.HttpContext.Current.Response.Redirect(Tool.getWebPath & "Forms/error.aspx?errid=11")
            End If
        End Try
    End Function
    Public Function QuerySqlPage(ByVal strSql As String, ByRef m_dt As DataTable, ByVal flag As Integer) As Boolean
        Try
            m_da = New System.Data.SqlClient.SqlDataAdapter()
            Dim objCmd As New System.Data.SqlClient.SqlCommand(strSql)
            objCmd.Connection = m_conn
            objCmd.Transaction = m_tran
            objCmd.CommandType = CommandType.Text
            m_da.SelectCommand = objCmd
            m_da.Fill(flag, 100, m_dt)
            Return True
        Catch ex As System.Data.SqlClient.SqlException
            If ex.Number = Constants.REFERENCE_KEY OrElse ex.Number = Constants.REPETITION_KEY Then
                Throw ex
            Else
                If Not IsNothing(m_conn) Then
                  
                    Me.Close()
                End If
                System.Web.HttpContext.Current.Response.Redirect(Tool.getWebPath & "Forms/error.aspx?errid=11")
            End If
        End Try
    End Function
    Public Function getConnectString() As String
        Dim strCon As String = "User ID=" & ConfigurationManager.AppSettings.Get("gUserID") & _
                           ";Password=" & ConfigurationManager.AppSettings.Get("gPass") & _
                           ";Initial Catalog=" & "master" & _
                           ";Data Source=" & ConfigurationManager.AppSettings.Get("sServerName")
        Return strCon
    End Function
  
    Public Function EtSql(ByVal pv_strSql As String) As String
        Dim r As String = "-1"
        Try
            Me.Open()
            Dim objCmd As New System.Data.SqlClient.SqlCommand(pv_strSql)
            objCmd.Connection = m_conn
            objCmd.CommandType = CommandType.Text
            r = objCmd.ExecuteNonQuery()
            Me.Close()
        Catch ex As System.Data.SqlClient.SqlException
            If ex.Number = Constants.REFERENCE_KEY OrElse ex.Number = Constants.REPETITION_KEY Then
                Throw ex
            Else
                If Not IsNothing(m_conn) Then
              
                    Me.Close()
                End If
                System.Web.HttpContext.Current.Response.Redirect(Tool.getWebPath & "Forms/error.aspx?errid=11")
            End If
        End Try
        Return r
    End Function

   
    Public Function ExSql(ByVal pv_strSql As String) As String
        Dim dt As New Data.DataTable
        Dim Sql As String
        Sql = "select spid from master..sysprocesses where dbid=db_id('" & ConfigurationManager.AppSettings.Get("sDataBase") & "')"

        Dim r As String = "-1"
        strConn = New System.Data.SqlClient.SqlConnection(getConnectString())
        Dim dsr As New System.Data.SqlClient.SqlDataAdapter(Sql, strConn)
        Dim ds As New DataSet
        dsr.Fill(ds)
        If strConn.State = ConnectionState.Closed Then
            strConn.Open()
        End If
        Try

            Dim objCmd As New System.Data.SqlClient.SqlCommand(pv_strSql)
            objCmd.Connection = strConn
            objCmd.CommandType = CommandType.Text
            For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
                objCmd.CommandText = "KILL " & ds.Tables(0).Rows(i)(0)
                r = objCmd.ExecuteNonQuery()
            Next
            objCmd.CommandText = pv_strSql
            r = objCmd.ExecuteNonQuery()
            Me.Close()
        Catch ex As System.Data.SqlClient.SqlException
            If ex.Number = Constants.REFERENCE_KEY OrElse ex.Number = Constants.REPETITION_KEY Then
                Throw ex
            Else
                If Not IsNothing(m_conn) Then
              
                    Me.Close()
                End If
                System.Web.HttpContext.Current.Response.Redirect(Tool.getWebPath & "Forms/error.aspx?errid=11")
            End If
        End Try
        Return r

    End Function

End Class

zenowolf
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
C#数据库操作类类DB_Class
chenxingyano的专栏
12-19 1196
using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.W
自定义的数据库类：Class　DataBase
Johnny的专栏
07-22 2165
 class DataBase{private:_ConnectionPtr m_pConnection;_CommandPtr m_pCommand;_RecordsetPtr m_res;_variant_t rec_affected;char m_cConstr[16];char m_cUserName[32];char m_cPassword[32];bool m_bOpenType;pu
php mysql class_php调用mysql数据 dbclass类
weixin_35796461的博客
01-18 219
class dbClass{ //开始数据库类var $username;var $password;var $database;var $hostname;var $link;var $result;function dbClass($username,$password,$database,$hostname="localhost"){$this->username=$username;...
自用DBClass SQLServer数据库操作类
freeliver54的专栏
03-13 792
using System;using System.Data;using System.Data.SqlClient;using System.Collections.Generic;using System.Reflection;/**//// /// DBClass : SQL Server 数据库 操作类/// /// /// /// 
db.class的实现类
dianmei3204的博客
08-27 322
单例类，能操作数据库，能拼接sql语句，能写入日志 <?php class mysql extends db{ private static $ins=null; private $conn=null; private $conf=array(); //单例模式 protected function __co...
DBClass-开源
07-13
通过使用 DBClass，开发者可以更高效地处理 SQL 生成、数据调试和数据导入等功能，从而提高开发效率并减少错误。 在 DBClass 中，核心功能包括： 1. **SQL 生成器**：DBClass 提供了一套接口，允许开发者方便地...
DBClass.rar_DBClass_datagridview_sql server_webservice
09-24
1.继承DBClass类，类加DBClassAttribute特性，属性加DBColumnAttribute特性，可自动在连接的数据库上创建表结构(目前只实现了Sql Server,想要支持其他数据库，可稍作修改)；可自动实现对该类的，查询DBClass.Select...
db.zip_class
09-24
标题“db.zip_class”暗示了这是一个关于数据库管理的类库，具有事务处理能力。在IT领域，数据库类通常用于封装数据库操作，使得开发者能够更方便、安全地与数据库交互。让我们深入探讨一下这个主题。 数据库类是...
db_test_class.rar_class_php db
09-14
`db_test_class.php`是一个PHP类文件，它专门用于通过PHP与数据库进行交互。在这个类中，开发者通常会定义一系列方法来执行常见的数据库操作，如连接、查询、插入、更新和删除数据。 首先，让我们深入理解PHP类的...
公共代码DBclass.txt
03-04
公共代码DBclass
php数据库操作类 DbClass
05-18
php数据库操作类 DbClassphp数据库操作类 DbClass
mysql数据库操作类
心静欣
11-12 140
mysql数据库操作类。 配置文件： &lt;?php $db_config["hostname"] = "localhost"; //服务器地址 $db_config["username"] = "root"; //数据库用户名 $db_config["password"] = "123"; //数据库密码 $db_config["database
php新手之mysql分页dbClass类（转）
cuankuangzhong6373的博客
07-07 130
php新手之mysql分页dbClass类： php/*** a class use to connect the MySQL database and do some query* wayne ,Mar 11, 2002*/c...
dbclass.php,数据库连接类 DB.class.php | 学步园
weixin_32287177的博客
03-10 532
* 数据库操作类*/classDB {private $link_id;private $handle; //日志文件句柄private $is_log;private $time;public function__construct() {header("Content-type: text/html; charset=utf-8");$this->time = $this->...
JAVA DBClass操作数据库，这样算不算单列模式
iteye_9815的博客
06-19 138
到底怎样才算单列模式，单列模式事什么概念 package cs.com; import java.sql.Connection; import java.sql.Statement; import java.sql.ResultSet; import java.sql.SQLException; import java.sql.DriverManager; import ja...
C# DBHelper类学习笔记(一)
weixin_39231618的博客
06-03 6531
    其实主要的方法为Private修饰的方法,开放的方法是为了敲代码时方便调用.刚开始学习C#,写的不好之处,请大佬们多多指导.using System; using System.Collections; using System.Configuration; using System.Data; using System.Data.SqlClient; namespace DB { ...
ASP.NET实现B2C显示购物车中的商品
u010344092的专栏
05-22 1198
CommonClass ccObj = new CommonClass();     DBClass dbObj = new DBClass();     string strSql;     DataTable dtTable;     Hashtable hashCar;     protected void Page_Load(object sender, EventArgs e)
public class UserDB
最新发布
03-31
public UserDB() { userList = new ArrayList(); } public void addUser(User user) { userList.add(user); } public void removeUser(User user) { userList.remove(user); } public User ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值