تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حذف صورة من قاعدة البيانات بعد تحديدها من ListView
#1
بسم الله الرحم الرحيم
الموضوع يتلخص فى الآتى :

لدى قاعدة بيانات Access بها جدولين Tab1 و Tab2
Tab1 به أعمدة id , nam, NuPhone
Tab2 به أعمدة id , idname , idnam , Picture

حيث يتم الاتصال بالجدولين بحيث يتم حفظ الصور الخاصة بالأسم من الجدول Tab1 بالجدول Tab2 مع حفظ اسم الصورة فى الجدول Tab2
كما فى الصورة



المطلوب
1. اظهار اسم الصورة من العمود idnam بدلا من رقم الصورة اسفل كل الصورة من العمود idname
2. المشكلة فى زر (حذف الصورة )  يحث عند تعديل كود  FillListView التالى :
كود :
Public Sub FillListView(id As Integer)
       ImageList1.Images.Clear()
       ListView1.Items.Clear()
       Dim Cmd As New OleDbCommand("select * from Tab2 where idname=@id", con)
       Cmd.Parameters.AddWithValue("@id", id)
       If con.State = ConnectionState.Closed Then con.Open()
       Using dr As OleDbDataReader = Cmd.ExecuteReader
           Dim t As New DataTable
           t.Load(dr)
           If t.Rows.Count > 0 Then
               For i As Integer = 0 To t.Rows.Count - 1
                   Dim bytes() As Byte = CType(t(i)("Picture"), Byte())
                   Dim memStream As MemoryStream = New MemoryStream(bytes)
                   Dim img As System.Drawing.Image
                   img = Image.FromStream(memStream)
                   ImageList1.Images.Add(img)


                   With ListView1
                       .Items.Add(t(i)("id").ToString, i)
                       
                   End With

               Next
           End If
       End Using

فى الجزء الخاص بـ With Listview1 ليصبح idnam بدلا من id
كود :
                   With ListView1
                       .Items.Add(t(i)("idnam").ToString, i)
                       
                   End With

كما فى الصورة



أرجو ان يكون هناك حل لهذه المشكلة من الأخوة الكرام
ولكم جزيل الشكر مقدما
}}}}
تم الشكر بواسطة:
#2
الخطا الواضح من هذه الصورة


انك استخدمت ExecuteScalar بطريق الخطا 
يفترض تكتب
كود :
select count(id) 
ثم تكمل
جرب واكتب رد
كل مااعرفه في البرمجة تجدونه هنا
}}}}
تم الشكر بواسطة: Sajad
#3
(27-06-15, 11:53 PM)سعود كتب : الخطا الواضح من هذه الصورة


انك استخدمت ExecuteScalar بطريق الخطا 
يفترض تكتب
كود :
select count(id) 
ثم تكمل
جرب واكتب رد

اخى الفاضل سعود

حضرتك لو لاحظت انه لوكان كود ملء الـ 1Listview بالكود من خلال الـ ("id")
فعملية الحذف تتم بدون مشاكل
كود :
With ListView1
                       .Items.Add(t(i)("id").ToString, i)

                   End With

لكن عند تغيير الكود لصبح كتالى مع ملاحظة تغيير الـ ("id") لتصبح الـ ("idnam")
لأظهار اسم الصورة اسفلها فى الـ Listview1 يظهر الخطأ السابق الظاهر فى الصورة فى بداية سؤالى
كود :
With ListView1
                       .Items.Add(t(i)("idnam").ToString, i)

                   End With

ولو حضرتك لاحظت كمان انه عند تحديد صورة فى الـ Listview1 للقيام بعملية الحذف للصورة المحددة يظهر اسم الصورة فى TextBox1 بدلا من رقم الصورة الموجود فى idname فى Tab2 الذى يأخد رقم الصف من id  فى Tab1

المشكلة انى مش عارف اصل لتعديل الكود بحيث انه يظهر اسم الصورة فى اسفل الصورة فى الـ Listview1 وعند تحديدها يظهر رقم الصورة الموجود فى idname فى Tab2

لو حبيت ارفع لحضرتك المثال بعد تعديل قاعد البيانات بإضافة الـ Column المسمى idnam

انا اعتقد ان المشكلة مش فى جملة الاستعلام فى رز الحذف
اعتقد المشكلة عند تغيير جملة with Listview من ("id") اتصبح ("idnam") تحدث المشكلة فى جملة الاستعلام فى زر الحذف

هناك أيضا الكود فى الـ DatagridView1 فى حدث CellMouseClick له تأثير فى الخطأ الحادث أن لم أكن مخطئ
كود :
        Private Sub DataGridView1_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick
       If e.RowIndex = -1 Then Exit Sub

       TextBox1.Text = DataGridView1.Item(0, e.RowIndex).Value
       TextBox2.Text = DataGridView1.Item(1, e.RowIndex).Value
       TextBox3.Text = DataGridView1.Item(2, e.RowIndex).Value
       FillListView(DataGridView1.Item(0, e.RowIndex).Value)

       PictureBox1.Image = Nothing
   End Sub
}}}}
تم الشكر بواسطة:
#4
تم اغلاق الموضوع بناء على طلب صاحب الموضوع

يعطيكم العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مسار قاعدة البيانات اكسس Mostafa Yousry 6 1,512 أمس, 08:23 PM
آخر رد: alsouf
  حذف صورة abdulla2 11 381 21-08-17, 01:46 AM
آخر رد: سعود
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 110 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 148 15-08-17, 02:11 PM
آخر رد: abozeyd
  ممكن تعديل كود انشاء قاعدة اكسس بالكود سعود 8 248 07-08-17, 11:26 PM
آخر رد: أبو نوره
  طلب كود رسالة تبين أن هذه البيانات موجودة من قبل ولا يسمح بتكررها waelalmsry75 2 149 19-07-17, 03:24 PM
آخر رد: waelalmsry75
  تضمين قاعدة بيانات MySQL مع الرنامج Jounior_P 8 245 19-07-17, 01:58 PM
آخر رد: Jounior_P
Question [سؤال] كيف يتم تشغيل قاعدة بيانات SQL SERVER دون تنصيب MS SQL SERVER alimoi79 1 171 16-07-17, 02:56 AM
آخر رد: ابو ليلى
  [كود] المساعدة في وضع صورة لكل موظف وادي العوضي 0 91 15-07-17, 11:59 AM
آخر رد: وادي العوضي
  [كود] المساعدة في كود بحث برقم التسلسل اذا كان الرقم غير موجود داخل قاعدة بيانات تخرج رسالة وادي العوضي 3 154 14-07-17, 09:43 AM
آخر رد: وادي العوضي

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


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