أنا عندي جدول في قاعدة بيانات الأكسس يحتوي على صور واسم الجدول pictures ويحتوي هذا الجدول على عمودين:
العمود الأول: id
العمود الثاني: يحتوي على الصورة أي نوع الحقل object
كيف يمكن عرض الصورة بعد تحديد id لها كخلفية للـ form في vb6؟
مع العلم أنا استخدمت هذا الكود ولكن فيه خطأ في السطر الأخير وما عرفت الحل؟
Dim db1 As Database
Dim rs As Recordset
Dim mq As QueryDef
Dim str As String
Private Sub Form_Load()
Set db1 = OpenDatabase(App.Path & "\multemedia.mdb")
str = "select picture from picture where id=1 "
Set mq = db1.CreateQueryDef("", str)
Set rs = mq.OpenRecordset()
Me.Picture = LoadPicture(rs!Picture)