VB 6.0


Data


Data (, , ) .

Name Data (Data1) . :

Data1.RecordSet.AddNew ;

*Data1.RecordSet.MoveLast ;

*Data1.RecordSet.MoveFirst ;

*Data1.RecordSet.MoveNext ;

*Data1.RecordSet.MovePrevious ;

Data1.RecordSet.Delete ;

Data1.RecordSet.Edit ;

Data1.RecordSet.Update

;

; Data1.RecordSet.RecordCount ;

Data1.RecordSet.Fields (K).Value K- ;

Data1.RecordSet.Fields (K).Name K- ;

Data1.RecordSet.Fields.Count ;

Data1.RecordSet.Refresh ,

, ;

Data1.RecordSet.Eof .

, *, Data.

1. : . . .

S=0

Data1.RecordSet.MoveFirst

For I=1 To Data1.RecordSet.RecordCount

S=S + Data1.RecordSet.Fields(3).Value

Data1.RecordSet.MoveNext

Next I

S=S/ Data1.RecordSet.RecordCount

. . .