|
Модераторы: Akina |
|
Kavalergrad |
|
|||
Новичок Профиль Группа: Участник Сообщений: 4 Регистрация: 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-ом и обнаружил, что несмотря на появляющуюся ошибку данные в базе меняютя. Но меняются-то в одной и той же строке. А надо, что бы каждая новая запись шла с новой строки. |
|||
|
||||
Правила форума "VB6" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | VB6 | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |