LoveRead.info » Книги » Разная литература » Интернет-журнал "Домашняя лаборатория", 2007 №4 - Коллектив авторов

Интернет-журнал "Домашняя лаборатория", 2007 №4 - Коллектив авторов

Книгу Интернет-журнал "Домашняя лаборатория", 2007 №4 - Коллектив авторов читаем онлайн бесплатно полную версию! Чтобы начать читать не надо регистрации. Напомним, что читать онлайн вы можете не только на компьютере, но и на андроид (Android), iPhone и iPad. Приятного чтения!

111 0 22:43, 29-10-2022
Интернет-журнал "Домашняя лаборатория", 2007 №4 - Коллектив авторов
29 октябрь 2022

Книга Интернет-журнал "Домашняя лаборатория", 2007 №4 - Коллектив авторов читать онлайн бесплатно без регистрации

Большой и увлекательный, научно-прикладной и образовательный, но некоммерческий интернет-журнал, созданный группой энтузиастов. Интернет-журнал содержит материалы, найденные в Интернет или написанные для Интернет. Основная тематика статей — то, что можно сделать самому, от садовых поделок до сверхпроводников, но есть и просто полезные материалы.

    1 ... 190 191 192 193 194 195 196 197 198 ... 206
    Перейти на страницу:
    ��������, ��������� �������� ���� ����������, ��� ����� � ������� Titles ������ ������, � ������� ���� AU ID ����� ����:

    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 ... 190 191 192 193 194 195 196 197 198 ... 206
    Перейти на страницу:
    1. Жалоба
    Отзывы - 0

    Прочитали книгу? Предлагаем вам поделится своим отзывом от прочитанного(прослушанного)! Ваш отзыв будет полезен читателям, которые еще только собираются познакомиться с произведением.


    Уважаемые читатели, слушатели и просто посетители нашей библиотеки! Просим Вас придерживаться определенных правил при комментировании литературных произведений.

    • 1. Просьба отказаться от дискриминационных высказываний. Мы защищаем право наших читателей свободно выражать свою точку зрения. Вместе с тем мы не терпим агрессии. На сайте запрещено оставлять комментарий, который содержит унизительные высказывания или призывы к насилию по отношению к отдельным лицам или группам людей на основании их расы, этнического происхождения, вероисповедания, недееспособности, пола, возраста, статуса ветерана, касты или сексуальной ориентации.
    • 2. Просьба отказаться от оскорблений, угроз и запугиваний.
    • 3. Просьба отказаться от нецензурной лексики.
    • 4. Просьба вести себя максимально корректно как по отношению к авторам, так и по отношению к другим читателям и их комментариям.

    Надеемся на Ваше понимание и благоразумие. С уважением, администратор LoveRead.info.


    Установить VPN и читай слушай бесплатно

    Новые отзывы

    1. Анна Анна15 июнь 07:43 [spoiler][книга интересная,но не полная и к концу главы повторяются.... Кириленко Ирина – Бирюк
    2. Вера Вера15 июнь 01:46 Благодарю Автора!!!! Хорошо,что все хорошо кончается! Сюжет-захватывает!!!... Звезда+1 - Алайна Салах
    3. Борис Борис14 июнь 00:50 Колокола в России тем и отличались от западных что раскачиаали именно язык колокола,а не сам колокол! Авторы что-жертвы ЕГЭ? Не... Соединенные Штаты России 3 - Полина Ром
    Все комметарии
    Новинки бесплатной онлайн библиотеки