Initial

Backup/DataAccess/Spalten.vb

@@ -0,0 +1,48 @@
+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