Помогите с циклом и recordset

[dimalib]

Привет. Общем надеюсь что все понятно без слов.

Код: Выделить всё

Dim j(0 To 12) As String
Dim jDa(0 To 12) As Integer
Dim i As Integer
j(0) = "chb1"
………………..
j(12) = "01-38"
Set w1 = DBEngine.Workspaces(0)
Set d1 = w1.OpenDatabase("c:\cbsProject\cbs2004.mdb")
sql1 = "select * from forma6nk"
Set r1 = d1.OpenRecordset(sql1)
For i = 0 To 12
Do Until r1.EOF
If IsNull(r1.Fields(j(i))) Then
jDa(i) = jDai(i)
Else
jDa(i) = jDa(i) + r1![j(i)]
    End If
   r1.MoveNext
Loop
Next i
Text1.Text = jDa(i) 


Ломается вот здесь

Код: Выделить всё

jDai(i) = jDai(i) + r1![j(i)]


Просто не знаю как по другому тут задать. Подскажите чайнику Please.

[alibek]

А что говорит? Скорее всего ругается, что нет такого поля в коллекции. Пиши так: + r1.Fields(j(i)).

[codemaster]

Нверное всетаки так


=IIf(IsNull(r1.Fields(...)) , ....TruePart , FalsePart)

[dimalib]

Скажите пожалуйста, почему когда доходит I=4 говорить что "Текущая запись отсутствует" хотя на его место пробовал поставит первую

Код: Выделить всё


Do Until r1.EOF
For i = 0 To 12
' For jDai = 0 To r1.RecordCount
If IsNull(r1.Fields(j(i))) Then
jDai(i) = jDai(i) + 0
Else
jDai(i) = jDai(i) + r1.Fields(j(i))
    End If
   r1.MoveNext
Next i
Loop     


[codemaster]

Скажите пожалуйста, почему когда доходит I=4 говорить что "Текущая запись отсутствует" хотя на его место пробовал поставит первую

Код: Выделить всё


Do Until r1.EOF
For i = 0 To 12
' For jDai = 0 To r1.RecordCount < -----А это как ????
If IsNull(r1.Fields(j(i))) Then
jDai(i) = jDai(i) + 0 < ------------Это к чему????
Else
jDai(i) = jDai(i) + r1.Fields(j(i))
    End If
   r1.MoveNext
Next i
Loop     


Давай поступим так
Напиши словами без кода что ты хочешь получить на выходе

[dimalib]

Код: Выделить всё

' For jDai = 0 To r1.RecordCount < -----А это как ????

это не нужное строка

Код: Выделить всё

jDai(i) = jDai(i) + 0 < ------------Это к чему????

Это ну так себе

j(1)=""
….
J(12)=""
J =массив в которым содержится имена полей
JDai= Массив в которым должен содержатся суммарный вес полей

[skiperski]

Ты посты вообще читаешь? Тебе alibek уже всё объяснил. Чего же боле? То что в квадратных скобках (в твоём коде) воспринимается не как выражение, а как имя поля. alibek показал как к нему обратиться правильно

[dimalib]

А вы сами прочли там все сообщение мр. Skiperski ?
Блин перепугался раз 10 прочел

[codemaster]

[code]
J =массив в которым содержится имена полей
JDai= Массив в которым должен содержатся суммарный вес полей

Все можно вычислить (итог по полю ) посредством SQL запроса

[skiperski]

Тщательнее надо быть, товаристч, тщательнее. Цикл который должен мотать поля, мотает записи, и если их меньше 12, то вызывается ошибка.

Вот так будет работать

Код: Выделить всё

Do Until (r1.EOF)
    For i = 0 To 12
        If (Not IsNull(r1(j(i)))) Then
            jDa(i) = jDa(i) + r1(j(i))
        End If
    Next
    r1.MoveNext
Loop

[dimalib]

Привет всем. Я пробовал так писать но он ругается что "Subscript out of range" ??? и указывает на list1. additem jda(i) самом конце кода когда я пытаюсь его вывести.
вроде бы все нормально

Код: Выделить всё

Dim j(0 To 12) As String
Dim jDa(0 To 12) As Long   
For i = 0 To 12

Пробовал увеличить jDa до (0 To 13) цикл проходит но не показывает желаемого результата. Может я не совсем правильно понял и не там копаю?

[dimalib]

Правильно оказывается так:

Код: Выделить всё

For fr = 0 To 12
Set r1 = d1.OpenRecordset(sql1)
Do Until (r1.EOF)
            If (Not IsNull(r1(j(fr)))) Then jDa(fr) = jDa(fr) + r1(j(fr))
        r1.MoveNext
    Loop
        Next fr
        For i = 0 To 12
        List1.AddItem jDa(i)
        Next i

Спасибо за помощь.

[alibek]

Все видел, но такое... 12 раз открывать рекордсет только для того, чтобы считать 12 полей... Мать моя женщина...

[dimalib]

А что можно по другому? Если

Код: Выделить всё

"Set r1 = d1.OpenRecordset(sql1)"

оставить вне цикла не работает блин почему та.

[dimalib]

Эх вы злые вы ребята. Любите мучит животных (ослов).

[alibek]

Честно говоря, так и не понял, что надо сделать. Если нужно заполнить список содержимым рекордсета (при условии, что все поля текстовые или числовые), то так.

Код: Выделить всё

Set r1 = d1.OpenRecordset(sql1)
Do Until (r1.EOF)
  res = vbNullString
  For I = LBound(j) To UBound(j)
    If Len(j(I)) > 0 Then
      If Not IsNull(r1.Fields(j(I))) Then
        res = res & r1.Fields(j(I))
      End If
    End If
  Next I
  rs.MoveNext
  List1.AddItem res
Loop

[dimalib]

Наверно уже всех задалбал своим ламерскими проблемами. Мне надо сложить содержимое рекордсета в одном поле. Ну примерно алгоритм таков if r1.EOF then I=I+1 и опять запускался цикл

Код: Выделить всё

Do Until r1.EOF
If Not IsNull(r1.Fields(j(i))) Then
jDai(i) = jDai(i) + r1.Fields(j(i))
Else
    End If
r1.MoveNext
Loop       


с новым J
Не могу ни как организовать. Может мозги на прокат дадите?

[alibek]

Тебе надо получить сумму всех полей (получить итоги)?

Код: Выделить всё

Dim vFields() As String, vTotals() As Long, I As Long
ReDim vFields(1 To 12), vTotals(1 To 12)
For I = 1 To 12
  vFields(I) = Choose(I, "chb1", ...)
  vTotals(I) = 0
Next I
...
sql = "..."
With db.OpenRecordset(sql)
  Do Until .EOF
    For I = LBound(vFields) To UBound(vFields)
      If Not IsNull(.Fields(vFields(I))) Then
        vTotals(I) = vTotals(I) + .Fields(vFields(I))
      End If
    Next I
    .MoveNext
  Loop
  .Close
End With
For I = LBound(vFields) To UBound(vFields)
  List1.AddItem vFields(I) & " = " & vTotals(I)
Next I


[dimalib]

Большому человеку огромное спасибо.
А жизнь та налаживается…

[alibek]

Впрочем можно поменять сам запрос, не SELECT * FROM ..., а SELECT sum(cbn1), ... FROM ...
Тогда полученный рекордсет перебирать не нужно, просто копируешь значение полей в переменную.