Untitled


    Public Shared Sub EditStudent(ByVal Id As Integer, ByVal Naam As String, ByVal Onbeschikbaar As Boolean)
        Try
            Dim oId As New SqlParameter("@iId", Id)
            Dim oNaam As New SqlParameter("@sNaam", Naam)
            Dim oOnbeschikbaar As New SqlParameter("@bOnbeschikbaar", Onbeschikbaar)

            Dim sqlStatement As String = "UPDATE Student SET @sNaam =?, @bOnbeschikbaar =? WHERE @iId = ? "

            Db.ExecuteNonQuery("AbConnectionString", sqlStatement, oId, oNaam, oOnbeschikbaar)

        Catch ex As Exception
            Throw (ex)

        End Try
    End Sub