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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как программно добавить данные в базу 
:(
    Опции темы
Kavalergrad
  Дата 2.4.2010, 14:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



Учусь программировать в Visual Basic 6.0. Есть расчетная программа, результаты которой выводятся в TextBox-сы. Создал базу данных «probnaya_bd.mdb». База создавалась при помощи библиотек Microsoft DAO 3.6 Object Library. Соответственно база девственно чиста. В ней есть 5 столбцов. Создана CommandButton - «Записать в базу». Теперь мне надо по нажатию на CommandButton записать данные из TextBox-сов в соответствующие столбцы. Соответственно – сколько будет нажатий на CommandButton – столько должно и записей получиться. Каждая новая запись должна начинаться с новой строки. У меня пока получается занести записи в первую строку, а дальше никак. Никак не могу понять как это делается! Помогите, кто знает!

Добавлено через 3 минуты и 4 секунды
Я делал следующее: 
Создал пробную БД - probnaya_bd.mdb 
Создал новый проект 
Подключил библиотеку Microsoft DAO 3.15 Object Library 
В форму вставляю объект Data из окна ToolBox 
Свойства Data : 
имя –Data1 
DatabaseName - C:\Program Files\Microsoft Visual Studio\VB98\проба записи данных в БД\probnaya_bd.mdb 
Connect – Access 
EOFAction –Add New 
RecordSource - bd_proba_1 
Вставил в форму 3 объекта TxtBox cо свойствами: 
Имя- txt_Znachenie1 (и соответственно 2 и 3) 
DataSource - Data1 
DataField - Znacheni1 (и соответственно 2 и 3) 
Вставил в форму объект CommandButton - «Записать в базу» 
В поле код записал: 
Private Sub Command_Click() 
Data1.Recordset.Update 
Data1.Recordset.Bookmark = Data1.Recordset.LastModified 'сохраняет последнее что было введено в объект 
Data1.Recordset.AddNew 
On Error Resume Next 
MsgBox ("Данные добавлены в Базу данных.") 
End Sub 
Жму СТАРТ. В TxtBox –сы вставляю произвольные цифры, а затем кнопку «Записать в базу». Появился MsgBox. Открываю базу – записи есть. Все на своих местах. Меняю в TxtBox-сах значения, а затем жму кнопку «Записать в базу»… И появляется ошибка «Ошибка во время выполнения программы '3020': Uhdate or CancelUhdate without AddNew or Edit.». В коде желтым цветом выделено - Data1.Recordset.Update
Проверил несколько раз - бестолку. Открыл базу данны Access-ом и обнаружил, что несмотря на появляющуюся ошибку данные в базе меняютя. Но меняются-то в одной и той же строке. А надо, что бы каждая новая запись шла с новой строки. 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




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


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

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