vahid بي تو هرگز
Joined: 26 Nov 2004 Posts: 3067 Location: Tehran
|
Posted: Tue Jul 31, 2007 9:14 pm Post subject: |
|
|
براي ذخيره تصوير :
|
Private Sub btnSave_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnSave.Click
Dim oConn As OleDb.OleDbConnection
Dim oComm As OleDb.OleDbCommand
Dim Err As String
Dim sInsertQuery As String
Dim FSO As New System.IO.FileStream(imgFile.FileName, _
IO.FileMode.Open, IO.FileAccess.Read)
Try
sInsertQuery = "insert into images([image]) VALUES(?)"
oConn = New OleDb.OleDbConnection( _
New Connection().getConnectionString)
oConn.Open()
oComm = New OleDb.OleDbCommand(sInsertQuery, oConn)
Dim imgArrayByte(CType(FSO.Length() - 1, Integer)) As Byte
FSO.Read(imgArrayByte, 0, imgArrayByte.Length)
FSO.Close()
Dim QueryParameter As New OleDb.OleDbParameter("@Picture", _
OleDb.OleDbType.LongVarBinary, _
imgArrayByte.Length, ParameterDirection.Input, _
False, 0, 0, Nothing, DataRowVersion.Current, _
imgArrayByte)
oComm.Parameters.Add(QueryParameter)
oComm.ExecuteNonQuery()
MsgBox("Image is saved successfully to the Database", _
MsgBoxStyle.OKOnly, _
"Successfully Saved")
getListOfImages()
btnSave.Enabled = False
Catch Ex As Exception
Err = Ex.Message
MsgBox("Error : " & Err, _
MsgBoxStyle.OKOnly, "Error Occured")
Finally
oConn = Nothing
oComm = Nothing
End Try
End Sub
|
براي بازيابي تصوير
|
Private Sub cmbImgIds_SelectedIndexChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmbImgIds.SelectedIndexChanged
btnDelete.Enabled = False
Dim sQuery As New System.Text.StringBuilder()
Dim oDataTable As New DataTable()
Dim dtRow As DataRow
Dim imagedata() As Byte
Dim imageBytedata As MemoryStream
sQuery.Append("SELECT image FROM images WHERE imageId = " & _
cmbImgIds.SelectedItem)
oDataTable = New Connection().doDBconnection(sQuery.ToString, "Image")
For Each dtRow In oDataTable.Rows
btnDelete.Enabled = True
imagedata = dtRow.Item("image")
imageBytedata = New MemoryStream(imagedata)
Next
picBox.Image = Image.FromStream(imageBytedata)
End Sub
|
|
|