01.Imports System.Data.OleDb
02.Imports System.Drawing
03.Imports System.Drawing.Imaging
04.Imports System.IO
05.
06.
07. Private Function SaveImageToDB(ByRef name As String) As Boolean
08. Try
09. Dim conn As New OleDbConnection
10. Dim cmd As OleDbCommand
11.
12. conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\YourDBFile.mdb;User Id=YourUsername;Password=YourPassword;"
13. conn.Open()
14.
15. cmd = conn.CreateCommand()
16. cmd.CommandText = "INSERT INTO ImageTable(ImageName, Image) VALUES (@Name, @Image)"
17. Dim imgByteArray() As Byte
18. Try
19. Dim stream As New MemoryStream
20. Dim bmp As New Bitmap(stream)
21.
22. bmp.Save(stream, ImageFormat.Jpeg)
23. imgByteArray = stream.ToArray()
24. stream.Close()
25.
26. cmd.Parameters.AddWithValue("@Name", name)
27. cmd.Parameters.AddWithValue("@Image", imgByteArray)
28.
29. If DirectCast(cmd.ExecuteNonQuery(), Integer) > 0 Then
30. Return True
31. End If
32. Catch ex As Exception
33. MessageBox.Show(ex.Message)
34. Return False
35. End Try
36.
37. conn.Close()
38. cmd.Dispose()
39. conn.Dispose()
40. Catch ex As Exception
41. MessageBox.Show(ex.Message)
42. Return False
43. End Try
44. End Function
45.
46.
47. Public Function GetImageFromDB(ByRef imageName As String) As Bitmap
48. Try
49. Dim conn As New OleDbConnection
50. Dim cmd As OleDbCommand
51. Dim reader As OleDbDataReader
52.
53. conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\YourDBFile.mdb;User Id=YourUsername;Password=YourPassword;"
54. conn.Open()
55.
56. cmd = conn.CreateCommand()
57. cmd.CommandText = "SELECT Image FROM ImageTable WHERE ImageName = '" & imageName & "'"
58.
59. reader = cmd.ExecuteReader
60.
61. If reader.Read Then
62. Dim imgByteArray() As Byte
63.
64. Try
65. imgByteArray = CType(reader(0), Byte())
66. Dim stream As New MemoryStream(imgByteArray)
67. Dim bmp As New Bitmap(stream)
68. stream.Close()
69. Return bmp
70. Catch ex As Exception
71. MessageBox.Show(ex.Message)
72. Return Nothing
73. End Try
74. End If
75.
76. reader.Close()
77. conn.Close()
78.
79. cmd.Dispose()
80. conn.Dispose()
81. Catch ex As Exception
82. MessageBox.Show(ex.Message)
83. Return Nothing
84. End Try
85. End Function
