#Region "Methoden und Funktionen"
 
    Public Function Insert()
        Dim connection As New SqlClient.SqlConnection( _
          trainingsmanager.TmConnectionString)
        Dim objInsertQuery As String = "INSERT INTO tm_contries (contryName," & _
        "deleteFlag, updateAccountID, updateTimestamp) VALUES ('" & _contryName _
        & "','" & _deleteFlag & "','" & _updateAccountID & "','" & _
        _updateTimestamp & "'); SELECT * FROM tm_contries WHERE" & _
        "contryID=@@IDENTITY;"
        Try
            connection.Open()
            Dim insertRequest As New SqlClient.SqlCommand(objInsertQuery, _
              connection)
            insertRequest.UpdatedRowSource = UpdateRowSource.FirstReturnedRecord
            Dim insertReader As SqlClient.SqlDataReader = _
              insertRequest.ExecuteReader
            If insertReader.Read Then
                 _contryID = insertReader.Item("contryID")
            End If
            insertReader.Close()
            connection.Close()
        Catch
            connection.Close()
           _contryID = -1
        End Try
        Return _contryID
    End Function
 
    Public Function Update()
        _updateAccountID = trainingsmanager.loggedAccount.AccountID
        _updateTimestamp = Now.ToLongDateString() & " " & Now.ToLongTimeString()
        Dim connection As New SqlClient.SqlConnection( _
          trainingsmanager.TmConnectionString)
        Dim objUpdateQuery As String = "UPDATE tm_contries SET contryName='" & _
        _contryName & "', deleteFlag='" & _deleteFlag & "', updateAccountID='" _
        & _updateAccountID & "', updateTimestamp='" & _updateTimestamp & "'" & _
        "WHERE contryID = '" & _contryID & "'"
        objUpdateQuery = objUpdateQuery.Replace("'True'", "1")
        objUpdateQuery = objUpdateQuery.Replace("'False'", "0")
        Try
            connection.Open()
            Dim updateRequest As New SqlClient.SqlCommand(objUpdateQuery, _
              connection)
            Dim updateReader As SqlClient.SqlDataReader = _
            updateRequest.ExecuteScalar
            connection.Close()
            Return 1
        Catch
            connection.Close()
            Return  -1
        End Try
    End Function
 
    Public Function Delete()
        Dim connection As New SqlClient.SqlConnection( _
          trainingsmanager.TmConnectionString)
        Dim objDeleteQuery As String = "UPDATE tm_contries SET deleteFlag ='1'" & _
        "WHERE contryID = '" & _contryID & "'"
        Try
            connection.Open()
            Dim DeleteRequest As New SqlClient.SqlCommand(objDeleteQuery, _
              connection)
            Dim DeleteReader As SqlClient.SqlDataReader = _
            DeleteRequest.ExecuteScalar
            connection.Close()
            Return 1
        Catch
            connection.Close()
        Return -1
        End Try
    End Function
 
    Public Function Destroy()
        Dim connection As New SqlClient.SqlConnection( _
          trainingsmanager.TmConnectionString)
        Dim objDestroyQuery As String = "DELETE FROM tm_contries WHERE contryID" & _
        "= '" & _contryID & "'"
        Try
            connection.Open()
            Dim DestroyRequest As New SqlClient.SqlCommand(objDestroyQuery, _
              connection)
            Dim DestroyReader As SqlClient.SqlDataReader = _
            DestroyRequest.ExecuteScalar
            connection.Close()
            Return 1
        Catch
            connection.Close()
            Return -1
        End Try
    End Function
 
    Public Function UpdateFromDb()
        Dim connection As New SqlClient.SqlConnection( _
          trainingsmanager.TmConnectionString)
        Dim objSelectQuery As String = "SELECT contryID, contryName," & _
        "deleteFlag, updateAccountID, updateTimestamp FROM tm_contries WHERE" & _
        "contryID = '" & _contryID & "'"
        Try
            connection.Open()
            Dim selectRequest As New SqlClient.SqlCommand(objSelectQuery, _
              connection)
            Dim selectReader As SqlClient.SqlDataReader = _
            selectRequest.ExecuteReader
            If selectReader.Read Then           
               _contryID = selectReader.Item("contryID")
               _contryName = selectReader.Item("contryName")
               _deleteFlag = selectReader.Item("deleteFlag")
               _updateAccountID = selectReader.Item("updateAccountID")
               _updateTimestamp = selectReader.Item("updateTimestamp")
            Else
                Return 0
            End If
            connection.Close()
            Return 1
        Catch
            connection.Close()
            Return  -1
        End Try
    End Function
#End Region
 
End Class 'dbiContries