Интернет-журнал 'Домашняя лаборатория', 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
