25.10.2006, 14:16
общий
это ответ
Здравствуйте, DragonTusk!
Различных вариантов достаточно много, конкретно ответить сложно, не зная КАКОЙ Recordset Вы хотите создать, посмотрите в справке VBA для Access метод OpenRecordset
там слишком много всего написано, чтобы пересказывать, также есть обширные примеры.
Для примера нашел у себя маленькую функцию, которая работает с DAO.Recordset.
Будут вопросы пишите в почту.
Успехов.
Приложение:
Function GroupConcat(sql As String, Optional ws As String = "; ") As String‘в References нужно добавить Microsoft DAO 3.6 Object Library‘функция открывает Recordset для sql(SQL SELECT запрос), проходит по всем записям‘и объединяет значения 0-го поля каждой записи результата запроса в одну строку, разделяя их ws‘пример: user_companies=GroupConcat("SELECT company FROM user_company WHERE userid=1") Dim s As String Dim r As DAO.Recordset On Error GoTo GroupConcat_Error‘открываем рекордсет Set r = CurrentDb.OpenRecordset(sql, dbOpenForwardOnly) s = ""‘проходим по всем записям While Not r.EOF s = s & CStr(r(0)) & ws r.MoveNext Wend‘закрываем рекордсет r.Close GroupConcat = sGroupConcat_Exit:Exit FunctionGroupConcat_Error: GroupConcat = "#Ошибка!"Resume GroupConcat_Exit End Function