| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > VB6 > Как программно добавить данные в базу |
| Автор: Kavalergrad 2.4.2010, 14:28 |
| Учусь программировать в 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-ом и обнаружил, что несмотря на появляющуюся ошибку данные в базе меняютя. Но меняются-то в одной и той же строке. А надо, что бы каждая новая запись шла с новой строки. |