Dim cn As New SqlConnection(strCn)
Dim cmd As New SqlCommand("INSERT INTO BLOBTest (BLOBData) " & _
"VALUES (@BLOBData)", cn)
Dim strBLOBFilePath As String = _
"C:\Documents and Settings\All Users\Documents" & _
"\My Pictures\Sample Pictures\winter.jpg"
Dim fsBLOBFile As New FileStream(strBLOBFilePath, _
FileMode.Open, FileAccess.Read)
Dim bytBLOBData(fsBLOBFile.Length() - 1) As Byte
fsBLOBFile.Read(bytBLOBData, 0, bytBLOBData.Length)
fsBLOBFile.Close()
Dim prm As New SqlParameter("@BLOBData", SqlDbType.VarBinary, _
bytBLOBData.Length, ParameterDirection.Input, False, _
0, 0, Nothing, DataRowVersion.Current, bytBLOBData)
cmd.Parameters.Add(prm)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
Try
Dim conImageDB As SqlClient.SqlConnection
Dim cmdImageDB As SqlClient.SqlCommand
Dim ms As MemoryStream
Dim prm As SqlClient.SqlParameter
Dim arrFilename() As String = Split(strFilePath, "\")
arrFilename.Reverse(arrFilename)
conImageDB = New SqlClient.SqlConnection(strCon)
conImageDB.Open()
cmdImageDB = New SqlClient.SqlCommand("Insert into Image(image,filename) Values(@image,@filename)", conImageDB)
ms = New MemoryStream
PictureBox1.Image.Save(ms, ImageFormat.Jpeg)
Dim bytPicture(ms.Length - 1) As Byte
ms.Position = 0
ms.Read(bytPicture, 0, ms.Length)
prm = New SqlClient.SqlParameter("@image", SqlDbType.VarBinary, bytPicture.Length, ParameterDirection.Input, False, 0, 0, Nothing, DataRowVersion.Current, bytPicture)
cmdImageDB.Parameters.Add(prm)
prm = New SqlClient.SqlParameter("@filename", arrFilename(0))
cmdImageDB.Parameters.Add(prm)
cmdImageDB.ExecuteNonQuery()
conImageDB.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
MessageBox.Show("写入成功", "信息提示!", MessageBoxButtons.OK, MessageBoxIcon.Information)