تقييم الموضوع :
  • 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
أفاا وين الشباب وين الردود يا جماعه ....!!

عندي أستفسـار أخر إذا كانت القاعده على السيرفر والبرنامج على جهاز مستخدم ووضعت كود الأتصال في حدث اللود مفتوح دائماً 
هل يسبب مشاكل في عمل البرنامج ..؟
الرد
تم الشكر بواسطة:
#5
السلام عليكم أخي العزيز ورحمة الله وبركاته
ضع الكود المتعلق بفحص الإتصال في الكلاس على الشكل التالي :
PHP كود :
Public Sub Open()
()If 
SqlConn.State <> ConnectionState.OPen Then SqlConn.Open
End Sub 

PHP كود :
Public Sub close()
If 
SqlConn.State ConnectionState.OPen Then SqlConn.Close()
End Sub 

أتمنى لك التوفيق
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: adel27


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في الإتصال بقاعدة الAccess ارجوكم مساعدة فراس صلاح 0 12 منذ 2 ساعة مضت
آخر رد: فراس صلاح
  [نقاش] عندك مشكلة فى كود او البرنامج مش شغال تعالا هنا elmezo 1 32 منذ 8 ساعة مضت
آخر رد: عبدالرحمن المكاوي
Lightbulb مشكلة عند حفظ الفاتورة atef_020 19 309 18-04-18, 08:44 PM
آخر رد: ismail abdullah
  المساعدة - في حل مشكلة حجم الفورم Mohamed El Meziani 1 55 18-04-18, 02:39 AM
آخر رد: ملهمـ
  [كود] حل مشكلة داتا سورس (ليست بوكس ) عبدالرحمن المكاوي 7 629 16-04-18, 08:36 PM
آخر رد: عبدالرحمن المكاوي
  حل مشكلة في الفيجوال بيسك عبدالرحمن المكاوي 5 58 16-04-18, 11:33 AM
آخر رد: عبدالرحمن المكاوي
  مشكلة فى اضافة windows media player محمد البلتاجى 2 49 15-04-18, 10:01 AM
آخر رد: ابو روضة
Rainbow مشكلة تشغيل من اليوتيوب vb.net aldery 2 82 12-04-18, 07:38 PM
آخر رد: aldery
  [VB.NET] مشكلة اثناء فتح البرنامج والوقت قد تم الانتهاء لايتضلل بالاحمر 0theghost0 1 62 12-04-18, 10:26 AM
آخر رد: 0theghost0
  [VB.NET] مشكلة عند وضع فورم التظليل محمد اسماعيل 2 80 08-04-18, 10:32 PM
آخر رد: محمد اسماعيل

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


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