aduka05admbosscs,
bosscs
Recordset("Выражение1").Value - я вписал название второго столбца, правильно?
вам только с одного поля данные нужны или с двух?
Да блин мне хотя бы с одного считать, и то чудесно будет.
----
1.
2.
3.
4.
5.
For i = 0 To rs
If NOT Data1.Recordset.EOF Then
mas(i) = Data1.Recordset("Выражение1").Value
Data1.Recordset.MoveNext
End If
Next i
Subscript out of range
И вообще вы что то не то написали.
Я уже ввел сам 11 значений
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim mas() As Double
Dim db As Database
Dim rs As Integer
Private Sub Command1_Click()
'rc = Data1.Recordset.RecordCount
For i = 0 To 11
mas(i) = Data1.Recordset("Âûðàæåíèå1").Value
Data1.Recordset.MoveNext
Next i
End Sub
Private Sub Form_Load()
Set db = OpenDatabase(Form1.CommonDialog1.FileName)
Set Data1.Recordset = db.OpenRecordset("Grafik")
End Sub
Становится на
mas(i) = Data1.Recordset("Выражение1").Value
ошибка:
Subscript out of range.
Я уже не знаю что это мб.
