Friday, December 09, 2005

[VB.NET Programming] Image file save to Access

Dim fs As New IO.FileStream("c:\test.jpg", FileMode.Open, FileAccess.Read)
Dim br As New IO.BinaryReader(fs)Dim bs() As Byte = br.ReadBytes(fs.Length)
Dim sqlStr As String = "Insert Into Img1 (File1) Values (@File1)"
Dim conn As New SqlClient.SqlConnection("Integrated Security=SSPI;Initial Catalog=MyDB1;Data Source=localhost;Packet Size=12288;")
Dim cmd As New SqlClient.SqlCommand(sqlStr, conn)

cmd.Parameters.Add("@File1", SqlDbType.Image).Value = bs
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
br.Close()
fs.Close()

0 Comments:

Post a Comment

<< Home