| Вопрос: База данных | Добавлено: 01.03.06 10:03 |
Автор вопроса:  angrynews | Web-сайт: www.angrynews.ru
|
| Ответы | Всего ответов: 26 |
|
Номер ответа: 16 Автор ответа: [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #16 | Добавлено: 02.03.06 10:28 |
|
В тот же пример "base" добавь
Private Sub Command1_Click() bday.Recordset.MoveLast bday.Recordset.AddNew End Sub[/CODE] В конец базы добавляет новую запись - если заполнены поля |
||
|
Номер ответа: 17 Автор ответа:  angrynews Вопросов: 33 Ответов: 119 |
Web-сайт: Профиль | | #17 | Добавлено: 02.03.06 10:32 |
|
щас попробую
Видимо какой-то затык у меня с исходной пустотой базы. Если заполняю ее без кода, только ДАТОЙ (твой пример), то она заполняется нормально. например, добавил 2 записи, потом третью кнопкой тоже добавляет. а вот с пустой не хочет кнопка дружить |
||
|
Номер ответа: 18 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #18 | Добавлено: 02.03.06 11:37 |
|
bday.Recordset.MoveLast bday.Recordset.AddNew End Sub В конец базы добавляет новую запись - если заполнены поля AddNew и так добавляет в конец базы. Нахрен еще лишняя навигация? |
||
|
Номер ответа: 19 Автор ответа: angrynewsВопросов: 33 Ответов: 119 |
Web-сайт: Профиль | | #19 | Добавлено: 02.03.06 11:47 |
| нужно чтобы по кнопке добавлял | ||
|
Номер ответа: 20 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #20 | Добавлено: 02.03.06 13:26 |
|
а у меня, в базу "base" все нормально добаляется, даже если она пуста
|
||
|
Номер ответа: 21 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #21 | Добавлено: 02.03.06 13:28 |
|
LamerOnLine:
ну да в принципе, можно и опустить |
||
|
Номер ответа: 22 Автор ответа: angrynewsВопросов: 33 Ответов: 119 |
Web-сайт: Профиль | | #22 | Добавлено: 02.03.06 14:36 |
|
ага!
Значит так, уже теплее! Сделал у ДАТЫ свойство EOFAction AddNew. Теперь при нажатии на кнопку вот с таким кодом Private Sub Command1_Click()
 ata1.Recordset.AddNew
ata1.Recordset!Name = Text1.Text
ata1.Recordset!sname = Text2.Text
ata1.Recordset!phone = Text3.Text
ata1.Recordset.Update
ata1.Recordset.MoveLast
End Sub Все работает как мне хотелось,т.е. текущие данные из боксов добавляются в базу. НО при закрытии формы крестиком добавляется пустая строка в базу. Странно...видимо я что-то не так понимаю в действии рекордсета |
||
|
Номер ответа: 23 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #23 | Добавлено: 02.03.06 14:54 |
|
Для чего это:
Data1.Recordset!Name = Text1.Text
Data1.Recordset!sname = Text2.Text Data1.Recordset!phone = Text3.Text В том примере, что я тебе послал, текстовые поля и база соединены. Свойство: DataSourse - стоит "bday", т.е. имя базы ataField - стоит имя поля, с которым оно соединено
|
||
|
Номер ответа: 24 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #24 | Добавлено: 03.03.06 12:19 |
|
Нашел такую строчку кода
'ПРОСТО ПОИСК С ПЕРЕХОДОМ НА НАЙДЕННУЮ ЯЧЕЙКУ
Data1.Recordset.FindNext "[Фамилия] = 'Иванов'" If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast А под себя не могу переделать, в чем косяк Private Sub Command3_Click()
Dim strInput As String 'Поля Name Sname Phone 'Как сделать поиск по первому 'Чтобы найденные поля выводилсь в соот-ые текстовые strInput = InputBox("Введите имя необходимое для поиска", "Поиск записи" 
phone.Recordset.FindNext "[Name] = 'strInput'" 'Не понятно как правильно писать запрос 'И как при нахождении их вывести End Sub |
||
|
Номер ответа: 25 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #25 | Добавлено: 03.03.06 12:39 |
|
phone.Recordset.FindNext "[Name] = " & strInput |
||
|
Номер ответа: 26 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #26 | Добавлено: 03.03.06 12:43 |
|
КОСЯК! ПОТОРОПИЛСЯ
phone.Recordset.FindNext "[Name] = '" & strInput & "'" |
||