Шрифт:
Интервал:
Закладка:
Data1.DatabaseName="C: VB5BIBLIO.MDB"
Data1.Options=dbDenyWrite + dbReadOnly
Data1.Refresh.
��� ����, ����� �������� ��������� ������ ������� � ����� ���� ������������ ��������� �� ������ ������������ �������� And. � �������������� ���������� ��������� ���� ��, ��������, ������ ���������, ������ �� ����� ������� ������ ��� ������:
If Data1.Options And dbReadOnly Then�
� ReadOnly
�������� ReadOnly ���������� ����� ������� � ���� ������, �������� � ������� ������� Data: ������ ��� ������ ��� ��� ������-������.
���������: data1.ReadOnly=Boolean.
���� �������� ReadOnly ����������� � True, �� �������� ���� ������ �������� ������ ��� ������ � ��, �������������, �� ������ ����������� ������������� ������. ���� �� �������� ����������� � False, �� ���� ������ ������� ��� ������-������ � �� ������ ������ � ������� ���, ��� ������. �� ��������� �������� ReadOnly ��������������� � False.
����� ��������� �������� ReadOnly �� ����� ���������� ���������� ���������� ��������� ����� Refresh. ��������� ������ ����������, ��� ������� ���� ������ ������ ��� ������:
Data1.DatabaseName="C: VB5BIBLIO.MDB"
Data1.ReadOnly=T rue
Data1.Refresh
���� ��� ������������� ������������� ������, �� ��������������� ��������� ���� ������ � ������ ������ ��� ������, ��� ��� �������� � ������� � ���� ������ ����������� ��������� �������.
� Recordset
�������� Recordset ���������� ����� �������, ����������� �������� Data.
���������: data1.Recordset=string.
�������� string ������������ ����� ��������� ������, ������� ���������� ����� �������.
����� �������� ���������� ������������� ��������� ������ Data. ���� � ���� ��������� ����������� �������� Connect, DatabaseName, Options, RecordSource, Exclusive, ReadOnly � RecordsetType, �� ���� ������� ���������� ������ ������ Jet database engine ������� ����� ������ Recordset. �� �� ����� ����������, ���� �� ����� ���������� ���������� ����� �������� ����� Refresh ������� Data. ������ � ����� ������� � ������ ������� ����� �������� ����� �������� Recordset ������� Data.
������ Recordset ����� ��������� ������� � �������, � ������� ���� ������ � �������, ����������� ������������� �������� ������� � ������. ��� �� �����, � ��������� ������� ��������, ��� ������������ ����� Delete ������� Recordset ��� �������� �������.
1.��������� ������, ������� ������������� ��� ������������ ����������� ���������� ������ � ���� ������ � �������������� ������� ���������� �������.
2.��������� �� ����� ��������� ������ � ���������� �� �������� Caption, ��� ��������.
3.��������� � ��������� ��������� ������� Click ��������� ������ ��������� �������� ����: Private Sub Command1_Click()
Data1.Recordset.Delete
Data1.Refresh
End Sub
4.���������� ����������. ������, ��������� � ���������� ������ ���������� �������, �� ������ �� ������ ��������� � ���� ������ ����� ������, �� � ������� ����� ������.
� RecordsetType
�������� RecordsetType ���������� ��� ������ �������, ���������� �������� Data.
���������: data1.RecordsetType=value.
�������� value ���������� ��� ������ �������. ��������� �������� ��������� value ��������� � ��������� �������:
���������� ∙ �������� ∙ ��������
vbRST�peTable ∙ 0 ∙ ��������� ����� ������� ���� �������.
vbRST�peDynaset ∙ 1 ∙ ��������� ����� ������� ������������� ����. ���� ��� ��������� �� ���������.
vbRSTypeSnapshot ∙ 2 ∙ ��������� ����������� ����� �������.
����� ��������� �������� RecordsetType �� ����� ���������� ���������� ���������� ��������� ����� Refresh.
� ��������� ������� ��� ������� ���������� ������� Data1 ����������� ������������ ����� ������� �, �����, ��������� ����� ����� ������� ������������ ����:
Data1.Recordset Close
Data1.RecordsetType=vbRSTypeSnapshot
Data1.DatabaseName= �C: VB5BIBLIO.MDB�
Data1.RecordSource= �select * from Titles�
Data1.Refresh.
� RecordSource
�������� RecordSource ���������� �������� ������ ��� ������ �������, ������������ �������� Data.
���������: data1 RecordSource=string.
�������� string ������������ ����� ������, ������������ �������� ������. ��������� �������� ����� ��������� ������������ � ��������� �������:
��������� ∙ ��������
��� ������� ∙ ��� ����� �� ������, ������������ � ���� ������.
SQL-������ ∙ ��������� ������, �������������� ����� SQL-������ � ���� ������. ������ ��������� SQL ��������� ������ ��������������� ���� ���� ������.
������ QueryDef ∙ ��� ������ �� �������� QueryDef �� ������ QueryDefs ������� Database. ���� �������� ������ �������������� ������ ��� ��� ������ MS Access.
����� ����������������� ������������� �������� RecordSource ������� Data, �������� ���������� ��� ��������� ����� ���� ������ BIBLIO2.MDB, � ������� ������������ ����������� ���������� ������ �� ������ ���������� ������������� �������. ��� ����� ��������� ��������� ��������� ��������:
1.��������� ����� ������.
2.��������� �� ����� ������ ���������� ������� Data1 � ���������� ��� �������� DatabaseName, ��� C: VB5 BIBLI02.MDB. �� �������������� �������� RecordSource.
3.��������� �� ����� ������ DBGrid � ���������� ��� �������� RecordSource, ��� Data1.
4.��������� �� ����� ����� ������������ �� � ������ ComboBox.