27-06-15, 03:11 AM
بسم الله الرحم الرحيم
الموضوع يتلخص فى الآتى :
لدى قاعدة بيانات Access بها جدولين Tab1 و Tab2
Tab1 به أعمدة id , nam, NuPhone
Tab2 به أعمدة id , idname , idnam , Picture
حيث يتم الاتصال بالجدولين بحيث يتم حفظ الصور الخاصة بالأسم من الجدول Tab1 بالجدول Tab2 مع حفظ اسم الصورة فى الجدول Tab2
كما فى الصورة
المطلوب
1. اظهار اسم الصورة من العمود idnam بدلا من رقم الصورة اسفل كل الصورة من العمود idname
2. المشكلة فى زر (حذف الصورة ) يحث عند تعديل كود FillListView التالى :
فى الجزء الخاص بـ With Listview1 ليصبح idnam بدلا من id
كما فى الصورة
أرجو ان يكون هناك حل لهذه المشكلة من الأخوة الكرام
ولكم جزيل الشكر مقدما
الموضوع يتلخص فى الآتى :
لدى قاعدة بيانات 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
كما فى الصورة
أرجو ان يكون هناك حل لهذه المشكلة من الأخوة الكرام
ولكم جزيل الشكر مقدما