تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة كود الأتصال
#1
مسـاء الخير للجميع 
في البرنامج كود أتصال كان يشتغل تمام وبدون مشـاكل 
وفجأه لما أتصل عشان أضيف بيانات يعطيني خطأ على كود الأتصال 
هاذي رسالة الخطأ 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
الرد }}}
تم الشكر بواسطة:
#2
كل عام وانت بخير اخوي
في الحقيقه انا اكتب لك الان من الجوال
لكن شوف الرابط في الاسفل يوجد فيه مثال
متكامل للاتصال بقاعدة بيانات sql بطريقة احترافية
وبالتوفيق
http://vb4arb.com/vb/thread-17193.html
اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد }}}
تم الشكر بواسطة: adel27 , adel27
#3
وانت بصحه وسلامه 
مثالك رائع وجميل لكن مشكلتي هي الأتصال على نفس جهازي كالطريقه المتعارف عليها 
كانت تمام بس فجأه حصل الخطأ ...!!
الرد }}}
تم الشكر بواسطة:
#4
أفاا وين الشباب وين الردود يا جماعه ....!!

عندي أستفسـار أخر إذا كانت القاعده على السيرفر والبرنامج على جهاز مستخدم ووضعت كود الأتصال في حدث اللود مفتوح دائماً 
هل يسبب مشاكل في عمل البرنامج ..؟
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم