تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة كود استخراج بيانات من قاعدة بيانات sql
#1
السلام عليكم ورحمة الله وبركاته

اخواني انا عندي كود استخراج بيانات من قاعدة بيانات SQL وهو يستخرج ،، لكن لمره وحده فقط ،،،
يعني استخرج المره الاولى لا يظهر خطا وعند استخراجي ب ID ثاني تظهر مشكلة ،، انا حاوت اتآكد انه تم قفل الامر ،، ولاحظت انه يقفل الامر السابق ،،
لكن المشكلة هي فالامر الاول للاستخراج لا يقفل ،،، هذا كود الاستخراج

كود :
Dim cm As New SqlDataAdapter("select * from Table1 where ID=" & Val(ListView1.SelectedItems(0).Text) & "", Conn)
        Dim ds As New DataSet
        ds.Clear()

        TextBox1.[color=#FF0000]DataBindings.Clear[/color]()
        TextBox2.DataBindings.Clear()
        TextBox7.DataBindings.Clear()
        DateTimePicker8.DataBindings.Clear()
        TextBox45.DataBindings.Clear()
        TextBox46.DataBindings.Clear()
        TextBox47.DataBindings.Clear()
        TextBox4.DataBindings.Clear()
        TextBox5.DataBindings.Clear()
        TextBox6.DataBindings.Clear()
        TextBox3.DataBindings.Clear()
        TextBox71.DataBindings.Clear()
        ComboBox1.DataBindings.Clear()
        ComboBox4.DataBindings.Clear()
        TextBox20.DataBindings.Clear()
        TextBox21.DataBindings.Clear()
        TextBox87.DataBindings.Clear()
        ComboBox2.DataBindings.Clear()
        ComboBox5.DataBindings.Clear()
        TextBox22.DataBindings.Clear()
        TextBox23.DataBindings.Clear()
        TextBox88.DataBindings.Clear()
        ComboBox3.DataBindings.Clear()
        ComboBox6.DataBindings.Clear()
        TextBox20.DataBindings.Clear()
        TextBox21.DataBindings.Clear()
        TextBox87.DataBindings.Clear()
        TextBox22.DataBindings.Clear()
        TextBox23.DataBindings.Clear()
        TextBox88.DataBindings.Clear()
        TextBox24.DataBindings.Clear()
        TextBox25.DataBindings.Clear()
        TextBox89.DataBindings.Clear()
        TextBox24.DataBindings.Clear()
        TextBox25.DataBindings.Clear()
        TextBox89.DataBindings.Clear()
        TextBox26.DataBindings.Clear()
        TextBox27.DataBindings.Clear()
        TextBox28.DataBindings.Clear()
        TextBox29.DataBindings.Clear()
        TextBox30.DataBindings.Clear()
        TextBox37.DataBindings.Clear()
        TextBox39.DataBindings.Clear()
        TextBox40.DataBindings.Clear()
        TextBox41.DataBindings.Clear()
        TextBox42.DataBindings.Clear()
        TextBox43.DataBindings.Clear()
        TextBox38.DataBindings.Clear()



        PictureBox2.DataBindings.Clear()
        PictureBox3.DataBindings.Clear()
        PictureBox4.DataBindings.Clear()
        PictureBox5.DataBindings.Clear()
        PictureBox6.DataBindings.Clear()
        PictureBox7.DataBindings.Clear()
        PictureBox8.DataBindings.Clear()
        PictureBox9.DataBindings.Clear()
        PictureBox10.DataBindings.Clear()
        PictureBox11.DataBindings.Clear()
        PictureBox12.DataBindings.Clear()
        PictureBox13.DataBindings.Clear()

        cm.Fill(ds, "Table1")

        TextBox1.DataBindings.Add("text", ds, "Table1.UserName")
        TextBox2.DataBindings.Add("text", ds, "Table1.MobileNumber")
        TextBox7.DataBindings.Add("text", ds, "Table1.Date", True)
        DateTimePicker8.DataBindings.Add("text", ds, "Table1.DateGiveDress", True)
        TextBox45.DataBindings.Add("text", ds, "Table1.Price")
        TextBox46.DataBindings.Add("text", ds, "Table1.Rest")
        TextBox47.DataBindings.Add("text", ds, "Table1.Recipient")
        TextBox4.DataBindings.Add("text", ds, "Table1.NameShop")
        TextBox5.DataBindings.Add("text", ds, "Table1.PlaceShop")
        TextBox6.DataBindings.Add("text", ds, "Table1.UserShop")
        TextBox3.DataBindings.Add("text", ds, "Table1.Email")
        TextBox71.DataBindings.Add("text", ds, "Table1.NumberDresses")
        ComboBox1.DataBindings.Add("text", ds, "Table1.TypeDesign1")
        ComboBox4.DataBindings.Add("text", ds, "Table1.TypePocket1")
        TextBox20.DataBindings.Add("text", ds, "Table1.IDCloth1")
        TextBox21.DataBindings.Add("text", ds, "Table1.LengthM1")
        TextBox87.DataBindings.Add("text", ds, "Table1.LengthY1")
        ComboBox2.DataBindings.Add("text", ds, "Table1.TypeDesign2")
        ComboBox5.DataBindings.Add("text", ds, "Table1.TypePocket2")
        TextBox22.DataBindings.Add("text", ds, "Table1.IDCloth2")
        TextBox23.DataBindings.Add("text", ds, "Table1.LengthM2")
        TextBox88.DataBindings.Add("text", ds, "Table1.LengthY2")
        ComboBox3.DataBindings.Add("text", ds, "Table1.TypeDesign3")
        ComboBox6.DataBindings.Add("text", ds, "Table1.TypePocket3")
        TextBox24.DataBindings.Add("text", ds, "Table1.IDCloth3")
        TextBox25.DataBindings.Add("text", ds, "Table1.LengthM3")
        TextBox89.DataBindings.Add("text", ds, "Table1.LengthY3")
        TextBox26.DataBindings.Add("text", ds, "Table1.LengthDress")
        TextBox27.DataBindings.Add("text", ds, "Table1.DisplayKtf")
        TextBox28.DataBindings.Add("text", ds, "Table1.DisplayDress")
        TextBox29.DataBindings.Add("text", ds, "Table1.LengthKmSadh")
        TextBox30.DataBindings.Add("text", ds, "Table1.LengthKmKbk")
        TextBox37.DataBindings.Add("text", ds, "Table1.RakbhKllab1")
        TextBox39.DataBindings.Add("text", ds, "Table1.RakbhKllab2")
        TextBox40.DataBindings.Add("text", ds, "Table1.RakbhSadh1")
        TextBox41.DataBindings.Add("text", ds, "Table1.RakbhSadh2")
        TextBox42.DataBindings.Add("text", ds, "Table1.DownDress1")
        TextBox43.DataBindings.Add("text", ds, "Table1.DownDress2")
        TextBox38.DataBindings.Add("text", ds, "Table1.Other")


        PictureBox2.DataBindings.Add("image", ds, "Table1.Img1U1", True)
        PictureBox3.DataBindings.Add("image", ds, "Table1.Img2U1", True)
        PictureBox4.DataBindings.Add("image", ds, "Table1.Img3U1", True)
        PictureBox5.DataBindings.Add("image", ds, "Table1.Img4U1", True)
        '
        PictureBox6.DataBindings.Add("image", ds, "Table1.Img1U2", True)
        PictureBox7.DataBindings.Add("image", ds, "Table1.Img2U2", True)
        PictureBox8.DataBindings.Add("image", ds, "Table1.Img3U2", True)
        PictureBox9.DataBindings.Add("image", ds, "Table1.Img4U2", True)
        '
        PictureBox10.DataBindings.Add("image", ds, "Table1.Img1U3", True)
        PictureBox11.DataBindings.Add("image", ds, "Table1.Img2U3", True)
        PictureBox12.DataBindings.Add("image", ds, "Table1.Img3U3", True)
        PictureBox13.DataBindings.Add("image", ds, "Table1.Img4U3", True)



        TextBox20.ReadOnly = True
        TextBox21.ReadOnly = True
        TextBox87.ReadOnly = True
        '
        TextBox22.ReadOnly = True
        TextBox23.ReadOnly = True
        TextBox88.ReadOnly = True
        '
        TextBox24.ReadOnly = True
        TextBox25.ReadOnly = True
        TextBox89.ReadOnly = True

[COLOR="#FF0000"]       cm.Dispose()
        Conn.Dispose()
        ds.Dispose()
        DataBindings.Clear()
[/COLOR]



هذه صورة المشكلة http://vb4arb.com/vb/uploaded/521_01364922855.png

الرد }}}}
تم الشكر بواسطة:
#2
up up up up
الرد }}}}
تم الشكر بواسطة:
#3
رتب كالتالي :
cmd.Dispose
Ds.Dispose
Databindings.Clear
Conn.Dispose
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#4
kslawy كتب :رتب كالتالي :
cmd.Dispose
Ds.Dispose
Databindings.Clear
Conn.Dispose

لم تحل المشكلة :confused:

هذه صورة المشكلة http://vb4arb.com/vb/uploaded/521_01364922855.png
الرد }}}}
تم الشكر بواسطة:
#5
الصورة ليس بها نص المشكلة
المطلوب نص رسالة الخطأ
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#6
آخر صورة تعني لم يتم تهيئة اتصال.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#7
شكرا لكم يا اخوان ،، المشكلة كانت سخيفة ،،، لكن مستغرب منها انها كانت السبب مع ان اخ امجد
قال لي خذها قاعدة في مجال البرمجة انك تقفل كل امر وتقتله عند الانتهاء منه ،، وانا كاتب في كود قفل العملية في الكود السابق هذا الكود

كود :
cm.Dispose()
       [color=#FF0000] Conn.Dispose()[/color]
        ds.Dispose()
        DataBindings.Clear()

ولكن عند ازالتي لهذا الامر من الكود السابق ،، ذهبت المشكلة

كود :
Conn.Dispose()
الرد }}}}
تم الشكر بواسطة:
#8

السلام عليكم ورحمة الله وبركاته


shado1796 كتب :
[b]شكرا لكم يا اخوان ،، المشكلة كانت سخيفة ،،، لكن مستغرب منها انها كانت السبب مع ان اخ امجد
قال لي خذها قاعدة في مجال البرمجة انك تقفل كل امر وتقتله عند الانتهاء منه ،، وانا كاتب في كود قفل العملية في الكود السابق هذا الكود

