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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] مشكلة داخل كود دخول التلقائى Mohamed Magdy 6 65 منذ 15 دقيقة مضت
آخر رد: ابو روضة
  [سؤال] مشكلة فى اضافة اداة vlc فى الفجول بيسك 2010 naderalkeng54 2 106 أمس, 12:57 PM
آخر رد: Mohamed Magdy
  مشكلة في كود جعل الحروف Capital فقط في الصندوق النصي Hazem1 2 41 أمس, 12:11 AM
آخر رد: Hazem1
  مشكلة حول كود الاتصال dasktop 4 96 20-10-18, 11:37 PM
آخر رد: dasktop
  أريد حل سريع في مشكلة كتابة كود لإدخال التاريخ في جملة Insert abo.alaa315 1 48 20-10-18, 08:29 PM
آخر رد: عبد العزيز البسكري
  [سؤال] استفسار عن مشكلة في كود لايجاد العملاء الغير موجودين بجدول الدفع ahmedmansour 12 441 20-10-18, 06:22 PM
آخر رد: ahmedmansour
  مشكلة عند رفع قاعدة البينات فى الفيجول بيسك Mohamed Magdy 2 76 19-10-18, 10:38 AM
آخر رد: Mohamed Magdy
  مشكلة فى اضافة حقول جديدة فى قاعدة البيانات و ربطها بالفيجوال استوديو nabil.1710 1 72 18-10-18, 01:09 PM
آخر رد: nabil.1710
  مشكلة داخل البوتن Mohamed Magdy 5 79 17-10-18, 10:04 PM
آخر رد: XBOOBX
  مشكلة فى التعديل salah mansour 7 134 15-10-18, 02:39 PM
آخر رد: فراس محي

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


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