1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Imports System.Data.SqlClient
Dim myfilelocation As String = "C:\myPictures\myimage.jpg"
Dim conn As New SqlConnection("Data Source= .\sqlexpress; Initial Catalog=Temp;Integrated Security =True")
Dim cmd As New SqlCommand("Insert Into ImageTable(ImageFile,CustomerID) Values (@ImageData,@CustomerID)", conn)
Dim param As New SqlParameter("@ImageData", SqlDbType.VarBinary)
Dim ImageData As Byte() = IO.File.ReadAllBytes(myfilelocation)
param.Value = ImageData
cmd.Parameters.Add(param)
cmd.Parameters.AddWithValue("@CustomerID", 3)
Try
conn.Open()
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
conn.Close()
End Try |
Partager