تقييم الموضوع :
  • 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
أساتذتي الكرام
Heart أبوعمر/ سعود/ممدوح الخطيب Heart
شكرا لكم
الرد }}}}
تم الشكر بواسطة: 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة ف الحفظ والتعديل بعد تحويل المشروع لملف تنفيذي apo yousef 3 78 أمس, 12:28 PM
آخر رد: ssayed111
  [VB.NET] مشكلة المسارات Fantastico 0 35 أمس, 11:22 AM
آخر رد: Fantastico
  مشكلة في عرض النص بالعربي في #Region فقط ali.alfoly 1 68 22-02-17, 02:50 AM
آخر رد: مساعدة
  ار جو المساعدة ما هي مشكلة كود التعديل والحذف boofa2015 2 49 21-02-17, 10:58 AM
آخر رد: boofa2015
  [VB.NET] مشكلة في كيفية اعادة الاتصال في TcpClient YazanOtoum 1 57 20-02-17, 01:03 PM
آخر رد: YazanOtoum
  [VB.NET] كيفية حل مشكلة Global.[String] فى ملف Settings.Designer.vb الماجيك مسعد 2 60 20-02-17, 03:08 AM
آخر رد: الماجيك مسعد
  [VB.NET] مشكلة في حدف صورة من مسار بمجلد بالكمبيوتر ناصر شير 6 114 18-02-17, 02:37 PM
آخر رد: ناصر شير
  [سؤال] حل مشكلة برنامج لتغير التاريخ عبدالرحمن المكاوي 6 142 17-02-17, 11:19 PM
آخر رد: EnormousSoft
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 79 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  [كود] حل مشكلة في كود عبدالرحمن المكاوي 12 168 16-02-17, 12:30 AM
آخر رد: مساعدة

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


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