Professor6T9 Web SheLL

Windows NT WEB-23 10.0 build 17763 (Windows Server 2016) i586
Microsoft-IIS/10.0
103.118.16.173

File Name : DBBridge.vb

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Namespace APPCODE.DAL
    Public Class DBBridge
        Public Sub New()
        End Sub

''' <summary>
        ''' [METHOD] connect to the db
        ''' </summary>
        ''' <returns>TRUE, if it is saved</returns>
        ''' 
        Public Shared Function DBConnection(ByVal username As String) As String
            Try
                Dim connectionString As String = "Server=.;Database=" + username + ";User Id=user_name;Password=my_password"
                'Return System.Configuration.ConfigurationManager.ConnectionStrings("connectionString").ToString
                Return connectionString
            Catch ce As Exception

Throw New ApplicationException("Unable to get DB Connection string from Config File. Contact Administrator" & Convert.ToString(ce))
            End Try
        End Function

Public Shared Function DBConnection() As String
            Try
                Return System.Configuration.ConfigurationManager.ConnectionStrings("connectionString").ToString
            Catch ce As Exception

Throw New ApplicationException("Unable to get DB Connection string from Config File. Contact Administrator" & Convert.ToString(ce))
            End Try
        End Function

Public Shared Function ExecuteNonQuery(storedProcedure As String, param As SqlParameter()) As Integer
            Try
                Return SQLHelper.ExecuteNonQuery(DBConnection(), CommandType.StoredProcedure, storedProcedure, param)
            Catch sq As SqlException
                Throw sq
            End Try
        End Function

Public Shared Function ExecuteNonQuerywithTrans(storedProcedure As String, param As SqlParameter()) As Integer
            Dim conTrans As New SqlConnection(DBConnection())
            Dim sqlTrans As SqlTransaction
            conTrans.Open()
            Dim returnResult As Integer = 0
            sqlTrans = conTrans.BeginTransaction()
            Try
                returnResult = SQLHelper.ExecuteNonQuery(sqlTrans, CommandType.StoredProcedure, storedProcedure, param)
                sqlTrans.Commit()
                Return returnResult
            Catch sq As Exception
                sqlTrans.Rollback()
                Throw sq
            Finally
                conTrans.Close()
            End Try

End Function

Public Shared Function ExecuteNonQuery(storedProcedure As String) As Integer
            Try
                Return SQLHelper.ExecuteNonQuery(DBConnection(), CommandType.StoredProcedure, storedProcedure)
            Catch sq As SqlException
                Throw sq
            End Try
        End Function

Public Shared Function ExecuteNonQuerySQL(sqlquery As String) As Integer
            Try
                Return SQLHelper.ExecuteNonQuery(DBConnection(), CommandType.Text, sqlquery)
            Catch sq As SqlException
                Throw sq
            End Try
        End Function

Public Shared Function ExecuteNonQuerywithTrans(storedProcedure As String) As Integer
            Dim conTrans As New SqlConnection(DBConnection())
            Dim sqlTrans As SqlTransaction
            conTrans.Open()
            Dim returnResult As Integer = 0
            sqlTrans = conTrans.BeginTransaction()
            Try
                returnResult = SQLHelper.ExecuteNonQuery(sqlTrans, CommandType.StoredProcedure, storedProcedure)
                sqlTrans.Commit()
                Return returnResult
            Catch sq As Exception
                sqlTrans.Rollback()
                Throw sq
            Finally
                conTrans.Close()
            End Try

End Function

Public Shared Function ExecuteNonQuerywithTransfromFrontEnd(sqlTrans As SqlTransaction, storedProcedure As String, param As SqlParameter()) As Integer
            Try
                Dim returnResult As Integer = SQLHelper.ExecuteNonQuery(sqlTrans, CommandType.StoredProcedure, storedProcedure, param)
                Return returnResult
            Catch sq As SqlException
                sqlTrans.Rollback()
                Throw sq
            End Try
        End Function

Public Shared Function ExecuteDataset(storedProcedure As String, param As SqlParameter()) As DataSet
            Try
                Return SQLHelper.ExecuteDataset(DBConnection(), CommandType.StoredProcedure, storedProcedure, param)
            Catch sq As SqlException
                Throw sq
            End Try
        End Function

Public Shared Function ExecuteDatasetSQL(storedProcedure As String) As DataSet
            Try
                Return SQLHelper.ExecuteDataset(DBConnection(), CommandType.Text, storedProcedure)
            Catch sq As SqlException
                Throw sq
            End Try
        End Function

Public Shared Function ExecuteDataset(storedProcedure As String) As DataSet
            Try
                Return SQLHelper.ExecuteDataset(DBConnection(), CommandType.StoredProcedure, storedProcedure)
            Catch sq As SqlException
                Throw sq
            End Try
        End Function

Public Shared Function ExecuteScalar(storedProcedure As String, param As SqlParameter()) As Object
            Try
                Return SQLHelper.ExecuteScalar(DBConnection(), CommandType.StoredProcedure, storedProcedure, param)
            Catch sq As SqlException
                Throw sq
            End Try
        End Function

Public Shared Function ExecuteScalar(sqlTrans As SqlTransaction, storedProcedure As String, param As SqlParameter()) As Object
            Try
                Return SQLHelper.ExecuteScalar(sqlTrans, CommandType.StoredProcedure, storedProcedure, param)
            Catch sq As SqlException
                Throw sq
            End Try
        End Function
        Public Shared Function ExecuteReader(storedProcedure As String, param As SqlParameter()) As SqlDataReader
            Dim reader As SqlDataReader = Nothing
            Try
                reader = SQLHelper.ExecuteReader(DBConnection(), CommandType.StoredProcedure, storedProcedure, param)
                Return reader
            Catch sq As SqlException
                Throw sq
            End Try
        End Function

Public Shared Function ExecuteReader(storedProcedure As String) As SqlDataReader
            Dim reader As SqlDataReader = Nothing
            Try
                reader = SQLHelper.ExecuteReader(DBConnection(), CommandType.StoredProcedure, storedProcedure)
                Return reader
            Catch sq As SqlException
                Throw sq
            End Try
        End Function

Public Shared Function ExecuteReaderSQL(sqlquery As String) As SqlDataReader
            Dim reader As SqlDataReader = Nothing
            Try
                reader = SQLHelper.ExecuteReader(DBConnection(), CommandType.Text, sqlquery)
                Return reader
            Catch sq As SqlException
                Throw sq
            End Try
        End Function

Public Shared Function ExecuteNonQuerywithMultipleTrans(sqlTrans As SqlTransaction, storedProcedure As String) As Integer
            Dim returnResult As Integer = 0
            Try
                returnResult = SQLHelper.ExecuteNonQuery(sqlTrans, CommandType.StoredProcedure, storedProcedure)
                Return returnResult
            Catch sq As Exception
                Throw sq
            End Try
        End Function

Public Shared Function ExecuteNonQuerywithMultipleTrans(sqlTrans As SqlTransaction, storedProcedure As String, param As SqlParameter()) As Integer
            Dim returnResult As Integer = 0
            Try
                returnResult = SQLHelper.ExecuteNonQuery(sqlTrans, CommandType.StoredProcedure, storedProcedure, param)
                Return returnResult
            Catch sq As Exception
                Throw sq
            End Try
        End Function
    End Class
End Namespace

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2015-10-31 05:26:12
..	dir	-	0/0	0777	2015-10-31 05:26:12
DBBridge.vb	text/plain	8.05 KB	0/0	0666	2015-08-14 10:50:32
DySubcatgoryData.xsd	text/xml	17.13 KB	0/0	0666	2015-01-12 02:00:14
DySubcatgoryData.xss	text/xml	857 B	0/0	0666	2015-01-12 02:00:14
SQLHelper.vb	text/plain	153.01 KB	0/0	0666	2015-01-12 02:00:14
User.xsd	text/xml	22.76 KB	0/0	0666	2015-01-12 02:00:14
User.xss	text/xml	851 B	0/0	0666	2015-01-12 02:00:14

Team Anon Force

https://t.me/Professor6T9x