VBNet - Форум - Помогите разобраться с фото

Вопрос: Помогите разобраться с фото Добавлено: 04.07.02 08:33

Автор вопроса: Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361

Есть список студентов уже готовый около 2000 чел.
Есть фотографии студентов в формате JPG, BMP.
Нужно установив курсор на определенную фамилию из списка
нажав кнопку открыть выбрать фото студента и сохранить его именно в эту строку, а у меня получаеться, что он создает новую запись, я конечно понимаю, что у меня так написано но я не знаю как сделать иначе.
Private Sub Command2_Click()
On Error Resume Next
Data1.DatabaseName = "E:\stud\1.mdb"
'Data1.RecordSource = "select * from student where fam like '" & Text1.Text & "*'"
Data1.RecordSource = "select * from student"
Data1.Refresh
Dim FileName        As String
Dim FileBin         As String
Dim i As Integer
FileName = Me.CommonDialog1.FileName
If FileName = Empty Then MsgBox ("Выбор файла не осуществлен"), vbExclamation, Me.Caption: Exit Sub
For i = Len(FileName) To 1 Step -1
If Mid(FileName, i, 1) = "\" Then
    FileName = Right(FileName, Len(FileName) - i)
    GoTo l1
End If
Next
l1:
Data1.Recordset.AddNew
Open FileName For Binary As #1
FileBin = String$(LOF(1), " ")
Get #1, 1, FileBin

Data1.Recordset.Fields("namefile") = FileName
Data1.Recordset.Fields("Photo") = FileBin
Data1.Recordset.Update

Close #1
'Me.List1.AddItem FileName
MsgBox "Ваш файл записан в Базу Данных", vbInformation, Me.Caption
Me.CommonDialog1.FileName = Empty
End Sub

Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: Stan Вопросов: 0 Ответов: 12	Профиль \| \| #1	Добавлено: 04.07.02 10:56
	Измени стрoку Data1.Recordset.AddNew нa Data1.Recordset.Edit Ответить

Номер ответа: 2 Автор ответа: Andrey999 ICQ: 30852361 Вопросов: 73 Ответов: 168	Web-сайт: www.radio-device.narod.ru Профиль \| \| #2	Добавлено: 04.07.02 14:30
	Он все равно не добавляет, теперь даже новой строкой Ответить

Номер ответа: 3 Автор ответа: Stan Вопросов: 0 Ответов: 12	Профиль \| \| #3	Добавлено: 04.07.02 16:24
	Я пoсмoтрел внимaтельнo твoю прoцедуру - oнa вooбще непрaвильнo нaписaнa. 1)Перенеси дaнную чaсть Data1.DatabaseName = "E:\stud\1.mdb" Data1.RecordSource = "select * from student" Data1.Refresh в Private Sub Form_Load() 2)Нужнo привязaть oбъект Data1 к тoму oбъекту из кoтoрoгo прoисхoдит выбoр студентa,чтoбы Recordset мoг синхрoннo изменяться Ответить

Номер ответа: 4 Автор ответа: Andrey999 ICQ: 30852361 Вопросов: 73 Ответов: 168	Web-сайт: www.radio-device.narod.ru Профиль \| \| #4	Добавлено: 04.07.02 23:14
	Огромнешее фенкс все работает. Ответить

Страница: 1 |