تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ما حل مشكلة تعارض Task مع Sleep؟ السندبااد 1 41 منذ 1 ساعه مضت
آخر رد: أبو نوره
  مشكلة في قراءة قيمة من الريجستري سعود الشامان 12 134 أمس, 07:59 PM
آخر رد: سعود الشامان
  مشكلة عند التعامل مع DevExpress آمل أن أجد لها حلًا أحمد إبراهيم سعد 8 141 16-09-17, 08:02 PM
آخر رد: tarek
  [سؤال] مشكلة في حذف و تعديل بيانات DataGridView mohammed alnour 4 112 16-09-17, 01:01 AM
آخر رد: mohammed alnour
  [VB.NET] مشكلة في تعديل المشروع مصمم هاوي 9 517 15-09-17, 06:54 PM
آخر رد: مصمم هاوي
  [VB.NET] مشكلة اثناء تنفيذ المشروع ظاهر علي 1 40 15-09-17, 01:28 AM
آخر رد: أبو نوره
  [VB.NET] مشكلة طباعه بيانات من DataGridview رومنس الشوق 4 640 14-09-17, 06:24 PM
آخر رد: محمود صالح
  مشكلة الفورم الشفاف محمود صالح 2 129 14-09-17, 04:59 PM
آخر رد: محمود صالح
  [VB.NET] لدي مشكلة مع كود التعديل 0theghost0 13 177 09-09-17, 05:24 PM
آخر رد: ola
  [VB.NET] مشكلة بتشغيل برنامج سكول سيرفر 2012 امل عوض 2 112 29-08-17, 02:45 PM
آخر رد: زيد زينوبي

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


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