مثال حول حفظ كافة الصور بتنسيق محدد و الموجودة بمجلد محدد بضغطة زر بعد تحويلها الى بيناري

كود :

Dim pic As New PictureBox        pic.Image = PictureBox1.Image

        Dim picStream As New MemoryStream





        pic.Image.Save(picStream, ImageFormat.Gif)





        Dim PicByte As Byte() = picStream.ToArray





        Dim cm As New SqlCommand("insert into pic (picname,picbyte) values (@picname,@picbyte)", con)

        cm.Parameters.AddWithValue("@picname", SqlDbType.NVarChar).Value = InputBox("اكتب اسم للصورة بحروف")

        cm.Parameters.AddWithValue("@picbyte", SqlDbType.VarBinary).Value = PicByte





        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

        cm.ExecuteNonQuery()

        MsgBox("تم حفظ الصورة")

بارك الله فيك اخي ،،، جاري التجربة
هل تقصد انك تقوم بالاضافة الى ListView ؟؟
اذا كان قصدك كذا ،،، فتترى الطريقة ليست عبارة عن اضافة في الليست فيو بل هي امر اضهار بيانات قاعدة البيانات من الليست فيو يعني مثل كذا ...

تكتب في اوامر لود الفورم هذا

كود :

ListView1.View = View.Details

        ListView1.FullRowSelect = True

        ListView1.GridLines = True

        ListView1.RightToLeft = RightToLeft.Yes

        ListView1.RightToLeftLayout = True

        ListView1.ContextMenuStrip = ContextMenuStrip1

        ListView1.HideSelection = False

        ListView1.Columns.Add("ID", 60)

        ListView1.Columns.Add("الاسم", 100)

        ListView1.Columns.Add("الرقم", 100)

 Me.RefreshListView

والآن هذا امر جلب المعلومات من قاعدة البيانات الى الليست فيو ،،،

كود :

Sub RefreshListView()

        'Fill the Grid

        ListView1.Items.Clear()

        Dim ds As New DataSet("Table1")

        Dim dt As New DataTable()

        Dim sqladp As New SqlDataAdapter("SELECT * FROM Table1", Conn)

        sqladp.Fill(ds, "Table1")

        dt = ds.Tables("Table1")

        Dim pos As Integer

        For pos = 0 To dt.Rows.Count - 1

            Dim item As New ListViewItem()

            item.Text = dt.Rows(pos)("ID").ToString()

            item.SubItems.Add(dt.Rows(pos)("UserName").ToString())

            item.SubItems.Add(dt.Rows(pos)("MobileNumber")).ToString()

            ListView1.Items.Add(item)

        Next pos

        Conn.Close()

End Sub

لا تنسى تعديل البيانات ...
وياليت تقولي اش نوع الحقل الي وضعته للصورة ؟