Friday, 4 December 2015

Global Connection Code in Vb.net

Imports System.Data
Imports System.Data.SqlClient
Imports System.Windows.Forms

Module [Global]

''---------------------------------------------------------------------------------------------------- 
    Public Const scon As String = "Data Source=servername8;Initial Catalog=databasename;" & _
                                                           "Persist Security Info=True;User ID=SA;Password=Welcome"

    Public struser As String = "ADMIN"
    Public ssql As String
    Public strtem As String
    Public inttem As Integer
    Public blntemp As Boolean

    Public dttable As DataTable
    Public dtset As New DataSet()
    Public dataAdapt As New SqlDataAdapter()

    Public sqlConnection As SqlConnection = New SqlConnection(scon)
    Public sqlcmd As SqlCommand
''----------------------------------------------------------------------------------------------------
    Public Function dsdttable(ByVal sql As String)
        Try
            dttable = Nothing
            Using conn As New SqlConnection(scon)
                Using comm As New SqlCommand()
                    With comm
                        .Connection = conn
                        .CommandType = CommandType.Text
                        .CommandText = sql

                        Try
                            conn.Open()
                            dataAdapt.SelectCommand = comm
                            dtset.Dispose()
                            dtset.Tables.Clear()
                            dataAdapt.Fill(dtset)
                            dataAdapt.Dispose()
                            comm.Dispose()
                            conn.Close()
                            dttable = dtset.Tables(0)
                            dtset.Dispose()
                            Return dttable


                        Catch ex As Exception
                            MessageBox.Show(ex.Message.ToString(), "Error Message")
                        End Try
                    End With
                End Using
            End Using

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Function
''----------------------------------------------------------------------------------------------------
    Public Function ExecuteSql(ByVal sql As String) As Boolean
        Try
               Using conn As New SqlConnection(scon)
                Using comm As New SqlCommand()
                    With comm
                        .Connection = conn
                        .CommandType = CommandType.Text
                        .CommandText = sql
                    End With
                    Try
                        conn.Open()
                        comm.ExecuteNonQuery()
                        conn.Close()
                        Return True
                    Catch ex As Exception
                        MessageBox.Show(ex.Message.ToString(), "Error Message")
                    End Try
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return False
        End Try
    End Function
''----------------------------------------------------------------------------------------------------
  Public Function cConOpen() As Boolean
        Try
            If ConnectionState.Open = True Then
                sqlConnection.Close()
                sqlConnection.Open()
                Return True
             Else
                sqlConnection.Open()
                Return True
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Function
''----------------------------------------------------------------------------------------------------
End Module