ذخیره عکس در

[سونامی]

خوب دوستان یه سوال داشتم من یه بانک اطلاعاتی از نوع اکسس دارم .

تو وی بی برای ثبت نام فیلد های مختلفی هست از جمله نام و.......

من میخواستم هنگام پر کردن فیلد ها عکس طرف هم ذخیره کنم مشکلم الان ذخیره کردن عکس تو اکسس هست
و میخوام در قسمت سرچ وقتی زد علی (اگر در پایگاه داده ) بود عکسشم بیاره واگر زد محسن همانند علی عکس محسن رو بیاره
ممنون میشم کمک کنید تا یه جاهایی رفتم مثل اینکه picturebox به پایگاه ربط بدم و فیلد هم از نوع ole گرفتم

اگر ممکن هست این یه تکه کد رو بنویسید

[MrGee]

این ها به درد می خورن؟

'Saves the image Filename (any kind Pict

' urebox supports: jpg, gif, ico, bmp, wmf

' ..) in to
'the current record of the recordset rsI

' mg, using the field FieldName (must be a

' memo field!!!)
'USE: SaveImage("c:\sample.gif", rs)

Public Sub SaveImage(Filename As String, rsImg As Recordset, Optional FieldName As String = "Image")

On Error Goto EH
Dim fh As Integer
Dim strFile As String
If rsImg.BOF Or rsImg.EOF Then Err.Raise vbObjectError + 1, "SaveImage", "EOF or BOF encountered"
fh = FreeFile
Open Filename For Binary Access Read As fh
strFile = String(LOF(fh), " ")
Get fh, , strFile
Close fh
rsImg(FieldName) = strFile
Exit Sub
EH:
End Sub

'Reads the image (any kind Picturebox su

' pports: jpg, gif, ico, bmp, wmf..) from

'
'the current record of the recordset rsI

' mg, using the field FieldName, and retur

' ns it.
'USE: picture1.picture=ReadImage(rsImg)

Public Function ReadImage(rsImg As Recordset, Optional FieldName As String = "Image") As IPictureDisp

On Error Goto EH
Dim strFile As String
Dim fh As Integer
If rsImg.BOF Or rsImg.EOF Then Err.Raise vbObjectError + 2, "EeadImage", "EOF or BOF encountered"
ChDir App.Path
strFile = rsImg(FieldName)
fh = FreeFile
Open GetTempDir & "tmpimage.temp" For Binary Access Write As fh
Put #fh, , strFile
Close fh
Set LeerImagen = LoadPicture(GetTempDir & "tmpimage.temp")
Kill GetTempDir & "tmpimage.temp"
Exit Function
EH:
End Function


Private Function GetTempDir() As String

GetTempDir = String(255, " ")
GetTempPath 255, GetTempDir
GetTempDir = Left(Trim(GetTempDir), Len(Trim(GetTempDir)) - 1)
End Function

[MrGee]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[سونامی]

میشه یه توضیح دربتره کد ها بدبد

[سونامی]

خودم یه کد ساده تری نوشتم تا ساعت 2 شب بیدار موندم و نوشتم ممنون از راهنمایی

[moshaveran]

سلام سونامی عزیز
میشه کدی که خودت نوشتی را بزاری.
ممنون میشم