Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Imports DAL
Namespace DAL
Public Class db
'''
''' Function return connection string with open state
''' '''
'''
Public Function OpenConnection() As SqlConnection
SqlConnection.ClearAllPools()
Dim str As String = ""
str = ConfigurationManager.ConnectionStrings("con").ConnectionString
Dim cn As New SqlConnection
cn.ConnectionString = str
cn.Open()
Return cn
End Function
'''
''' Function use the execute non query
''' '''
'''
'''
Public Sub ExecuteNonQuery(ByVal strQuery As String, Optional ByVal strFunctionName As String = "")
HttpContext.Current.Trace.Warn(strFunctionName & ":" & strQuery)
Dim cn As New SqlConnection
Dim cmd As New SqlCommand
Try
cn = OpenConnection()
cmd.Connection = cn
cmd.CommandType = CommandType.Text
cmd.CommandText = strQuery
cmd.ExecuteNonQuery()
Finally
cn.Close()
End Try
End Sub
'''
''' Function return dataset
''' '''
'''
'''
Public Function FillDataset(ByVal strQuery As String, Optional ByVal strFunctionName As String = "") As DataSet
HttpContext.Current.Trace.Warn(strFunctionName & ":" & strQuery)
Dim cn As New SqlConnection
Dim cmd As New SqlCommand
Dim dst As New DataSet
Dim da As New SqlDataAdapter
Try
cn = OpenConnection()
cmd.Connection = cn
cmd.CommandType = CommandType.Text
cmd.CommandText = strQuery
cmd.ExecuteNonQuery()
da = New SqlDataAdapter(cmd)
da.Fill(dst)
Finally
cn.Close()
End Try
Return dst
End Function
'''
''' Function return dataset
''' '''
'''
'''
Public Function FillDatareader(ByVal strQuery As String, Optional ByVal strFunctionName As String = "") As SqlDataReader
HttpContext.Current.Trace.Warn(strFunctionName & ":" & strQuery)
Dim cn As New SqlConnection
Dim cmd As New SqlCommand
Dim dr As SqlDataReader
cn = OpenConnection()
cmd.Connection = cn
cmd.CommandType = CommandType.Text
cmd.CommandText = strQuery
dr = cmd.ExecuteReader()
Return dr
End Function
End Class
End Namespace
