Всем привет !!
че-то не могу разобраться в чем может быть ошибка. Вообщем, на форме создал Data(блок управления базой данных) и text (текстовое поле) . И прикол в том что не получается внести изменения в базу. т..е добавить запись.
P.S. Readonly = false , т.е. запись в базу допустимо.

Код

Private Sub Command1_Click() InputBox ("Введите искомое значение") Data1.Recordset.AddNew data1.Recordset.Refresh End Sub

Попробуй эту строку:

Код

Data1.Recordset.Refresh

замени на такую:

Код

Data1.Refresh

Удачи

2 korob2001
неа не получается, тоже самое !!
до этого у меня стояла винда 98 , проблем вроде не было,т.е в разработке программ для работы с базой данных. Щас поставил винь 2000 проф и вот такая лажа !!!
Посмотрите плиз внимательно сорсы, мож че я упустил срочно нужно прогу написать а тут такая лажа.Вроде операция примитивная. а вот никак не получается найти свою ошибку!
попробую объяснить.Вообщем, в коде котрый я выложил ниже следующее

Код

Private Sub AddnameButton_Click() InputBox ("add") Data1.Recordset.AddNew Data1.Refresh End Sub

Значит тут: нажатием на кнопку add выводится окно для ввода необходимой информации которую нужно добавить в базу функцией inputbox. Поидеи запись должна добавиться!
data1.refresh рефрешит базу, после чего можно увидеть изменения.
.....

Код

Private Sub FindButton_Click() Dim name name = InputBox("add") Data1.Recordset.Index = "Title" Data1.Recordset.Seek "=", name if data1.recordset.nomatch then msgbox("Bad result") End if End Sub

После того как запись в базу сделали попробуем найти её. Жмем на форме кнопку find выводится окно запроса искомой инфы функцией inputbox. Индексируется база под заголовком "Title"
поиск происходит функцией SEEK "=" что означает искать только точное значение т.е. содержащая переменная Name..
Далее проверка .. Если запись найдена показывает её. если нет. сообщение Bad Result

Заранее спасибо за советы!!!!


P.S. Вот и фсё ! пробовал даже открыть базу в Access ничего! база пустая,значит изменений не было!! Да и еще, подключаю базу mdb !!!

Это сообщение отредактировал(а) anderson - 14.11.2004, 18:46

Data1.Recordset.AddNew
Data1.Recordset!поле=значение
Data1.Recordset.Update

Цитата(Guest @ 16.11.2004, 13:30)

Data1.Recordset!поле=значение

не понял ?!!