Значит кинул на форму вот такие обьекты:
Image (Одна штука)
name = PicImage
strich = True
TextBox (Три шт.)
1)
name = txtFileName
datafield = FILE
dataSource=dtaBase
2)
name = txtComment
datafield = COMMENT
dataSource=dtaBase
3)
name = txtAddFile
data (1 шт.)
name = dtaBase
connect = Excel 5.0
databasename = моя папка где сохранен проект, формы, картинки и база.xls
recordSource = Лист1$
и 3 кнопки
1)
name = cmdAdd
capton = добавит картинку
2)name = cmdSave
caption = сохранить
3)name = cmdDelete
caption = удалить картинку из базы
далее маленькая таблица сделанная в экселе вот такого вида:
FILE | COMMENT
1.jpg | 1 картинка
2.jpg | 2 картинка
3.jpg | 3 картинка
4.jpg | 4 картинка
Далее вот такой код:
- Код: Выделить всё
Private Sub cmdAdd_Click()
dtaBase.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
End Sub
Private Sub cmdSave_Click()
dtaBase.UpdateRecord
dtaBase.Recordset.Bookmark = dtaBase.Recordset.LastModified
End Sub
Private Sub dtaBase_Reposition()
PicImage.Picture = LoadPicture(txtFileName.Text)
End Sub
Private Sub Form_Initialize()
PicImage.Picture = LoadPicture(txtFileName.Text)
End Sub
Принцип действия проги и моя проблема:
Прога в имайге показывает картинки сохраненые в одном месте с прогой и
базой данных. По нажатию на кнопку "добавить картинку" (нужно предвари-но. положить тудаже где и остальные рис. свой) вписываем имя рисунка нажимаем "сохранить" и он появляется в и сохраняется в базе и появляется в имайге, а вот удалить рисунок из базы я не могу пишет что не обходим обьект, а если прогу откомпилить то пишет что-то типа:
run-time error '424'
object required
Может я че делаю не так?
