Imports System.Data
Imports System.Data.SqlClient

'''<summary>Datenzugriff auf Tabelle spalten</summary>
Public Class Spalten

#Region "Public methods"

	'''<summary>Gibt eine Liste mit allen Spalten in einem DataSet zurück</summary>
	'''<param name="tableName">Name der Tabelle, von welcher die Spalten zurück gegeben werden sollen</param>

	Public Overloads Shared Sub GetListe(ByVal tableName As String, ByRef dsSpalten As DataSet)
		Dim sqlConn As New SqlConnection()
		Dim sqlCmd As New SqlCommand()
		Dim da As New SqlDataAdapter()

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

			sqlCmd.Parameters.Add(New SqlParameter("@TableName", tableName))

			sqlConn.ConnectionString = Common.Datenbank.GetDSN()

			sqlConn.Open()

			da.SelectCommand = sqlCmd
			da.Fill(dsSpalten, "SpaltenListe")

		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