Страница: 1 |
создаю RecordSet в макросе, добавляю поля Set fs = rs.Fields For nc = 1 To ncolumns FieldName = Trim(Selection.Cells(1, nc).Value) fs.Append FieldName, adVarChar, 255 FieldsStr = FieldsStr & "," & FieldName Next fs.Refresh MsgBox FieldsStr For nr = 2 To nrows rs.AddNew For nc = 1 To ncolumns rs.Fields.Item(nc - 1).Value = Selection.Cells(nr, nc).Value Next Next на смроку rs.AddNew ругается, типа закрытый объект как бороться
Кода, где создается RecordSet, не видно, поэтому наугад: получается, что у тебя rs закрыт, попробуй перед .AddNew вставить rs.Open или set rs = " чего -нибудь-там" Страница: 1 |
Вопрос: Плиз !!! Heeeeelp ADO и RecordSet
Добавлено: 02.12.03 15:16
Автор вопроса: Karaulov Dmitry | ICQ: 147428034
Ответы
Всего ответов: 1
Номер ответа: 1
Автор ответа:
cresta
Вопросов: 117
Ответов: 1538
Профиль | | #1
Добавлено: 02.12.03 20:09