مشکل در لود عکس

[navid674]

باسلام خدمت دوستان گرامی
عکسی دارم توی فرم و از اکسس که رشته ای است و آدرس عکس رو ذخیره میکنه استفاده می کنم.
وقتی عکس رو انتخاب میکنم اونرو توی image box میاره و آدرس هم تو بانک ذخیره میشه اما با تغییررکوردها از طریق شیء adodc نمی تونم جابجاش کنم لطفا راهنمایی بفرمائید.


Private Sub Image1_Click
CommonDialog1.ShowOpen
(Image1.Picture = LoadPicture(CommonDialog1.FileName
Adodc.Recordset.Fields("aks") = CommonDialog1.FileName
Adodc.Recordset.Update
End Sub

[محسن واژدی]

سلام علیکم
دستور تغییر عکس را در رویداد WillMove شی ADODC قرار بدین

موفق باشید

[navid674]

آقا محسن خیلی ممنون میشه لطف کنی دستورش رو هم بفرمائید من چیزی پیدا نکردم

[محسن واژدی]

از آنجایی که کد پست 1 تنها مسیر تصویر را ذخیره میکند میتوانید از کد زیر استفاده کنید:
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Image1.Picture = LoadPicture(Adodc1.Recordset.Fields("aks").Value)
End Sub

موفق باشید