ايران ويج

نسخه‌ی کامل: عکس و adodc
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
Adodc1.RecordSource = "SELECT * FROM Sample WHERE Name Like " & searchtxt.Text
'If Adodc1.Recordset.Fields("img") = "" Then
'img5.Picture = LoadPicture("C:\Save Pic to DB\Save Pic to DB\1.bmp")
'Else
'img5.Picture = LoadPicture(Adodc1.Recordset.Fields("img"))
'End If
adodc1.refresf
یه فیلد دارم به نام imgکه (آدرس عکس=مجوز) روذخبره میکنه.به دلیل کم شدن سرعت نخواستم که خود عکس دخیره بشه.
هدف اینه که اگرکاربر مجوزنداره یه عکس ازآدرسC:\Save Pic to DB\Save Pic to DB\1.bmpخونده بشه ونمایش بده......درغیراین صورت ازطریق آدرسی که قبلاً ذخیره شده عکس موردنظرنمایش داده بشه.
کسی میدونه اشکال از کجاست که انجام نمیشه؟؟درهرصورت دستوربعدازelseبررسی میشه و خطامیده[/align]
دوست عزیز

بعد از اینکه Source رو ست کردی باید دیتابیست رو ریفرش کنی.
کد:
Adodc1.RecordSource = "SELECT * FROM Sample WHERE Name Like " & searchtxt.Text
Adodc1.Refresh

در ثانی بعد از اون باید اول چک کنی ببینی چیزی پیدا کرده یا نه
کد:
IF Adodc1.Recordset.Eof=True then Exit Sub
در نهایت باید چک کنی مقدار اون فیلدی که می خوای بخونی Null نباشه
کد:
IIF(IsNull(Adodc1.Recordset!Img),"",Adodc1.Recordset!Img)