You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
49 lines
1.1 KiB
49 lines
1.1 KiB
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
|