منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
لدي هذا الكود

كود :

      Try

            If Sqlconn.State = ConnectionState.Open Then

                Sqlconn.Close()

            End If

            item_pos.ListViewUSER.Items.Clear()

            Sqlconn.Open()

            Dim cmd10 As New MySqlCommand("select  * from TABLE where item =  '" & Comsal.Text.Trim & "'", Sqlconn)

            Dim myReader10 As MySqlDataReader = cmd10.ExecuteReader(CommandBehavior.CloseConnection)

            While (myReader10.Read() = True)

                Dim item10 As New ListViewItem()

                item10.Text = myReader10.Item("NAMS").ToString.Trim()

                item10.ImageIndex = 2

                item10.ForeColor = Color.SteelBlue

                item_pos.ListViewUSER.Items.Add(item10)

            End While

            Sqlconn.Close()

            item_pos.ShowDialog()

        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Critical, "alert")

End Try

حيث اقوم باستيراد بيانات من قاعدة البيانات لــ listview تم بنجاح لكن يوجد صور بالجدول

كود :

TABLE

كيف استطيع استدعائها مع الحقل

كود :

NAMS

(09-05-21, 07:34 PM)سلامات كتب : [ -> ]السلام عليكم
لدي هذا الكود

كود :

Try If Sqlconn.State = ConnectionState.Open Then Sqlconn.Close() End If item_pos.ListViewUSER.Items.Clear() Sqlconn.Open() Dim cmd10 As New MySqlCommand("select * from TABLE where item = '" & Comsal.Text.Trim & "'", Sqlconn) Dim myReader10 As MySqlDataReader = cmd10.ExecuteReader(CommandBehavior.CloseConnection) While (myReader10.Read() = True) Dim item10 As New ListViewItem() item10.Text = myReader10.Item("NAMS").ToString.Trim() item10.ImageIndex = 2 item10.ForeColor = Color.SteelBlue item_pos.ListViewUSER.Items.Add(item10) End While Sqlconn.Close() item_pos.ShowDialog() Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "alert") End Try

حيث اقوم باستيراد بيانات من قاعدة البيانات لــ listview تم بنجاح لكن يوجد صور بالجدول

كود :

TABLE

كيف استطيع استدعائها مع الحقل

كود :

NAMS

كود :

       Try

            item_pos.ListViewUSER.Items.Clear()

            Dim da As New MySqlDataAdapter("select  * from TABLE1 where item =  '" & Comsal.Text.Trim & "'", Sqlconn)

            Dim dt As New DataTable

            da.Fill(dt)

            Dim ImageList1 As New ImageList With {.ColorDepth = ColorDepth.Depth32Bit, .ImageSize = New Size(32, 32)}

            item_pos.ListViewUSER.SmallImageList = ImageList1

            item_pos.ListViewUSER.LargeImageList = ImageList1

            For Each row As DataRow In dt.Rows

                Dim item As New ListViewItem(row.Item("NAMS").ToString.Trim)

                ImageList1.Images.Add(New ImageConverter().ConvertFrom(row.Item("photo")))

                item.ImageIndex = ImageList1.Images.Count - 1

                item.ForeColor = Color.SteelBlue

                item_pos.ListViewUSER.Items.Add(item)

            Next

            item_pos.ShowDialog()

        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Critical, "alert")

        End Try

شكرا لك اخي العزيز نجح الكود بارك الله فيك وزادك من علمه

يبقى استفسار في حال كان حقل الصور فارغ NULL يرجع ERROR هنا

كود :

       For Each row As DataRow In dt.Rows

                Dim item As New ListViewItem(row.Item("NAMS").ToString.Trim)

                ImageList1.Images.Add(New ImageConverter().ConvertFrom(row.Item("IMGS")))

                item.ImageIndex = ImageList1.Images.Count - 1

                item.ForeColor = Color.SteelBlue

                item_pos.ListViewUSER.Items.Add(item)

            Next

في الحقل ماذا لو كان فاضي خالي من البيانات كيف اضافة صورة ثابته من السورس المرفق مع البرنامج نفسه

كود :

IMGS

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سلامات

march

سلامات