Интернет-журнал "Домашняя лаборатория", 2007 №4 - Арчер
Шрифт:
Интервал:
� ��������� ������� ��������, ��� ��������� ����������� �������������� ���� "Author":
If Data1.Recordset.Fields("Author").Attributes And _
dbUpdatableField = 0 Then
MsgBox "��� ���� �� ����� ���� ��������"
End If
���������� ����� ������������, ����� �� ���������, ��� ���� ������ � ����� ������� ��������� ��������������, ����� ��������� ����� ������.
��� ����, ����� �������� ����� ������ � ����� ������� ���� ��������� ��������� ��������:
1.��������� ����� ������ ������ � ������� ������ AddNew ������� Recordset. ��� ���� ��������� ������� ������ ����������� � ����� ������������ �� ����� ������.
2.����������� ����� �������� � ����� ����������� ������.
3.���������� ��������� ��������� �������������� ������ Update. ��� ���� ��������� ������� ������ ��������� ��������, ������� � ���� ���� ����� �������������� ������ AddNew.
��������� �������� ���� ����������, ��� � ������� ������������ ���� �������� ����� ������ � ������� Titles.
Data1.DatabaseName = "BIBLIO.MDB"
Data1.RecordSource = "Titles"
Data1.Refresh
Data1.Recordset.AddNew '�������� ����� ������
Data1.Recordset("Title") = "Visual Basic" ' ���������� �������� �����
Data1.Recordset("Year Published") = "1996"
Data1.Recordset("AU_ID") = 37 Data1.Recordset("ISBN") = "111-111-11-11"
Data1.Recordset("PubID") = 43 Data1.Recordset.Update ' ��������� ���������
�������������� ������� ��������� ���� ����� �������� ������ � ����� ���� ������, �� ������ ������� ������� ������, ���������� ���������, ������� �������. ��� ����� ������ ������� ��� ������ ������ �� ������� Move ��� ��� ������ ������ �� ��������� �� ������� ���������� �������. ����� ����� �������� ����������� ��������� ����������� ��������� �������� ����������. ����� ��������� ��������� ���������, ���������� ������ ����������� ��������� ������� ������ �� ����� ������ ������ ��� ������������ ����� Update.
����� �������, ��� �������������� ������� ������ ���� ������� ���������:
1.��������������� ��������� ������� ������ �� ������, ������� �� ������ �������������.
2.����������� ����� �������� � ����� ������� ������.
3.������������ ����� Update ��� ����� �� ������� Move
��������� ������ ����������, ��� � ������� ������������ ���� �������� ���������� ���� PubID � ������ ������ ������� Titles. �������� ��������, ��� �� ������ �������� ������ ���� � ����� ������ �������, ���� � ��������� ������� ����������:
Data1.DatabaseName = "C: VB5BIBLI�2.MDB"
Data1.RecordSource = "Titles"
Data1.Refresh
Data1.Recordset("PubID") = "48"
TxtPub.Text = "Visual Basic"
Data1.Recordset.Update
�������� ������������ ������� ������, ���������� ��������� �� ��������� ������ � ��������� ����� Delete ������� Recordset. �������� ����� ������ ��� ��� ����������� ��� �������� �������� Recordset ������� ���������� �������. ����� ������� ������ �������, ���� ��������� �������� �������� ����������� ���������� ���. � ��������� ������� �� ������� Titles ���� ������ BIBLIO.MDB ��������� ��� ������, � ������� ���� �Year Published� �������� �������� �������, ��� 1989.
Data1.DatabaseName="C: VB5BIBLIO.MDB"
Data1.RecordSource="Select * from Titles where [Year Published]<1989"
Data1.Refresh
Do While Data1.Recordset.EOF = False
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Loop
� ���� ������� ��� ������ ������� ���� ����� ������������ ����� MoveNext ��� ����������� ��������� �� ��������� ������. ��� ���������� ������������ ���� �����, ��� ��� ����� �������� ������� ������ ���������� ������������ (invalid) � ����� ������� ������� � ��� ������� ������.
������������� ���� ������� Delete � MoveNext �� �������� ������������ �������� �������� ����� ���������� ������� �� ���� ������. ��� ����������� ����� ����� ������������ ��������������� SQL-������. ��������, ������ ������������ ���� ���� ����� ������������ ����������� �� ������ �������� SQL-������:
DELETE FROM Titles WHERE [Year Published] < #1/1/1989#.
������, ����� ������ ����������� ����� �����������, ��� ���������� � ����� ���� ������� Delete � MoveNext.
���� 6
��������� � ������� �������� ����������
���������� ��������� � ������� ��������� ���������� � Data-bound Controls ��� ������ ����������� � �����, ����������� ������ � Data Control. ��������� �������� ���������� ������ ��� ����������� �� �������� ����� ����������� ������� �� ������ ���� ������ � ������ ������������ ������ ������ � �������� Data.
����� ������� ���������� ������������ �������� ������ � ����������, ������������ � ����� ������ ������ ����� ��������� �������� ���������� � �������� �������� ��������������, ���������� ��� ��������� ������ ����������� � �������. ����� ��������� ������, ��������� ������������� � ��������� ��������� ���������� ����� ���� ������������� �������� � ���� ������.
����������� ��� �������� �� �������������� ��������� ��������� ���������� � ��������� ���������� ������� ����������� ������ �� ����� �, �������, ������ �� ������������ �� ����� ���������� ����������. ���������� �����, ���������� ��������� � ������� ��������� ���������� ��������� ����������� ��������� �������� � �������� ������� ������� �� ���������� ����������, ��������������� �� ������ � ������ ������.
Поделиться книгой в соц сетях:
Обратите внимание, что комментарий должен быть не короче 20 символов. Покажите уважение к себе и другим пользователям!