Imports System.Data.SqlClient
Imports System.Data
 
Public Class SqlSystemDataRequest
    Public RequestException As Exception
    Dim sqlDataConnection As SqlConnection = Nothing
    Dim sqlDataadapter As SqlDataAdapter = Nothing
 
    Public Sub New(ByVal sqlConnectionString As String)
        sqlDataConnection = New SqlConnection(sqlConnectionString)
    End Sub
 
    ''' <summary>
    ''' Führt die übergeben SQL-Abfrage durch und schreibt die Daten in das 
    ' übergebene DataSet
    ''' </summary>
    ''' <param name="sqlRequestCommand">Auszuführendes SQL-Command</param>
    ''' <param name="ds">DataSet für aufnahme der Daten</param>
    ''' <returns>TRUE, wenn die Operation erfolgreich ausgeführt wurde</returns>
    ''' <remarks>16.08.2010</remarks>
    Public Function FillDataSet(ByVal sqlRequestCommand As String, ByRef ds As _
      DataSet) As Boolean
        Dim bOK = True
        sqlDataadapter = New SqlDataAdapter(sqlRequestCommand, _
          sqlDataConnection)
 
        Try
            sqlDataConnection.Open()
            sqlDataadapter.Fill(ds)
        Catch ex As Exception
            RequestException = ex
            bOK = False
        Finally
            sqlDataConnection.Close()
        End Try
 
        Return bOK
 
    End Function
 
    ''' <summary>
    ''' Führt die übergeben SQL-Abfrage durch und schreibt die Daten in das 
    ' übergebene DataTable
    ''' </summary>
    ''' <param name="sqlRequestCommand"></param>
    ''' <param name="dt">Datatable für aufnahme der Daten</param>
    ''' <returns>TRUE, wenn die Operation erfolgreich ausgeführt wurde</returns>
    ''' <remarks>16.08.2010</remarks>
    Public Function FillDataTable(ByVal sqlRequestCommand As String, ByRef dt _
      As DataTable) As Boolean
        Dim bOK = True
 
        sqlDataadapter = New SqlDataAdapter(sqlRequestCommand, _
          sqlDataConnection)
 
        Try
            sqlDataConnection.Open()
            sqlDataadapter.Fill(dt)
        Catch ex As Exception
            RequestException = ex
            bOK = False
        Finally
            sqlDataConnection.Close()
        End Try
 
        Return bOK
 
    End Function
 
    ''' <summary>
    ''' Führt ein Update der geänderten Datensätze des DataSets auf der 
    ' Datenquelle durch
    ''' </summary>
    ''' <param name="ds">DataSet, welches die Änderungen beinhaltet</param>
    ''' <returns>TRUE, wenn die Operation erfolgreich ausgeführt wurde</returns>
    ''' <remarks>16.08.2010</remarks>
    Public Function UpdateDatabase(ByRef ds As DataSet) As Boolean
        Dim bOK = True
        Dim cb As New SqlCommandBuilder(sqlDataadapter)
 
        Try
            sqlDataConnection.Open()
            sqlDataadapter.Update(ds)
        Catch ex As Exception
            RequestException = ex
            bOK = False
        Finally
            sqlDataConnection.Close()
        End Try
 
        Return bOK
 
    End Function
 
    ''' <summary>
    ''' Führt ein Update der geänderten Datensätze der DataTable auf der 
    ' Datenquelle durch
    ''' </summary>
    ''' <param name="dt">>DataTable, welches die Änderungen beinhaltet</param>
    ''' <returns>TRUE, wenn die Operation erfolgreich ausgeführt wurde</returns>
    ''' <remarks>16.08.2010</remarks>
    Public Function UpdateDatabase(ByRef dt As DataTable) As Boolean
        Dim bOK = True
        Dim cb As New SqlCommandBuilder(sqlDataadapter)
 
        Try
            sqlDataConnection.Open()
            sqlDataadapter.Update(dt)
        Catch ex As Exception
            RequestException = ex
            bOK = False
        Finally
            sqlDataConnection.Close()
        End Try
 
        Return bOK
 
    End Function
 
End Class

Public Class myClass
 
    Dim sqlSDR As New SqlSystemDataRequest("Der Connection String")
    Dim dt As New DataTable("myDataTable")
 
  Sub xyz()
    If sqlSDR.FillDataTable("SELECT * FROM Profilserie ORDER BY Name", _
      dtProfilserie) = False Then
            MsgBox(sqlSDR.RequestException.ToString)
    End If
  End Sub