آقا خيلي اورژانسيه

[HASAN-PUM]

با سلام خدمت سروران گرامي.
قصد دارم كه در ويژوال بيسيك يك بانكي ايجاد كنم كه سه فيلد : كد- نام كالا و عكس مربوط به كالا رو ذخيره كنه و دوم با دادن نام كالا عكس اون به نمايش در بياد . كد زير رو هم نوشتم ولي
Private Sub Command1_Click
Dim source As String
"CommonDialog1.Filter =."jpg
CommonDialog1.ShowOpen
source = CommonDialog1.FileName
(Image1.Picture = LoadPicture(source

adodc1.Recordset.AddNew
adodc1.Recordset!id = Text1.Text
adodc1.Recordset!Name = Text2.Text
adodc1.Recordset!source = source
adodc1.Recordset.Update
اما به قسمت adodc1.Recordset.AddNew خطا میگیره : .<<object variable or with block variable not set
دلیلش چیه :hmm: ؟؟؟؟؟؟؟؟؟؟؟؟؟
برای جستجو هم این کد را نوشتم آیا درسته؟؟؟
Text1.Text = Adodc1.Recordset!id
Text2.Text = Adodc1.Recordset!Name
If Len(Adodc1.Recordset!source) <> 0 Then
(Image1.Picture = LoadPicture(Adodc1.Recordset!source
Else
()Image1.Picture = LoadPicture
End If

 

[Niloufar]

سلام
1- اين خطايي كه فرموديد، احتمالا براي اينست كه هيچ ركوردستي در ADODC ست نكرده ايد و فقط آن را داريد Add مي كنيد
2- اوني هم كه براي جستجو نوشته ايد، در واقع جستجو نيست. بلكه پس از اينكه جستجو كرديد، اين كارها را انجام مي دهيد (كه البته بايد روي مديريت خطاها هم كار كنيد، مثل اينكه بعد از اينكه سورس عكس را در جدول ذخيره كرديد، خود كاربر دستي عكس را پاك كرده باشد و ...)