12-09-16, 10:30 AM
مسـاء الخير للجميع
في البرنامج كود أتصال كان يشتغل تمام وبدون مشـاكل
وفجأه لما أتصل عشان أضيف بيانات يعطيني خطأ على كود الأتصال
هاذي رسالة الخطأ sqlserver 2008
غريب جداً
هذا كلاس الأتصال ولالأضافه .. إلى أخره
في البرنامج كود أتصال كان يشتغل تمام وبدون مشـاكل
وفجأه لما أتصل عشان أضيف بيانات يعطيني خطأ على كود الأتصال
هاذي رسالة الخطأ sqlserver 2008
كود :
An unhandled exception of type 'System.StackOverflowException' occurred in CLS.exe
غريب جداً
هذا كلاس الأتصال ولالأضافه .. إلى أخره
كود :
Imports System.Data.SqlClient
Imports System.Data
Public Class RemotAcsessLeyr
Public SqlConn As SqlConnection
Public Sub New()
SqlConn = New SqlConnection("Data Source=.;Initial Catalog=COP_DAT;Integrated Security=True")
End Sub
Public Sub Open()
If SqlConn.State <> ConnectionState.Open Then
SqlConn.Open()
End If
End Sub
Public Sub Clos()
If SqlConn.State = ConnectionState.Open Then
SqlConn.Close()
End If
End Sub
Public Function SelectData(ByVal StrodProstger As String, ByVal Param As SqlParameter()) As DataTable
Dim Dt As New DataTable()
Dim Da As New SqlDataAdapter()
Dim Sqlcmd As New SqlCommand()
Sqlcmd.CommandType = CommandType.StoredProcedure
Sqlcmd.CommandText = StrodProstger
If Param IsNot Nothing Then
For i As Integer = 0 To Param.Length + 1
Sqlcmd.Parameters.Add(Param(i))
Next
End If
Da.Fill(Dt)
Return Dt
End Function
Public Sub SendData(ByVal StrodProstger As String, ByVal Param As SqlParameter())
Dim Sqlcmd As New SqlCommand()
Sqlcmd.CommandType = CommandType.StoredProcedure
Sqlcmd.CommandText = StrodProstger
Sqlcmd.Connection = SqlConn
If Param IsNot Nothing Then
Sqlcmd.Parameters.AddRange(Param)
End If
Sqlcmd.ExecuteNonQuery()
End Sub
End Class