Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> НЕ обновляется запись в БД, обновить запись по измененным ячейкам 
:(
    Опции темы
FRC
Дата 18.11.2006, 12:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 15.10.2006

Репутация: нет
Всего: нет
На Form1 находится MSHFlexGrid1 при выделении одной из записей пользователь нажимает кнопку "Редактировать запись".
После нажатия на кнопку открывается frmR на которой находятся TextBoxы: txtName, txtNomerIP
в них загружаются данные из БД выбраной пользователем записи. Пользователь после внесения изминений в txtName нажимает кнопку 
"Сохранить изминения" Далее произойти должно следующее - форма закрывается, остается открытой Form1 в таблице MSHFlexGrid1 
запись которая была отредактирована пользователем должна содержать измененные данные только в тех полях в которых были сделаны изминения.
У меня получается пока только добовлять в таблицу клон измененной записи!
Вот код кнопки "Сохранить изминения"
Код
Dim cmd As String, sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
'создать строку подключения
cmd = "Provider = microsoft.jet.OLEDB.4.0; Data Source=C:\BAZA.mdb"
'установить соединение с базой данных
Set cn = New ADODB.Connection
cn.ConnectionString = cmd
cn.Open
sql = "select*from TAB" 'создать запрос
Set rs = New ADODB.Recordset 'открать набор записей
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
'предупреить пользователя что данные были им изминены
rc = MsgBox("Внимание данные были изменены?", vbYesNo + vbQuestion, "Данные записаны!")
'процедура обнавления
rs("Name") = txtName
rs("NomerIP") = txtNomerIP
rs.UpdateBatch
rs.Close
Set cn = Nothing

'Form1.Adodc1.Refresh
Form1.MSHFlexGrid1.Refresh
 Unload Me




Это сообщение отредактировал(а) FRC - 18.11.2006, 12:33
PM MAIL   Вверх
mihanik
Дата 20.11.2006, 08:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
Знаешь...
У меня закралась мысль, что сначала надо БД сказать, что текущую существующую запись будут редактировать...

Типа перед изменением надо выполнить команду

Код

rs.edit




--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Тутанхамец
Дата 20.11.2006, 10:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6
Изучи  вот этот проект.

Кстати, если это адо, то rs.edit не нужно. Хватит и update. Но нужно обозначить какая именно запись будет изменяться. 

В проекте подразумевается, что ты отображаешь ВСЕ записи в таблице. 

Это сообщение отредактировал(а) Тутанхамец - 20.11.2006, 10:11

Присоединённый файл ( Кол-во скачиваний: 10 )
Присоединённый файл  db5.rar 9,00 Kb


--------------------
Мой блог / Мои фотки / Моё Skolkobudet.ru
PM MAIL   Вверх
FRC
Дата 21.11.2006, 09:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 15.10.2006

Репутация: нет
Всего: нет
Уважаемый Тутанхамец, спасибо за примерчик, а нельзя ли поподробней с выходом на форму редактирования? smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0422 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.