Hello, I have a stored procedure that I access with OpenAccess. When I use the ORM and my site gets hit with a lot of traffic the w3wp.exe hangs. When I access the same stored procedure using a .net dataset everything works fine. Below is some code I used for testing purposes. Can someone help me figure out my code keeps crashing my website?
Thanks!
----------------------------------------------------------------------------------------------------------------------------------------------------
Imports HOSTEDOHTableAdapters
Imports System.Diagnostics
Partial Class speed_test
Inherits System.Web.UI.Page
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim sw0 As Stopwatch = Stopwatch.StartNew()
For i = 0 To 10000
ORM()
Next
sw0.Stop()
Response.Write("Average: " & CStr(sw0.ElapsedMilliseconds \ 10000)) 'w3wp.exe hangs
Dim sw1 As Stopwatch = Stopwatch.StartNew()
For i = 0 To 10000
DataSet()
Next
sw1.Stop()
Response.Write("Average: " & CStr(sw1.ElapsedMilliseconds \ 10000)) 'Average: 12.1238
End Sub
Sub DataSet()
Dim myAdapter As New oh_GetHostedWebsiteDataTableAdapter
Dim websites As HOSTEDOH.oh_GetHostedWebsiteDataDataTable = myAdapter.GetData("www.ahlandalpacas.com", 0)
Dim websiteInfo As HOSTEDOH.oh_GetHostedWebsiteDataRow
Dim sAccountType As String = ""
If websites.Rows.Count >= 1 Then
websiteInfo = websites(0)
If Not websiteInfo.IsAccountTypeNull Then sAccountType = websiteInfo.AccountType
End If
End Sub
Sub ORM()
Dim dbContext As New OpenherdORM.EntitiesModel()
Dim q = dbContext.Oh_GetHostedWebsiteData("www.ahlandalpacas.com", 0)
Dim sAccountType As String = ""
If q.Count >= 1 Then
If Not String.IsNullOrEmpty(q.FirstOrDefault.AccountType) Then sAccountType = q.FirstOrDefault.AccountType
End If
End Sub
End Class