Imports System.Data
Imports System.Data.SqlClient

'''<summary>Datenzugriff auf Tabelle Funktionsgruppe</summary>
Public Class Funktionsgruppe

#Region "Public methods"

	'''<summary>Gibt eine Liste mit allen Funktionsgrupppen zurück</summary>
	'''<param name="ds">Das DataSet welches gefüllt werden soll</param>

	Overloads Shared Sub GetListe(ByRef ds As DataSet)
		Dim sqlConn As New SqlConnection()
		Dim sqlCmd As New SqlCommand()
		Dim da As New SqlDataAdapter()

		Try
			sqlCmd.CommandText = "sp_ListFunktionsgruppen"
			sqlCmd.CommandType = CommandType.StoredProcedure
			sqlCmd.Connection = sqlConn

			sqlConn.ConnectionString = Common.Datenbank.GetDSN()

			sqlConn.Open()

			da.SelectCommand = sqlCmd
			da.Fill(ds, "FunktionsgruppenListe")

		Catch ex As Exception
			Throw ex
		Finally
			If sqlCmd Is Nothing Then
				sqlCmd.Dispose()
			End If
			If sqlConn Is Nothing Then
				sqlConn.Dispose()
			End If
			If da Is Nothing Then
				da.Dispose()
			End If
		End Try
	End Sub

#End Region

End Class