Untitled

Imports System
Imports System.ComponentModel
Imports System.Collections
Imports System.Diagnostics
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration

Namespace CodeBuilder.Objects

    Public Class Class1

#Region " Local Private Properties "

        ' connection to data source
        Private con As SqlConnection
        Private _trustedConnection As Boolean = False
        Private _database As String
        Private _username As String
        Private _password As String
        Private _server As String
        Private _connectionString As String = ""
        Private _errorTrap As Boolean = False
        Private _SQLStatement As String

#End Region

#Region "Class Constructors"

        ' <summary>
        ' Default constructor for a database object
        ' </summary>
        Public Sub New()
            MyBase.New()
        End Sub

#End Region

#Region "Public Properties"
        ' <summary>
        ' Gets/sets the server the to connect to
        ' </summary>
        Public Property server() As String
            Get
                Return Me._server
            End Get
            Set(ByVal value As String)
                Me._server = value
            End Set
        End Property

        ' <summary>
        ' Gets/sets password to use when connecting to the database
        ' </summary>
        Public Property password() As String
            Get
                Return Me._password
            End Get
            Set(ByVal value As String)
                Me._password = value
            End Set
        End Property

        ' <summary>
        ' Gets/sets the user name to use when connecting to a server and/or database
        ' </summary>
        Public Property username() As String
            Get
                Return Me._username
            End Get
            Set(ByVal value As String)
                Me._username = value
            End Set
        End Property

        ' <summary>
        ' Gets/sets database to use when connecting to a server
        ' </summary>
        Public Property database() As String
            Get
                Return Me._database
            End Get
            Set(ByVal value As String)
                Me._database = value
            End Set
        End Property

        ' <summary>
        ' Get/set wheather the database connection uses NT Authentication
        ' </summary>
        Public Property trustedConnection() As Boolean
            Get
                Return Me._trustedConnection
            End Get
            Set(ByVal value As Boolean)
                Me._trustedConnection = value
            End Set
        End Property

        Public Property ConnectionString() As String
            Get
                Return Me._connectionString
            End Get
            Set(ByVal value As String)
                Me._connectionString = value
            End Set
        End Property

#End Region

    End Class

End Namespace