Database

jkirkerx wrote:

LINQ to Entities does not recognize the method 'System.DateTime AddDays(Double)' method, and this method cannot be translated into a store expression.

Dim minDate As Date = Date.Today.AddDays(-30)
messages = messages.Where(Function(m) m.ContactDate >= minDate)

messages = messages.Where(Function(m) m.ContactDate >= SqlFunctions.DateAdd("day", -30, SqlFunctions.GetDate()))

Public Shared Function load_movieContributor_array( _
        ByVal pMovieID As Integer,
        ByVal pPageIndex As Integer,
        ByVal pPageSize As Integer,
        ByRef pResults As IEnumerable(Of MovieIndex)) As Integer

        Dim pValue As Integer = 0

        Dim context As New MoviesContext()
        Dim cResults = _
            (From m In context.Movies
            Where m.MovieID = pMovieID
            Select m.MovieContributor).SingleOrDefault()

        Dim m_contributor As String = cResults

        Dim movies As IQueryable(Of Movies) = context.Movies
        movies = movies.Where(Function(m) m.MovieContributor = m_contributor)
        movies = movies.OrderBy(Function(m) m.MovieName)

        'Get a Single Page of Data
        If (pPageIndex = 0) Then
            movies = movies.Take(pPageSize + 1)
        Else
            movies = movies.Skip((pPageIndex + 1) * pPageSize).Take(pPageSize)
        End If

INSERT INTO myTable
(
    UserIdFrom,
    UserIdTo
)
SELECT
    F.UserId,
    T.UserId
FROM
    Users As F
    CROSS JOIN Users As T
WHERE
    T.UserId != F.UserId
;

Dim movies As IQueryable(Of Movie) = context.Movies

' Filter by type:
Select Case p_Type
    Case "FLV"
        movies = movies.Where(Function(m) m.flv)
    Case "H264"
        movies = movies.Where(Function(m) m.h264)
End Select

' Sort in the desired order:
Select Case p_Sort
    Case "NAME"
        movies = movies.OrderBy(Function(m) m.MovieName)
    Case "TYPE"
        movies = movies.OrderBy(Function(m) m.MovieType)
End Select

' Get a single page of data:
movies = movies.Skip(pageIndex * pageSize).Take(pageSize)

' Project the results:
pResults = movies.AsEnumerable().Select(Function(item) New MovieItem With
    {
        .MovieID = item.MovieID,
        .MovieName = item.MovieName,
        .MovieType = item.MovieType,
        .MovieDeliveryType = item.MovieDeliveryType,
        .MoviePath = item.MoviePath,
        .MovieUrl = item.MovieURL,
        .MoviePostage = item.MoviePostage,
        .MovieThumbnail = item.MovieThumbnail,
        .MovieLarge = item.MovieLarge,
        .MoviePlaceHolder = item.MoviePlaceHolder,
        .MovieBitRate = item.MovieBitRate,
        .MovieTime = item.MovieTime,
        .MovieSize = item.MovieSize,
        .MovieDescription = item.MovieDescription,
        .MovieCount = item.MovieCount,
        .MovieContributor = item.MovieContributor,
        .MoviePostDate = item.MoviePostDate,
        .MovieIcon = item.MovieIcon,
        .MovieParameters = item.movie_Parameters
    })

Public Shared Function load_index_array( _
        ByVal pType As MovieType,
        ByVal pSortOrder As SortOrder,
        ByVal pPageIndex As Integer,
        ByVal pPageSize As Integer,
        ByRef pResults As IEnumerable(Of MovieItem)) As Integer

        Dim pValue As Integer = 0

        Dim context As New MoviesContext()
        Dim movies As IQueryable(Of Movies) = context.Movies

        'Sort Order
        Select Case pSortOrder
            Case SortOrder.Name
                movies = movies.OrderBy(Function(m) m.MovieName)
            Case SortOrder.Type
                movies = movies.OrderBy(Function(m) m.MovieType)
            Case SortOrder.Time
                movies = movies.OrderBy(Function(m) m.MovieTime)
            Case SortOrder.Lastest
                movies = movies.OrderByDescending(Function(m) m.MoviePostDate)
            Case SortOrder.Early
                movies = movies.OrderBy(Function(m) m.MoviePostDate)
        End Select

        'Filter By Type
        Select Case pType
            Case MovieType.FLV
                movies = movies.Where(Function(m) m.flv)
            Case MovieType.H264
                movies = movies.Where(Function(m) m.h264)
        End Select

        'Get a Single Page of Data
        If (pPageIndex = 1) Then
            movies = movies.Take(pPageSize)
        Else
            movies = movies.Skip((pPageIndex - 1) * pPageSize).Take(pPageSize)
        End If

        pResults =
            movies.AsEnumerable().Select(Function(item) New MovieItem With
            {
                .MovieID = item.MovieID,
                .MovieName = item.MovieName,
                .MovieType = item.MovieType,
                .MovieDeliveryType = item.MovieDeliveryType,
                .MoviePath = item.MoviePath,
                .MovieUrl = item.MovieURL,
                .MoviePostage = item.MoviePostage,
                .MovieThumbnail = item.MovieThumbnail,
                .MovieLarge = item.MovieLarge,
                .MoviePlaceHolder = item.MoviePlaceHolder,
                .MovieBitRate = item.MovieBitRate,
                .MovieTime = item.MovieTime,
                .MovieSize = item.MovieSize,
                .MovieDescription = item.MovieDescription,
                .MovieCount = item.MovieCount,
                .MovieContributor = item.MovieContributor,
                .MoviePostDate = item.MoviePostDate,
                .MovieIcon = item.MovieIcon,
                .MovieParameters = item.movie_Parameters
        }).AsEnumerable

        pValue = pResults.Count()

        Return pValue

    End Function

IF @intConflictingRows = 0
BEGIN
    INSERT INTO [dbo].[tbl] (Fields) VALUES (@Values);

    SELECT Fields FROM tbl WHERE (ID = SCOPE_IDENTITY())
END
ELSE
BEGIN
    RAISERROR('Error: New interval overlapping existing  data!', 11, 1)
    --do not return a return code here!
END

Try
  If Me.Validate() Then
    MyBindingsource.EndEdit()
    TableAdapterManager.UpdateAll(myDataset)
    Return True
  End If
  Return False
Catch ex As Exception
  MessageBox.Show(ex.Message, "Error while saving!")
  Return False
End Try

Azam Niaz Ch. wrote:

i know they are accessing through SQL management studio