عکس و 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]

[Di Di]

دوست عزیز

بعد از اینکه 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)