[Rabeea Qbaha]

(09-11-17, 08:59 PM)محمد اسماعيل كتب :

(09-11-17, 08:48 PM)Rabeea Qbaha كتب :

كود :

'First save the image to the table
   Private Function SaveImageToDB(ByRef name As String) As Boolean
       Try
           Dim conn As New OleDbConnection
           Dim cmd As OleDbCommand

           conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database1.mdb;PERSIST SECURITY INFO = false"
           conn.Open()

           cmd = conn.CreateCommand()
           cmd.CommandText = "INSERT INTO Table1(Name, Image) VALUES (@Name, @Image)"
           Dim imgByteArray() As Byte
           Try
               Dim stream As New MemoryStream
               Dim bmp As New Bitmap(stream)

               bmp.Save(stream, ImageFormat.Jpeg)
               imgByteArray = stream.ToArray()
               stream.Close()

               cmd.Parameters.AddWithValue("@Name", name)
               cmd.Parameters.AddWithValue("@Image", imgByteArray)

               If DirectCast(cmd.ExecuteNonQuery(), Integer) > 0 Then
                   Return True
               End If
           Catch ex As Exception
               MessageBox.Show(ex.Message)
               Return False
           End Try

           conn.Close()
           cmd.Dispose()
           conn.Dispose()
       Catch ex As Exception
           MessageBox.Show(ex.Message)
           Return False
       End Try
   End Function

   'Retrieve image from table
   Public Function GetImageFromDB(ByRef imageName As String) As Bitmap
       Try
           Dim conn As New OleDbConnection
           Dim cmd As OleDbCommand
           Dim reader As OleDbDataReader

           conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database1.mdb;PERSIST SECURITY INFO = false"
           conn.Open()

           cmd = conn.CreateCommand()
           cmd.CommandText = "SELECT Image FROM ImageTable WHERE ImageName = '" & imageName & "'"

           reader = cmd.ExecuteReader

           If reader.Read Then
               Dim imgByteArray() As Byte

               Try
                   imgByteArray = CType(reader(0), Byte())
                   Dim stream As New MemoryStream(imgByteArray)
                   Dim bmp As New Bitmap(stream)
                   stream.Close()
                   Return bmp
               Catch ex As Exception
                   MessageBox.Show(ex.Message)
                   Return Nothing
               End Try
           End If

           reader.Close()
           conn.Close()

           cmd.Dispose()
           conn.Dispose()
       Catch ex As Exception
           MessageBox.Show(ex.Message)
           Return Nothing
       End Try
   End Function

اريد حفظ ملفات البي دي اف وليس الصور انا بحفظ الصور وباستعرضها

وكود الاتصال لدي

Public con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\product.accdb")

طريقه حفظ ملفات pdf نفس حفظ الصور لانه بالحالتين يقوم بتحويلهم الى bit وبد ذالك يخزنو في قاعده البيانات