Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > трабля с DAO

Автор: anderson 14.11.2004, 17:20

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

Код


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

Автор: korob2001 14.11.2004, 18:08

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

Код


Data1.Recordset.Refresh

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

Код


Data1.Refresh

Удачи

Автор: anderson 14.11.2004, 18:42

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

срочно нужно прогу написать а тут такая лажа.Вроде операция примитивная. а вот никак не получается найти свою ошибку!
попробую объяснить.Вообщем, в коде котрый я выложил ниже следующее

Код


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

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

smile

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

Автор: Guest 16.11.2004, 13:30

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

Автор: anderson 18.11.2004, 09:36

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

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

не понял ?!!