Теперь не выполняется Execute пишет типа что не может выполнить. типа закрыто или не может быть выполнено в данном контексте

Dim db As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim sSQL, s As String
Dim r As New ADODB.Recordset
Dim cmd As New ADODB.Command
db.Open ("driver={SQL Server};server=SQLSRV;Database=Sale;user=sa;pwd=")
s = "select idflat from tFlat where idObg is not null"
r.Open s, db, adUseClient, adLockOptimistic, adCmdText
kol = Me.Ïîëå3
While not r.EOF
cmd.CommandText = "UPDATE dbo_tFlat SET dbo_tFlat.idObj =1 where idFlat=" & kol
cmd.Execute
kol = kol + 1
r.movenext
Wend
db.Close
Вот при этом пишет что не может выполнить

Извините вместо старого топика запостила в новый

to funddd
тоже самое

даже так попробовала
Dim con As New ADODB.Connection
Dim kol, l As Integer
Dim db As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim sSQL, s As String
Dim r As New ADODB.Recordset
Dim cmd As New ADODB.Command
db.Open ("driver={SQL Server};server=SQLSRV;Database=Sale;user=sa;pwd=")
s = "select idflat from tFlat where idObj is not null"
r.Open s, db, adOpenDynamic, , adCmdText
kol = Me.Ïîëå3
While Not r.EOF
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "UP"
cmd.CreateParameter "OBJ", adInteger, , , kol
cmd.CreateParameter "kol", adInteger, , , 198

cmd.Execute
kol = kol + 1
r.MoveNext
Wend

громное спасибо funddd
не додумалась точнее не знала фуцкции recordcount хотя могла сообразить
Всю жисть через ODBC работала
так работает а тогда вопрос почему в цикл while not r.eof не работает

Не хочу показаться ООООчень настойчивой но все равно не работае EXECUTE
вот дословно текст сообщения
Run Time errror 3709

The connection cannot be used to perform this operetion. It is either closed or invalid in this context

Да правильно нужно обновить данные в таблице определенного поля idOBJ причем idOBj должен быть равен idFlat+1 и так для каждой записи

тоже самое

HELP
тоже самое VB.Net работало а в акессе нет

справиться

Это разовая вещь поэтому никто читать ее не будет
Пытаюсь данные перенести из одной таблицы в другую
Можно как нибудь попроще подскажите алгоритм
есть таблица Квартиры в акессе с большим количеством полей
мне нужно разнести в SQL по двум разным
tOBJ (idObg,DateS)
tFlat (idFlat,idObj и т.д.)

Можно назвать топик Помогите с Запросом

один ко многим т.е. tObj Primery, tFlat Foreign
поля не по полам а номер объекта отдельно а все наполнение в другую таблицу

Есть линки через ODBC
линкил сервер не нужно делать
Просто стандартными средствами Accessa не смогла сделать

так я же писала уже структуру
Aceess table
idx ! numflat ! areal и т.д.
SQL
tObj

idObj ! dateS

причем idx<>idobj
idobj счетчик

tFlat

idFlat ! idObj ! numflat ! areal и т.д.

tGarage

idGarage ! idObj и т.д.
Объясню зачем это нужно
помимо квартир эсть еще и гаражи + строения
все данные в разных таблицах а мне в существующую структуру
нужно из 5,6 и .....
сделать типа объект, где перечислены все объекты , а дальше уже разбивка по разным объектам типа гараж, квартира и т.д
Сейчас из- за неверной структуры БД в договорах путаница приходится ставить счетчик с определенной позиции чтобы не было ошибок


БД акессовская не моя была до меня и структура абсолютно не реляционная
поэтому переделываю БД на новый язык. Так вот данные то нужно закачать

то то и оно что не знаю я idObj поэтому и хотела сделать вставляю типа определенное количество строк от1 до 5 например в tObj
потом вставляю tFlat такое же количество введены они в одинаковом порядке
т.е. idObg=1 в tObj должен равнятся idFlat=1 и записываем idObj=1 в tFlat

только 1 записи в tObj таблице соответствует 1 записи в TFlat
вот думаю может проще ручками перенести