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

Шрифт:

-
+

Интервал:

-
+

Закладка:

Сделать
1 ... 186 187 188 189 190 191 192 193 194 ... 206
Перейти на страницу:
���������� ���������� ��������� ����� Refresh. ��������� ������ ������������, ��� � ��������������������� ����� ������� ����� ������� ������ ��� ������ ������������� ��� ������������ �����������:

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.

1 ... 186 187 188 189 190 191 192 193 194 ... 206
Перейти на страницу:

Комментарии
Минимальная длина комментария - 20 знаков. Уважайте себя и других!
Комментариев еще нет. Хотите быть первым?