По поводу Рекордсета!????

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
ProGaMen
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 07.12.2003 (Вс) 20:51
Откуда: Москва

По поводу Рекордсета!????

Сообщение ProGaMen » 07.12.2003 (Вс) 21:07

Дамы и Господа!

Нужна Ваша помошь.
Есть Таблица - "Table (Clients)". Есть форма - "Form (Clients)", в ней несколько кнопок:
"Вставить", "Редактировать", "Удалить". При открытии данной формы кнопки "Редактировать" и "Удалить" заблокированны (так как данные еще не вставленны в форму).
Также есть несколько полей:
"ID", "NameClient", "Description".
Данная форма не основана на таблице, все поля пустые, кроме поле "ID" йдишник передается из другой формы. Мне необходимо чтобы при нажатии кнопки "Вставить" в перечисленные поля вставлялись данные записи соответствующей "ID"из таблицы "Table (Clients)", соответственно при нажатии кнопки "Редактировать" сохранялись изменения в данной записи а при нажатии "Удалить" - удалялись.

Как я понимаю, сделать это лучше с помошью рекордсета в VBA.

Вставить данные у меня получилось, а как вот дальше!?
id=Me.ID
Me.Form.RecordSource = "SELECT*FROM [Table (Clients)] WHERE [ID]= '" & id & "'"
Крепкий дневной сон - это по мне!!!

Oldman
Обычный пользователь
Обычный пользователь
 
Сообщения: 56
Зарегистрирован: 10.11.2003 (Пн) 12:23
Откуда: ТРТУ

Сообщение Oldman » 22.01.2004 (Чт) 12:20

Я для этих целей использую:
Код: Выделить всё
RS.Filter = "ID = '" & Form.ID.Text & "'"
If not RS.EOF 'Если такая запись присутствует
RS.Fields(1).Value = Form.Cliet.Text  'Текстовое поле из формы
RS.Fields(2).Value = Form.Bank.Text 'То же поле, но другое
...
RS.update
end if


Попробуй, пожет поможет :)
Ежики не колются, только бухают иногда


Вернуться в Базы данных

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

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

    TopList