|
|
От: | Alexander_fx | |
| Дата: | 10.05.04 20:51 | ||
| Оценка: | |||
Dim rs As System.Data.SqlClient.SqlDataReader
Con.Open()
sql_cmd.CommandText = "select * from account_value order by id"
rs = sql_cmd.ExecuteReader
Dim x1(100000) As Double ' а хочется создать массив под точное кол-во данных в рекордсете
While rs.Read
x1(aa) = CDbl(rs(0))
End While