Интернет-журнал 'Домашняя лаборатория', 2007 №4 - Тен

SELECT * FROM TITLES, AUTHORS, PUBLISHERS, [TITLE AUTHOR] WHERE TITLES.ISBN = [TITLE AUTHOR].ISBN AND [TITLE AUTHOR].AU_ID = AUTHORS.AU_ID AND TITLES.PUBID= PUBLISHERS.PUBID

���� ������ �������� ��� ���� �� ���� ������� ������ ���� ������ BIBLIO.MDB, ��������� ����� ����� � ������� ����������� �������� �������� �����.

6.����������� �� ����� ������ ����� �, ��������������, ������ ��������� ���� ��� �������� �� ���.�3.6 � ���������� �� �������� ��������� �������:

Label1.���tion=��������

Text1.DataSource=Data1

Text1.DataField=Title

Label2.Caption=ABTop

Text2.DataSource=Data1

Text2.DataField=Author

Label3.Caption=��� �������

Text3.DataSource=Data1

Text3.DataField=Year Published

Label4.Caption=Te�a �����

Text4.DataSource=Data1

Text4.DataField=Subject

Label5.Caption=��������

Text5.DataSource=Data1

Text5.DataField=Description

L���l6.Caption=������������� ��� ISBN

Text6.DataSource=Data1

Text6.DataField=TITLES.ISBN

L���l7.Caption=������������

Text7.DataSource=Data1

Text7.DataField=Name

L���l8.Caption=����������

Text8.DataSource=Data1

Text8.DataField=Notes

���.�3.6. ��� �������� �����.

7.������������� �������� ��� ���������� ������ ����������. ��� ����� �������� �� ����� ��������� ������, ���������� �� �������� Caption ��� ������ � ���������� ��������� ��� � ��������� ��������� ������� Click:

Private Sub Command1 Click ()

Unload Me

End Sub

8.���������� ������ �� ���������� ������� ������� Start �� ���� Run, ��� ������� ������� F5. ��������� ������ ��������� ������� �� ���.�3.7. � ������� ������ �� ��������� �� ������� ���������� ������� ����� ���������� ������� ��������� �� ������ ������� � ���������� ��������������� ����� ����� ������������� ������������ �� ����� � ��������� ��������� ����������.

9.��������� ���������� �������� ������ ������.

���.�3.7. ��������� ������ ����������.

���� 4

��������, ������ � ������� ������� ���������� �������

������ Data, ��� � ����� ������ ������� ���������� � Visual Basic, ����� ��������� �����������, ����� ��� ������ ��������� ����������, �������, ������� � �������. ������ � ����, �� ����� ����� ��� �������, ������� � �������, ��������������� ��� ������ � �������. ������ ��� � ����� ��������������� ����������� ����.

� BOFAction

�������� BOFAction ���������� �������� ������� Data, ���� �������� BOF (beginning of file � ������ �����) � ���������� �� ������ ������� ����������� � True.

���������: data1.BOFaction=value.

�������� value ����� ���� ������� �� ���� �����������: MoveFirst ��� BOF.

��� �������� ������� Data �������� BOFAction ��������������� �� ��������� ��� MoveFirst. ��� ���� ������� ���������� ������ ������ � ������ �������.

��������� �������� BOFAction � BOF �������� � ����, ��� ��� ����������� ��������� ������� ������ �� ������� ������ ������, ������� ������ ���������� ������������ (invalid) � ����� ������� �� �������������� �������� � ������. � ���� ������ ���������� ������� Validate �� ������ ������ � ������ �, �����, ������� Reposition, ��� �� ������������ ������. ��� ���� ������ ����������� ��������� � ���������� ������ �� ������� ���������� ������� ���������� ����������.

���������� �������� BOFAction ������� ���������� ������� data1 � ������ ���������� ���������� ����� ��������� �������:

data1.BOFaction= vbBOFActionMoveFirst,

���

data1.BOFaction= vbBOFActionBOF.

��������� ��������� �������� BOFAction ��������� � ��������� �������.

��������� ∙ ��������� ∙ ��������

MoveFirst ∙ vbBOFActionMoveFirst ∙ 0

BOF ∙ vbBOFActionBOF ∙ 1

� Connect

�������� Connect ���������� ��� ���� ������, ����������� �������� Data. �� ��������� ����������� ���� ������ � ������� Microsoft Access.

���������: data1.connect=string.

��������� �������� ��������� �������� Connect ��������� � ��������� �������.

��� ���� ������ ∙ �����������

MS Access ∙ ";"

dBASE � ∙ "dBASE x;"

Paradox x.x ∙ "Paradox x.x;"

FoxPro x.x ∙ "FoxPro x.x;"

Excel x.0 ∙ "Excel x.0;"

Lotus WKx ∙ "Lotus WKx;"

Text ∙ "Text;"

Btrieve ∙ "Btrieve;"

ODBC ∙ "ODBC; DATABASE = defaultdatabase; UID=user; PWD=password; DSN=datasourcename; LOGINTIMEOUT=seconds"

��������� �������� Connect � ������ ���������� ���������� ������������ ��������� �������: data1.connect= " dBASE IV;"

data1.connect= " FoxPro 3.0;".

� Database