مشکل با درج عکس در بانک اطلاعاتی اکسس توسط addoc

[soheilbehro]

سلام
دوستان من یه برنامه کوچیک نوشتم که اطلاعات فرد رو می گیره و تو بانک اطلاعاتی اکسس ذخیره می کنه برای این کار از کنترل adodc استفاده کردم ولی هر کاری می کنم نمیشه برای هر فرد یه عکس ذخیره کرد ، اصلا عکس رو تا بانک اطلاعاتی نمی گیره
من برنامم رو تو فایل ضمیمه گذاشتم اگه کسی بتونه کمکم کنه ازش واقعا ممنون می شم
درضمن نام کاربری و کلمه عبور برنامه 1 است

[m_test]

ذخیره تصویر در اکسس (http://4linecode.mihanblog.com/post/827)

بانک بازیگران همراه با ذخیره عکس و جستجو (http://4linecode.mihanblog.com/post/378)

[soheilbehro]

ذخیره تصویر در اکسس (http://4linecode.mihanblog.com/post/827)

بانک بازیگران همراه با ذخیره عکس و جستجو (http://4linecode.mihanblog.com/post/378)

nدوست عزیز من می خوام از کنترل adodc استفاده کنم
اینایی که تو گفتی کنترل adodc ندارند

[soheilbehro]

دوستان لطفا کمک کنید این برای من خیلی مهمه ، من اینکارو با کنترل data hنجام می دم ولی نمی دونم چرا با adodc نمیشه:گریه:

[ramsess]

دوست من قبلا چنین موضوعی رو توضیح دادم
باید یک common dialog بذاری و یک Text بعد وقتی که عکس رو ذخیره می کنی نام عکس و مسیر اون توی Text بیفته بعد موقع فراخوانی یک Pictur box می ذاری و در کد جستجو بعد از جستجو Ado خاصیت picture - picturebox رو می دی به خاصیت text شی text
text هم به فیلد و ado متصل باشه. در واقع عکس رو ذخیره نمی کنی مسیر عکس رو ذخیره می کنی

[soheilbehro]

ولي دوست عزيز من ميخوام خود عكس رو ذخيره كنم

[SilverGold]

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

[ENG_Torshani]

Private Sub SavePic()
Set Cn = New ADODB.Connection
Cn.Open JetAcc
Set RS = New ADODB.Recordset
RS.Open "SELECT * FROm TBLStu WHERE CodeStu = '" + TXTStuNum + "'", Cn, adOpenKeyset, adLockOptimistic

Set MStream = New ADODB.Stream
MStream.Type = adTypeBinary
MStream.Open

With CM
If Len(.FileName) <> 0 Then
MStream.LoadFromFile .FileName
RS.Fields("Img").Value = MStream.Read
RS.Update
End If
End With
RS.Close
Cn.Close
End Sub

[ALIMAHDE54]

سلام
آقایان عزیز منم در این مورد اشکال دارم والی من میخوام اسم عکسو تو بانک اطلاعاتی ذخیره کنه ولی خود عکس رو اونجا ذخیره نکنه یه جایه دیقه خیره کنه ولی هنگام جستجو با استفاده از نامی که در بانک اطلاعاتی اکسس ذخیره شده به وسیله اون عکسو هم پیدا کنه با زدن نام فرد مورد نظر عکس اونو بیاره
ممنونو میشم کمکم کنید.

[SilverGold]

Dim stm As New Stream

Private Sub CmdDelete_Click()
If Adodc1.Recordset.RecordCount = 0 Then Exit Sub
Adodc1.Recordset.Delete
Adodc1.Recordset.Requery
Adodc1.Refresh
End Sub

Private Sub CmdLoad_Click()
stm.Type = adTypeBinary
stm.Open

stm.Write Adodc1.Recordset.Fields(1).Value
stm.SaveToFile "C:\Temp.jpg", adSaveCreateOverWrite
Image1.Picture = LoadPicture("C:\Temp.jpg")
Kill ("C:\Temp.jpg")
stm.Close

End Sub

Private Sub CmdNext_Click()
Adodc1.Recordset.MoveNext
CmdLoad_Click
End Sub

Private Sub CmdSave_Click()
stm.Type = adTypeBinary
stm.Open
stm.LoadFromFile CmLog.FileName
Adodc1.Recordset.AddNew
Adodc1.Recordset![pic] = stm.Read
Adodc1.Recordset.Update
stm.Close

End Sub

Private Sub Form_Load()
Adodc1.RecordSource = "SELECT * FROM Tbl_Img"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
CmdLoad_Click
End If
End Sub

Private Sub Image1_Click()
CmLog.ShowOpen
Image1.Picture = LoadPicture(CmLog.FileName)

End Sub

[ENG_Torshani]

دوستان تابع قبلی که گذاشتم برای دخیره بود اینم برای فراخوانی


Private Sub LoadPic()
Dim CNI As ADODB.Connection
Dim RS As ADODB.Recordset
Dim MStream As ADODB.Stream
Set CNI = New ADODB.Connection
CNI.Open JetAcc

Set RS = New ADODB.Recordset
RS.Open "SELECT * FROm TBLTeach WHERE PersonelCode ='" + TXTStuNum + "'", CNI, adOpenKeyset, adLockOptimistic

Set MStream = New ADODB.Stream
MStream.Type = adTypeBinary
MStream.Open

MStream.Write RS.Fields("Img").Value
MStream.SaveToFile "C:\Temp.jpg", adSaveCreateOverWrite
ImgLogo.Picture = LoadPicture("C:\Temp.jpg")
Kill ("C:\Temp.jpg")
End Sub