Как поменять данные в БД

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Nikolka
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 174
Зарегистрирован: 01.01.2004 (Чт) 2:06

Как поменять данные в БД

Сообщение Nikolka » 09.01.2005 (Вс) 20:13

Проблема проста:

нужно заменить в БД какую-нить запись без связывания с каким-либо там Label.

Пробую:

Data.Recordset("Field1").Value="mytext"

Ругается. :?

ALX_2002
Мега гуру
Мега гуру
 
Сообщения: 2056
Зарегистрирован: 25.11.2002 (Пн) 20:03

Сообщение ALX_2002 » 09.01.2005 (Вс) 20:22

Ругается.... - понятие многогранное.... Так что можно подробнее, что сообщает ? :)

Emzari
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 129
Зарегистрирован: 06.09.2002 (Пт) 9:08
Откуда: Georgia

Сообщение Emzari » 09.01.2005 (Вс) 21:55

Записи в базе данных можно отредактировать с помощю DAO для этого сначала в Refeerences надо подключить Microsoft DAO 3.51 Object Library а потом:

Код: Выделить всё
'обявление обыектных переменных
Dim wrkJet As Workspace
Dim myBase As Database
Dim rstRecordset As Recordset

Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
Set myBase = wrkJet.OpenDatabase("путь к базе данных")
Set rstRecordset = myBase.OpenRecordset("название таблицы в базе данных")
'редактируем первое поле первой записи
With rstRecordset
        .MoveFirst
        .Edit
        .Fields(0).Value= MyNewValue
        .Update
        .Close
End With
myBase.Close
wrkJet.close


:wink:

Nikolka
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 174
Зарегистрирован: 01.01.2004 (Чт) 2:06

Сообщение Nikolka » 10.01.2005 (Пн) 19:43

Хотелось бы поменьше примочек. Покапался я в нете. Нашёл. Выкладываю здесь - должно многим пригодиться.

Код: Выделить всё
'СМЕНА ЗНАЧЕНИЯ В ЯЧЕЙКЕ
Data1.Recordset.Edit
Data1.Recordset![Телефон] = "2-22-22"
Data1.Recordset.Update

Odrick
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 503
Зарегистрирован: 28.09.2003 (Вс) 2:04

Сообщение Odrick » 10.01.2005 (Пн) 23:26

Может и пригодится... Тем, кто mdb юзает... :P


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 9

    TopList