Эй, ребята,
Я работаю над этим запросом, чтобы экспортировать некоторые данные из базы данных SQL Server 2008 на веб-сайте vb.net 3.5.
Я использую динамический linq после исходного запроса, чтобы отфильтровать результаты по дате, штату, стране, специальности и принадлежности к больнице.
Каждый из этих фильтров имеет единственное значение в запросе. За исключением больницы, которая имеет список, разделенный запятыми.
Например: OSUMC, Больница Запад, Восточная Хопситал
При фильтрации мне нужно сделать .Contains, чтобы увидеть, содержит ли список с разделителями-запятыми конкретную больницу.
например: (OSUMC, HospitalWest, Hospital East) .contains ("OSUMC")
Если я сделаю фильтр по дате, штату, стране и специальности, запрос будет работать нормально. Однако, если я добавлю фильтр для принадлежности к больнице, который является фильтром .Contains (), я получу ошибки времени ожидания.
Timeout expired. The timeout period elapsed prior to completion of the operation or the server is not responding.
Описание: Произошло необработанное исключение во время выполнения текущего веб-запроса. Пожалуйста, просмотрите трассировку стека для получения дополнительной информации об ошибке и о том, где она возникла в коде.
Сведения об исключении: System.Data.SqlClient.SqlException: Истекло время ожидания. Время ожидания истекло до завершения операции или сервер не отвечает.
Dim ctx As New OSUMCEntities
Dim query = (From ca As OSUMCModel.vw_ConferenceAttendance In ctx.vw_ConferenceAttendance Select New With _
{ _
.LastName = ca.LastName, _
.FirstName = ca.FirstName, _
.UserID = ca.UserID, _
.UserName = ca.Username, _
.Degree = ca.DegreeName, _
.Specialty = ca.Specialty, _
.Profession = ca.Profession, _
.HospitalAffiliations = ca.HospitalAffiliations, _
.Address1 = ca.MailingAddress1, _
.Address2 = ca.MailingAddress2, _
.City = ca.MailingCity, _
.State = ca.MailingState, _
.ZipPostal = ca.MailingZip, _
.Country = ca.MailingCountry, _
.ConferenceID = ca.ConfID, _
.Title = ca.Title, _
.Date = ca.StartDate, _
.MaxCredits = ca.Credits, _
.CreditsAwarded = ca.CreditHours, _
.CreditsAssignedOn = ca.AssignedOn, _
.LastUpdated = ca.LastUpdate _
})
If (txtDateStart.Text <> "" And txtDateEnd.Text <> "") Then
Dim StartDate As Date = txtDateStart.Text
Dim EndDate As Date = txtDateEnd.Text
query = query.Where("(Date >= @0 And Date <=@1)", StartDate, EndDate)
ElseIf (txtDateStart.Text <> "") Then
Dim StartDate As Date = txtDateStart.Text
query = query.Where("Date >= @0", StartDate)
ElseIf (txtDateEnd.Text <> "") Then
Dim EndDate As Date = txtDateEnd.Text
query = query.Where("Date <= @0", EndDate)
End If
If (ddlState.SelectedValue <> "Export All") Then
query = query.Where("State = @0", ddlState.SelectedValue)
End If
If (ddlCountry.SelectedValue <> "Export All") Then
query = query.Where("Country = @0", ddlCountry.SelectedValue)
End If
If (ddlSpecialty.SelectedValue <> "Export All") Then
query = query.Where("Specialty = @0", ddlSpecialty.SelectedValue)
End If
If (ddlHospitals.SelectedValue <> "Export All") Then
Dim Hospital As String = ddlHospitals.SelectedValue
query = query.Where("HospitalAffiliations.Contains(@0)", Hospital)
End If