Читать интересную книгу Интернет-журнал 'Домашняя лаборатория', 2007 №4 - Коллектив авторов

Шрифт:

-
+

Интервал:

-
+

Закладка:

Сделать
1 ... 191 192 193 194 195 196 197 198 199 ... 206
����� ����������, ��������� �� ����������� �������������� ������������ ���� ���� ������, ���� ��������� ��� dbUpdatableField � �������� Attributes. ���� ���� ��� �������� 0, �� ���������� ���� �������� ����������. � ��������� ������ �������������� ���� �����������.

� ��������� ������� ��������, ��� ��������� ����������� �������������� ���� "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.

����� ������� ���������� ������������ �������� ������ � ����������, ������������ � ����� ������ ������ ����� ��������� �������� ���������� � �������� �������� ��������������, ���������� ��� ��������� ������ ����������� � �������. ����� ��������� ������, ��������� ������������� � ��������� ��������� ���������� ����� ���� ������������� �������� � ���� ������.

����������� ��� �������� �� �������������� ��������� ��������� ���������� � ��������� ���������� ������� ����������� ������ �� ����� �, �������, ������ �� ������������ �� ����� ���������� ����������. ���������� �����, ���������� ��������� � ������� ��������� ���������� ��������� ����������� ��������� �������� � �������� ������� ������� �� ���������� ����������, ��������������� �� ������ � ������ ������.

1 ... 191 192 193 194 195 196 197 198 199 ... 206
На этом сайте Вы можете читать книги онлайн бесплатно русская версия Интернет-журнал 'Домашняя лаборатория', 2007 №4 - Коллектив авторов.
Книги, аналогичгные Интернет-журнал 'Домашняя лаборатория', 2007 №4 - Коллектив авторов

Оставить комментарий