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

5.��������� � ������ General ��������� ���:

Dim � As Integer

Dim A(4) As String Dim B(4) As String

6.��������� � ��������� �������� ����� ��������� ���:

Private Sub Form_Load()

�(0) = "���������"

�(1) = "���� �������"

�(2) = "ISBN"

�(3) = "��. ��������"

For i = 0 �� 3 Combol.AddItem A(i)

Next i

Combo1.Listlndex = 0 B(0) = "Title"

B(l) = "[Year Published]"

B(2) = "ISBN"

B(3) = "PubID"

End Sub

7.��������� � ��������� ��������� ������� Click �������� ���������� ComboBox ��������� ���: Private Sub Combol_Click()

Dim strl As String strl = "select * From titles order by " & B(Combo1.Listlndex)

If Combo1.Listlndex = Empty Then strl = "select * From titles"

End If

Data1.RecordSource = strl

Data1.Refresh

End Sub

8.���������� ������ �� ����������.

����� �������� �����, ������ � ������� DBGrid ����� ���������� � ��������������� ����, ������, ������ ����� ��������� � ���������� �������, �� ���� � ���, � ������� ��� ���� ������� � ���� ������, ���� � �������� ���������� ComboBox ����� �������� ��� ���������. ����� �������� �� ������ ������ ��������� ������ ������������, ��������, ��� ���� ��������. ����� ��������� ������� Click ����� ������ ����� ����� �������, ���������� ������ ��� �������� ����� ������� ��������� ���������� ���������� SQL-������� select * From titles order by [Year Published].

�� ���.�4.3 ������������ ����������������� ���������� �� ���� ������ BIBLI�2.MDB, ������������� �� ���� ������� �����.

���.�4.3. ����������������� ������, ������������� �� ���� ������� �����.

� Refresh

����� ��������� �������� ������� Data �� ����� ���������� ����������, ���� ������� ���������� ������ ������ Jet database engine ����� �� ������ ����� ��� ������������� ��������. ������ ������, ������ �������� � ��������� ���� ������������� �������� �� ������ ����������. ���������� ������ ���������������� ������ ���������� �������, ������� ����� ������������� ������� ������ ������� ������� � ������ (��������, DataBase ��� Recordset) � ��� ������ ����������. ��� ����� ���������� ��������� ����� Refresh. ����� �������, ����� Refresh ������������ ��� ����, ����� �� ����� ���������� ���������� �������������������� ������ ���������� �������, �� ��� � ������ ����������.

���������: Data1.Refresh.

����� ���������� ������ Refresh ��������� ������� ������ ��������������� �� ������ ������ � ������, ��������� �������� Data.

� UpdateControls

�������� ������ UpdateControls ��������� ���������� ������������� ��������� ������� ������ �� ����. ��� ����, ��������� �������� ���������� ��������� �, �����, �� ���������� ����������������� �������� ������� ������. �� ����, ������� ��������� ����� ���� ������ �� ����������, ���� ���� ���������� ��������� ��������� ���������� ���� ���������������.

���������: Data1.UpdateControls.

������� ������������ ������������� ������ UpdateControls �������� �������������� ������������ ����������� ����������� ��������� ��������� ����������� ������� ������. ��� ����� ���������� ��������� � ��������� ��������� ������� Validate ������� Data.

1.��������� ������, ������� ������������� ��� ������������ �������� ������ � �������� ��������� �������� ���� � ��������� ��������� ������� Validate:

Private Sub Data1_Validate(Action As Integer, Save As Integer)

If Save = False Then Exit Sub

End If

If MsgBox("Coxpa���� ��������� ���������",vbYesNo,"","",0)=vbNo Then

Data1.UpdateControls

Exit Sub

End If

End Sub

2.���������� ����������.

3.��������� ���������� ������-������ ���������� ���������� ����, ��������, ���� �������, �, ��������� ������ ����������� �� ������ �������, �������� ��������� ������� ������. � ����������, �� ����� ����� ������ ���������� ����, � ������� ����� ����������� ��� �������� ��������� ���������.

4.��������� ����������.

� UpdateRecord

����� UpdateRecord ��������� � ���� ������ ���������� ������� ������, ������������ � ��������� ��������� ����������.

���������: Data1.UpdateRecord.

������������� ����� ������ ��������� ��������� ���������� ��������� ��������� ���������� � ���� ������ ��� ����������� ��������� ������� ������. ��� ���� �� ������������ ������� Validate. ������� ��������, ��� ����� �������������� ����� ������ ���������� ���������, ��� ��������� ������� ����������� ���� ������.

��������� ������ ����������, ��� ������������ � ����������� ����� UpdateRecord:

1.��������� ������, �������������� ��� ������������ ������ UpdateControls.

2.����������� �� ����� ��������� ������, �������� �� �������� Caption �� ��������� ������ � �������� ��������� ��� � ��������� ��������� ������� Click:

Private Sub Command2_Click()

Data1.UpdateRecord End Sub

3.���������� ������. �������������� ���������� ��������� ��������� ���������� � ������� ������ ��������� ������. ������, ��������� ���� ��������� ��������� � ���� ������.

� Error

������� Error ����������, ����� ��� ������������� ������� Data ��������� �����-���� ������ ������� � ������, ������ � ��� ����� �����������