منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مشكلة في الاتصال وتنفيذ الكود مرفق صورة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم

هذه المشكلة اعاني منها من زمان هل لها حل ؟
اغلق القاريء بعد جملة الشرط
if drd.read then


end if
drd.close
PHP كود :
Dim da As New SqlDataAdapter("SELECT * FROM [T_RKSH] WHERE [T22]=@t22"Sqlconn)
da.SelectCommand.Parameters.AddWithValue("@t22"T1.Text.Trim)
Using dt As New DataTable
    If da
.Fill(dt) > 0 Then
Dim r 
As DataRow dt.Rows(0)

 
       T2.Checked r("T2")
 
       T3.Checked r("T3")
 
       T4.Checked r("T4")
 
       T5.Checked r("T5")
 
       T6.Checked r("T6")
 
       T7.Checked r("T7")

 
       T8.Text r("T8")

 
       T9.Checked r("T9")
 
       T10.Checked r("T10")
 
       T11.Checked r("T11")
 
       T12.Checked r("T12")
 
       T13.Checked r("T13")

 
       ChA.Checked r("Stop_and_start")

 
       T14.Text r("T14")

        
'T15.Text = r("T15") 'MetaData Picture?

 
       T16.Text r("T16")
 
       T17.Text r("T17")
 
       T18.Text r("T18")
 
       T19.Text r("T19")
 
       T20.Text r("T20")

 
   End If
End Using 
قبل استخدام أمر Fill لملئ الجدول لم تقم بفتح الاتصال مع قاعدة البيانات

وبعد أمر Fill أغلق الاتصال
(23-05-16, 06:57 AM)سعود كتب : [ -> ]اغلق القاريء بعد جملة الشرط
if drd.read then


end if
drd.close

كما هو واضح مغلق الاتصال !!

(23-05-16, 09:43 AM)samerselo كتب : [ -> ]قبل استخدام أمر Fill لملئ الجدول لم تقم بفتح الاتصال مع قاعدة البيانات

وبعد أمر Fill أغلق الاتصال

لا اخي الاتصال مفتوح (:

(23-05-16, 07:18 AM)amgad525 كتب : [ -> ]
PHP كود :
Dim da As New SqlDataAdapter("SELECT * FROM [T_RKSH] WHERE [T22]=@t22"Sqlconn)
da.SelectCommand.Parameters.AddWithValue("@t22"T1.Text.Trim)
Using dt As New DataTable
    If da
.Fill(dt) > 0 Then
Dim r 
As DataRow dt.Rows(0)

 
       T2.Checked r("T2")
 
       T3.Checked r("T3")
 
       T4.Checked r("T4")
 
       T5.Checked r("T5")
 
       T6.Checked r("T6")
 
       T7.Checked r("T7")

 
       T8.Text r("T8")

 
       T9.Checked r("T9")
 
       T10.Checked r("T10")
 
       T11.Checked r("T11")
 
       T12.Checked r("T12")
 
       T13.Checked r("T13")

 
       ChA.Checked r("Stop_and_start")

 
       T14.Text r("T14")

 
       'T15.Text = r("T15") 'MetaData Picture?

 
       T16.Text r("T16")
 
       T17.Text r("T17")
 
       T18.Text r("T18")
 
       T19.Text r("T19")
 
       T20.Text r("T20")

 
   End If
End Using 


تسلم اخي [b]amgad525 اتعبتك في كتابة الكود Heart
ما المشكلة اخي ولما USING مع الاتصال بحثت عنها كثير في محاولة فهمها ولم اجد تفسير بالمراجع العربية سوى موظوع طرح هنا قبل فترة يتحدث عن الاتصالات بين السيرفر ودوال اللغة في طريقة جلب البيانات

هل لها علاقة بطريقة فتح الاتصال او حجم الييانات ):
[/b]
ممكن توضح اكثر عن
PHP كود :
MetaData 
(24-05-16, 03:09 AM)أبو فلان كتب : [ -> ]
(23-05-16, 06:57 AM)سعود كتب : [ -> ]اغلق القاريء بعد جملة الشرط
if drd.read then


end if
drd.close

كما هو واضح مغلق الاتصال !!
انا ماكتبت اللي كتبته الا لاني شايف انك اغلقت الاتصال قبل انتهاء الشرط
كرر النظر مرة اخرى وشكرا.

وضعك مجرد صور أنت كده بتصعبها.
ارفع مشروعك وبتلاقي حلول سريعة.
(24-05-16, 04:51 PM)سعود كتب : [ -> ]
(24-05-16, 03:09 AM)أبو فلان كتب : [ -> ]
(23-05-16, 06:57 AM)سعود كتب : [ -> ]اغلق القاريء بعد جملة الشرط
if drd.read then


end if
drd.close

كما هو واضح مغلق الاتصال !!
انا ماكتبت اللي كتبته الا لاني شايف انك اغلقت الاتصال قبل انتهاء الشرط
كرر النظر مرة اخرى وشكرا.


للأسف اخوي سعود نفس الخطأ ضهر
المشكلة كانت من الاتصال نفسه والمتغير الخاص بالاتصال وتم حلها عن طريق Using فائدتها كما ذكرها الاخ احمد هنا

مع أن الامر Dispose ليس له فائده وهذه حالة استثنائية كما ذكرها الاخ الشاكي في الرابط *_-


شكرا للجميع Big Grin
يا أبو فلان، نفهم أن أمورك تمام؟
الصفحات : 1 2