آقا یک جستجو هم انجام بدین بد نیست
برای بازیابی عکس
----------------
PrivateSub DrawToScale(ByVal img As Image)
pic.Image = New Bitmap(img)
EndSub
PrivateSub LoadImage()
OnErrorGoTo fix
con.Open()
Dim SQLImage AsString = "SELECT Photo FROM Questionnaire WHERE FNO='" & FNO.Text & "'"
Dim cmd AsNew SqlClient.SqlCommand
cmd.Connection = con
MsgBox(SQLImage)
cmd.CommandText = SQLImage
Dim b() AsByte
b = cmd.ExecuteScalar
If (b.Length > 0) Then
Dim stream AsNew MemoryStream(b, True)
stream.Write(b, 0, b.Length)
DrawToScale(New Bitmap(stream))
stream.Close()
EndIf
con.Close()
fix:
EndSub
---------------
برای ذخیره عکس
----------------
txtFileName.Text = ImagePath
Dim fs AsNew FileStream(txtFileName.Text, FileMode.OpenOrCreate, FileAccess.Read)
Dim MyData(fs.Length) AsByte
fs.Read(MyData, 0, CInt(fs.Length))
fs.Close()
newrow("Photo") = MyData
--------------
برای ویرایش عکس
---------------
Dim Cmd AsNew SqlClient.SqlCommand
Dim strq AsString
Dim strcon AsString
Dim con As SqlClient.SqlConnection
strcon = "Data Source=" & serverip & ";Initial Catalog=" & dbuser & ";Integrated Security=True"
con = New SqlClient.SqlConnection(strcon)
con.Open()
Try
strq = " UPDATE Questionnaire "
strq &= " SET Photo = @ImageF "
strq &= " WHERE FNO = '" & FNO.Text & "'"
'Cmd = New SqlCommand
Cmd.CommandType = System.Data.CommandType.Text
Cmd.Connection = con
Cmd.CommandText = strq
Dim fs AsNew FileStream(OpenDialog.FileName, FileMode.OpenOrCreate, FileAccess.Read)
Dim MyData(fs.Length) AsByte
fs.Read(MyData, 0, CInt(fs.Length))
fs.Close()
Cmd.Parameters.Add(New SqlClient.SqlParameter("@ImageF", System.Data.SqlDbType.Image, MyData.Length, System.Data.ParameterDirection.Input, 0, 0, 1, System.Data.DataRowVersion.Current, False, MyData, "", "", ""))
Cmd.ExecuteNonQuery()
ReturnTrue
Catch ex As Exception
MsgBox(".ویرایش تصویر انجام نشد" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical)
ReturnFalse
Finally : Cmd.Dispose()
EndTry
con.Close()
__________________