saeed_sho
شنبه 23 دی 1391, 17:52 عصر
سلام
من دارم یه پروژه سه لایه مینویسم وقتی پروژه رو اجرا میکنم بعضی موقع ها به دیتابیس لوکال کانکت نمیشه با breakpoint دیدم که وقتی کانکشن رو باز میکنم در اون خط میمونه و همینطوری لود میکنه ، معمولا بار اول که پروژه رو ران میکنم این مشکل پیش میاد و دو سه بار باید پروژه رو ران کنم و وقتی باز وصل نشد پروژه رو استاپ کنم که بعد از دو سه بار اینکارو کردن بعد درست میشه
لایه ی DAL از نوع کلاس لایبراری هست و لایه ی اینترفیس هم وب اپلیکیشن
در لایه ی DAL این کدهارو نوشتم
Imports System.Configuration
اینم متغیر کانکشن استرینگ
Public Shared ConnectionString As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
اینم متد
Public Shared Function Fill(ByVal commandName As String _
, ByVal ParamArray parameters() As OleDbParameter) As DataTable
Dim conn As New OleDbConnection()
conn.ConnectionString = ConnectionString
Dim da As New OleDbDataAdapter()
da.SelectCommand = New OleDbCommand
da.SelectCommand.Connection = conn
da.SelectCommand.CommandText = commandName
da.SelectCommand.CommandType = CommandType.StoredProcedure
If (parameters IsNot Nothing And parameters.Length > 0) Then
da.SelectCommand.Parameters.AddRange(parameters)
End If
Try
If (conn.State = ConnectionState.Closed) Then conn.Open()
Dim dt As New DataTable()
da.Fill(dt)
conn.Close()
Return dt
Catch ex As Exception
conn.Close()
Return Nothing
End Try
End Function
اینم کانکشن استرینگ
<connectionStrings>
<add name="ConnectionString" connectionString="Provider=SQLOLEDB;Data Source=SAEED-PC;Initial Catalog=sh_db;Integrated Security=SSPI;Connection Timeout=600" providerName="System.Data.Oledb"/>
</connectionStrings>
لطفا راهنمایی کنید
من دارم یه پروژه سه لایه مینویسم وقتی پروژه رو اجرا میکنم بعضی موقع ها به دیتابیس لوکال کانکت نمیشه با breakpoint دیدم که وقتی کانکشن رو باز میکنم در اون خط میمونه و همینطوری لود میکنه ، معمولا بار اول که پروژه رو ران میکنم این مشکل پیش میاد و دو سه بار باید پروژه رو ران کنم و وقتی باز وصل نشد پروژه رو استاپ کنم که بعد از دو سه بار اینکارو کردن بعد درست میشه
لایه ی DAL از نوع کلاس لایبراری هست و لایه ی اینترفیس هم وب اپلیکیشن
در لایه ی DAL این کدهارو نوشتم
Imports System.Configuration
اینم متغیر کانکشن استرینگ
Public Shared ConnectionString As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
اینم متد
Public Shared Function Fill(ByVal commandName As String _
, ByVal ParamArray parameters() As OleDbParameter) As DataTable
Dim conn As New OleDbConnection()
conn.ConnectionString = ConnectionString
Dim da As New OleDbDataAdapter()
da.SelectCommand = New OleDbCommand
da.SelectCommand.Connection = conn
da.SelectCommand.CommandText = commandName
da.SelectCommand.CommandType = CommandType.StoredProcedure
If (parameters IsNot Nothing And parameters.Length > 0) Then
da.SelectCommand.Parameters.AddRange(parameters)
End If
Try
If (conn.State = ConnectionState.Closed) Then conn.Open()
Dim dt As New DataTable()
da.Fill(dt)
conn.Close()
Return dt
Catch ex As Exception
conn.Close()
Return Nothing
End Try
End Function
اینم کانکشن استرینگ
<connectionStrings>
<add name="ConnectionString" connectionString="Provider=SQLOLEDB;Data Source=SAEED-PC;Initial Catalog=sh_db;Integrated Security=SSPI;Connection Timeout=600" providerName="System.Data.Oledb"/>
</connectionStrings>
لطفا راهنمایی کنید