Интернет-журнал "Домашняя лаборатория", 2007 №4 - Арчер
Книгу Интернет-журнал "Домашняя лаборатория", 2007 №4 - Арчер читаем онлайн бесплатно полную версию! Чтобы начать читать не надо регистрации. Напомним, что читать онлайн вы можете не только на компьютере, но и на андроид (Android), iPhone и iPad. Приятного чтения!
Шрифт:
Интервал:
Закладка:
Data1.Recordset.FindFirst "AU_ID=5".
�������� ������� ���������� ��� ��������� ������� Titles ���� ������ BIBLI�2.MDB � ������������ �������� ������ ������. ��� �����:
1.��������� ����� ������ � ���������� �� ����� ������ Data, ������ DBGrid � ��� ��������� ������, ��� �������� �� ���.�5.1.
���.�5.1. ������� ���� ����������.
2.����������� ��������� �������� ��� �������� Data � DBGrid:
Data1.DatabaseName=" C: VB5BIBLI02.MDB"
Data1.RecordSource=Titles
DBGrid1.DataSource=Data1.
3.���� ������, ������������ ����������� ���������� ������ ����������, ��������� ��������� ������� ������ ������ ��������� �������:
Private Sub Command2_Click()
Unload Me
End Sub.
4.���� �������� � ������ �� ����� ���� ������ ������ �������� � ��������� ��������� ������� ������ ������ ��������� ������:
Private Sub Commandl_Click()
Form2.Show
End Sub
5.��������� � ������ ����� ����� � ���������� �� ��� ��������� ����, ����� � ��� ��������� ������, ��� �������� �� ���.�5.2.
���.�5.2. ���� ������ ������.
6.��������� � ��������� ��������� ������� ������ ������ ��������� ���:
Private Sub Command1_Click()
Dim strCompare As String
strCompare = "[Year Published] = " + Text1.Text
Form1!Data1.Recordset.MoveFirst
Form1!Data1.Recordset.FindFirst strCompare
Unload Me
End Sub.
��������� ���������� strCompare ���������� ������� ������. ����� �������������� ������ FindFirst ��������� ������� ������ ��������������� �� ������ ������ � ������. ����� ������� ����� �������������� � ������ ������ � ������.
� ������ ������ ����� ������������ ������ �� ���� ������� �����. ��� ������������� �� ������ ���� �� ������ ���������� ���������� ��������� �������� ������.
7.���� ������ ������ ���������� ��������� ���� � ��������� ��������� ������� ������ �������:
Private Sub Command2_Click()
Unload Me
End Sub.
8.���������� ����������.
������������� ������ Seek ��� ������ ����������� Seek ������������ ��� ������ ������ � ������ ������� ���� Table. ��� ������������� ������ Seek ��������� ��� ������ ���������� ������� ������ �������, ������� ��������� ��������� Index ������� Recordset. ����� ���������� ����� ������ ������� ������� � ������ ���������� ��������� ������.
����� Seek ����� ��������� ���������:
Recordset.Seek comp, key1, key2.
������ �� ���������� � comp �������� �������, ������� ���������� ��� ���������. � ��������� ������� ������������ ���� ���������, ������� ������������ � ������� Seek.
������ ∙ ��������
"=" ∙ ����� ������������ ��������.
">=" ∙ ������ ��� ����� ������������ ��������.
">" ∙ ������ ������������ ��������.
"<=" ∙ ������ ��� ����� ������������ ��������.
"<" ∙ ������ ������������ ��������.
��������� keyn ������������ ����� ������������������ ��������, � �������� Visual Basic ���������� ��������� ����������� ������� �������.
� ��������� ������� ����� Seek ������������ ��� ������ ������, ���������� �������� 5 � ����
AUID, ������� �������� ���������� ��������� �����.
Dim MyTable As Recordset
Set MyTable = Data1.Recordset
MyTable.Index = "AU_ID"
MyTable.Seek "=",5
����� ��� ��� �����������, ��� ����� �������������� ������ Seek ���������� ���������� ������� ������ � �������������� �������� Index. � ��������� ������ ��������� � ����� ������ �������� � ������.
��� ������, ����� �� �������� ���� ���������� �� ������������� ������������� ���������� ���� ������, �� ������ ���� �������, ��� ��� ����� ������. ��� ������������� ������� ������� ���� snapshot, �� �� ������ ������� ��������� � ���� ������ �� �����������. ���� �� �� �������, ��� ���������� ���� ������ ����� �������������, ������ ��������� ���������� ��������� �������:
�������� Updatable � ���� ������, ������ ������� � ���� ������ ���� ����������� � True.
���� �����-������ �� ���� ������� ����������� � False, �� ��������������� ������ �������� ������ ��� ������.
�� ������ ������������ ������ ���������� �������, � �������� �������� ReadOnly ����������� � False.
� ������� ���������� ��������� ���� �� ������ ���������, ����� �� ������������� ���� ������:
If Data1.ReadOnly = True or Data1.Database.Updatable = False Or _
Data1.Recordset.Updatable = False Then
MsgBox "��� ������ �� ����� ���� ��������"
End If
��� ����,
Прочитали книгу? Предлагаем вам поделится своим отзывом от прочитанного(прослушанного)! Ваш отзыв будет полезен читателям, которые еще только собираются познакомиться с произведением.
Уважаемые читатели, слушатели и просто посетители нашей библиотеки! Просим Вас придерживаться определенных правил при комментировании литературных произведений.
- 1. Просьба отказаться от дискриминационных высказываний. Мы защищаем право наших читателей свободно выражать свою точку зрения. Вместе с тем мы не терпим агрессии. На сайте запрещено оставлять комментарий, который содержит унизительные высказывания или призывы к насилию по отношению к отдельным лицам или группам людей на основании их расы, этнического происхождения, вероисповедания, недееспособности, пола, возраста, статуса ветерана, касты или сексуальной ориентации.
- 2. Просьба отказаться от оскорблений, угроз и запугиваний.
- 3. Просьба отказаться от нецензурной лексики.
- 4. Просьба вести себя максимально корректно как по отношению к авторам, так и по отношению к другим читателям и их комментариям.
Надеемся на Ваше понимание и благоразумие. С уважением, администратор knigkindom.ru.
Оставить комментарий
-
Гость Татьяна30 май 15:03 Сказка. А потом ускочет мальчик,а тётенька будет воспитывать сынка-внучка по новой тянуть лямку. ... Друг сына - Мария Зайцева
-
Гость Вера25 май 10:38 Я давно и безнадежно влюблена в эту серию книг... Королевская кровь. Стальные небеса - Ирина Котова
-
Гость Марина23 май 13:22 Очень жаль, что не закончена книга. Мне очень понравилась ... Вахтовик - Владимир Мухин