+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : حذف صورة من قاعدة البيانات بعد تحديدها من ListView (/showthread.php?tid=12599)
حذف صورة من قاعدة البيانات بعد تحديدها من ListView - مصطفى_ظيمة - 27-06-15
بسم الله الرحم الرحيم
الموضوع يتلخص فى الآتى :
لدى قاعدة بيانات 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كما فى الصورة
أرجو ان يكون هناك حل لهذه المشكلة من الأخوة الكرام
ولكم جزيل الشكر مقدما
RE: حذف صورة من قاعدة البيانات بعد تحديدها من ListView - سعود - 27-06-15
الخطا الواضح من هذه الصورة
انك استخدمت ExecuteScalar بطريق الخطا
يفترض تكتب
ثم تكملكود :
select count(id) جرب واكتب رد
RE: حذف صورة من قاعدة البيانات بعد تحديدها من ListView - مصطفى_ظيمة - 28-06-15
(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 SubRE: حذف صورة من قاعدة البيانات بعد تحديدها من ListView - abulayth - 03-07-15
تم اغلاق الموضوع بناء على طلب صاحب الموضوع
يعطيكم العافية