[أبو فلان]

السلام عليكم

هذه المشكلة اعاني منها من زمان هل لها حل ؟

[سعود]

اغلق القاريء بعد جملة الشرط
if drd.read then


end if
drd.close

[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 


[samerselo]

قبل استخدام أمر 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 اتعبتك في كتابة الكود
ما المشكلة اخي ولما 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 ليس له فائده وهذه حالة استثنائية كما ذكرها الاخ الشاكي في الرابط *_-


شكرا للجميع

[الوادي]

يا أبو فلان، نفهم أن أمورك تمام؟