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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка сохранения в базу данных, help 
:(
    Опции темы
ArtNeoX
Дата 13.2.2006, 22:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
База данных. На форме TextBox'ы в которые загружаются данные из базы access
при добавлении текста в TextBox к уже введенному ранее тексту и нажатии на кнопку cmdUpdate
выдает MsgBox "Ошибка в текущей карточке. Денные не сохранены !!!"
почему?

вот код для сохранения.

Код

Select Case Button.Key
Case Is = "cmdUpdate"
' Обработка ошибок
On Error GoTo T100

GoTo T110

T100:
MsgBox "Ошибка в текущей карточке. Денные не сохранены !!!", vbOKOnly + vbExclamation, "Внимание": GoTo xxx160

T110:
' Сохранение
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
  
xxx160:
End Select
PM MAIL   Вверх
Akina
Дата 14.2.2006, 10:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Как связаны TextBox и Data1? (про себя - а как они вообще могут быть связаны?)


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
ArtNeoX
Дата 14.2.2006, 19:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
В Properties textbox'а
DataSource - Data1
DataField - X1 (наименование столбца)

на форме Data
Connect Access
DefaultType 2-Use Jet
RecordsetType 1-Dynaset
RecordSource Таблица1

что еще?
PM MAIL   Вверх
Exception
Дата 14.2.2006, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 7
Всего: 186
Если ты пишешь код не для себя и даешь его почитать другим, заимей привычку не писать код-спагетти. Что за фигня - Case Is = "cmdUpdate"? Сложно написать Case "cmdUpdate"? Потом я не пойму, а что это ты за событие обрабатываешь? Если клик на тулбаре, неужто нельзя написать процедуру Update, а ее вызывать из кода. И напоследок, не используй GoTo. Из твоего куска кода я практически ничего не понял. Тем более, как ты планируешь узнать, какая у тебя ошибка, если ты не выводишь ее имя? На форуме телепатов нет.
PM   Вверх
ArtNeoX
Дата 14.2.2006, 20:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

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

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

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

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

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

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


 




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


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

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