Интернет-журнал "Домашняя лаборатория", 2007 №4 - Шаман
����� �� �������� ����� ���������� OLE-������ ��� ������ ������ CreateEmbed, ����������-������, ������������ ������ ������ � class, ������ ���� ��������� ���������������� � ����� �������. ���������� ������ �������� ����� ������ � ���� ������� OLE-���������� �������� Class � ����� ������ ������ � ����� �������. �������� ���� �� ������� ���� ������������������ ������� (���.�8.9).
���.�8.9. ���� ������ ������
�������� Class ������� OLE-��������� ���������� ��� ������ ����������� ������� ��������� �������:
application.objecttype.version
objecttype.version
��� application ���������� ����������, objecttype ���������� ��� ������� � ���������� �������� ���������� � version ���������� ����� ������. ��������, ����������� ������� MS Ecxel ����� ������ ������������ ��������� �������� � ������� ����� (worksheets) � ��������� (charts). ��������������� ����� ������� � Excel.Sheet.5 � Excel.Chart.5.
�������� � ������ ����������. ��������� ������� ��� ��������� ������� ������� ��������� ������, ��� ������� ��������������� ���������:
Private Sub Command1_Click()
Data1.Recordset.AddNew
OLE1.CreateEmbed "Equation.2"
End Sub
������ ��� ������� ������ ��������� � ���� ������ ����� ����������� ������, ���������� �������������� ���������, ������� �� ������ ������������� � ���� OLE-���������� �� ����� �������� �����.
��������� ���� ������ (Data-bound list box) � ��������� ��������������� ���� (Data-bound combo box)��������� � ������� ���� ������ � ��������������� ���� � ������� �� ����� ������� �������� List � Combo box ���������� ����������� ��� ������������� � ���� � �� �������� �������������� � ��������� ���� ��� ����������� �� �������� ����� ���������� �� ���� ������ � ���� �������.
�� ��������� ����������� ���� ��������� ���������� ����������� �� ������ ������������ Visual Basic. ����� �� ��������, ���� ��������� ������� ���� Project � > Components, ������� �� ������ ��������� ���������� (Controls) Microsoft data bound list controls � ����� ������ ������ OK (���.�8.10). � ������������ ���������� �������� ������ ������ ������� ���� �� ������ ������������.
������������ ���� �������� ����� ��������� ��������� ����������: (��������� ������) ���(��������� ��������������� ����) �� ������ ������������. ������ �� ������ ��������� ��� ������� ���������� � ������� ����� ���������� ������ ������������ �� � ������ ������������ �� �������� �����.
���.�8.10. ������ ��������� ���������� Visual Basic
������� ���������� Data-bound list box � Data-bound combo box ����� ���� �������, ��������� ������� ���������� �� ��������� ��� ��������� � ������� ��������� ����������. ������� �������� ���� ������� ��������� � �������.
�������. �������� ���������� ������ � ���������� ���������������� ����
�������� ∙ ��������
RowSource ∙ ��� ������� ���������� �������, ������� ������������ ��� ���������� ������.
ListField ∙ ��� ���� � ������ �������, ������������ ��������� RowSource, ������� ������������ ��� ���������� ������.
DataSource ∙ ��� ������� ���������� �������, � ������� ����������� ������.
DataField ∙ ��� ���� � ������ �������, ������������ ��������� DataSource. ��� ���� ������������ ��� �����������, ����� �������� ������ ������. ����� ������ �������� ������ � ����������� ��������� ������� ������ �� ������ ������ ��� ���� ����� ���������.
BoundColumn ∙ ��� ���� � ������ �������, ������������ ��������� RowSource, �������� �������� ����� �����������.
���� ������������ ���������� DataField � BoundColumn, ������ ���� ������ ����.
�������� ������ �������� ����������, � ������� �������� �� �������� ��� ������������ ��������� ������ � ��������� ��������������� ���� ��� ����� � �������.
����� ������������ ���� ������ FRIENDS.MDB, ������� ���� ������� ����� ��� ������������ ��������� ������������ ���������� VisData � ������ �����. ��� ���� ������ ������� �� ���� ������: PERSON, � ������� ��������� ������������ ���������� � ����� ��������, � WORKPLACE, ���������� �������� �� �� ������ ������ ��� �����. ����� ����� ��������� �������������� �� ��������� ����������� ����������� ����� Id work.
� ���������� ��������� ������� ��������� �������� ��������� ����� ����� ������ � ��������� ��������� �����. ����� ����, ����������� ������������ ����������� ���������� ������ � ����� ������ � ������� ������ ����������� �������� �� ���������� ������ ��� ���������� ���������������� ����. �������, ��� � ���� ������ ����� �� ������ ��������� ����������� ����� ���� ������ ������ ������ �� ������ ������� WORKPLACE.
�������� ����� ������ � ����������� �� �������� ����� ��� ������� ���������� �������, ��������� ������, ��������� ��������������� ����, ������ ����� � ��� ��������� ����, ��� �������� �� ���.�8.11.
���.�8.11. ������������ ��������� ���������� �� �����
� ���� ������� ������� ������� ���������� ������� ���������� �������� DataBaseName ��� ��� ���� ������ FRIENDS.MDB � ��������� ������� ���� � �����. ����� ���������� �������� RecordSource ��� PERSON. ������������� ������ �� ��������� ����� ������� ���������� ���� ����������� ������������ ������������ �� ������ � ������ � ������� PERSON. � ������� ������� ���������� ������� ���������� �������� DataBaseName ����������� ������� � ���������� �������� ������� ��� ��������� SQL-������:
SELECT Idwork, Office FROM WORKPLACE ORDER BY Id_work.
� ���������� ���������� ����� ������� ����� ������ ����� �������, ���������� �������� ����� Id work � Office, � ������������� �� ���� Id work. � ��������, ������ ������ ���������� ������� ����� ������� ���������, ��������� ��� �������� Visible � False, ��� ��� ��� ������