كود :
cm.Dispose()
       [color=#FF0000] Conn.Dispose()[/color]
        ds.Dispose()
        DataBindings.Clear()

ولكن عند ازالتي لهذا الامر من الكود السابق ،، ذهبت المشكلة

كود :
Conn.Dispose()



كلام الأخ امجد سليم لو كان التعريف عن المتغيرات مثل comm و com وغيرها على مستوى الاجراء وليس على مستوى الكلاس

ولكنك عرفت conn على مستوى الكلاس ولا يجب (قتله).





[/b]

السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في عملية الإضافة الحفظ والتعديل لثلاث جداول ahmedfa71 2 133 24-06-17, 04:21 PM
آخر رد: سعود
  [VB.NET] مطلوب مساعدة بشكل عاجل في حل مشكلة في الإتصال بالقاعدة "بمقابل مادي" asadtaif 4 129 22-06-17, 11:04 PM
آخر رد: moh_g
  [سؤال] احتاج الى مساعدة في التحكم في ملف تكست خارجي malek369 1 80 20-06-17, 07:38 AM
آخر رد: سعود
  ممكن مساعدة من الاخوة benali17 1 56 20-06-17, 06:45 AM
آخر رد: سعود
  اضافة بيانات من خلال القائمة المنسدلة KH_Alaswad 0 53 19-06-17, 12:58 AM
آخر رد: KH_Alaswad
  [VB.NET] مساعدة في العمل على موقع بإستخدام HttpWebReuest asda 0 53 17-06-17, 05:20 AM
آخر رد: asda
  مساعدة في كود الاضافة والتخزين و الحذف والتعديل و البحث khaled12345 5 204 16-06-17, 08:17 PM
آخر رد: khaled12345
  طريقة عمل شير لقاعدة بيانات اكسس للعمل بها علي جهاز اخر hatem555 1 83 14-06-17, 12:22 AM
آخر رد: sendbad100
  مساعدة في اغلا ق الشاشة الترحيبيه بعد دقيقة وفتح الشاشة الرئيسيه للمشروع khaled12345 2 86 13-06-17, 10:33 PM
آخر رد: khaled12345
  محتاج كود ربط قاعدة اكسس علي اكثر من جهاز hatem555 1 72 11-06-17, 06:52 PM
آخر رد: sendbad100

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


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