VBNet - Форум - 2е открытых таблицы + цикл = проблема => HELP!

Вопрос: 2е открытых таблицы + цикл = проблема => HELP! Добавлено: 21.09.02 12:54

Автор вопроса: dtit

Ситуация такая - открывается 2е таблицы созданные в Access 2000, данные из одной заносятся в другую построчно. Все просто, НО после 3й (и дальше) строки прога говорит что в строках нет данных, хотя они есть и если их достовать не циклом а по отделности то они достаются. Вот код, что я тут сделал неправильно? Просто цикл это быстро и кампактно, а тут такая беда...

Dim qq As Integer

Set db = DAO.OpenDatabase("c:\1.mdb")

sSQL = "SELECT * FROM t1;"

Set rs = db.OpenRecordset(sSQL)

Set dbq = DAO.OpenDatabase("C:\2.mdb") 'Открываем базу

qSQL = "SELECT * FROM t1;" 'Формируем запрос

Set rsq = dbq.OpenRecordset(qSQL) 'Открываем рекордсет

For qq = 0 To 3

rs.Move (qq)

rsq.Move (qq)

For I = 0 To 6

rs.Edit

rs.Fields(I + 1) = Val(rs.Fields(I + 1)) + Val(rsq.Fields(I + 1))

rs.Update

Next I

Next qq

rsq.Close

dbq.Close

Set rsq = Nothing

Set dbq = Nothing

rs.Close

db.Close

Set rs = Nothing

Set db = Nothing

Заранее все огромное спасибо за HELP! =)

Ответить