LEADERSOFT.ru
Разработка на заказ программ и сайтов
Разработка
Заказ программы
Прайс-лист
Техническое задание
Проектная документация
Наши клиенты
Реклама и продвижение
Магазин
Перейти в магазин
Новинки магазина
Бизнес программы
Финансовый учет
Документооборот
Исходные коды
Интернет решения
Обучение
Перейти в раздел
Форумы по разработке
Примеры на Access
Рассылка статей
Магазин IT литературы
Блог
Все статьи
Microsoft Access (VBA)
Microsoft Access (Проекты)
Microsoft ASP.NET
Сервисы Google
Технические задания
Новости IT технологий
Сервисы
Форумы разработчика
Контакты
О компании
Регистрация на сайте
Подписка на новости по Email
Сообщество Google+
Подписка subscribe.ru
Новости в формате Атом
Загрузить
Загрузить каталог программ
Форумы по информационным технологиям
Начало
Forums
Регистрация
|
Вход
Forums
Обновлено ::
17 мая 2024
Форумы
Поиск
Список форумов
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Pamogite ...
Тема: Pamogite pogalysta
15.06.2007 19:58:22
All
4316 сообщения
Тема: Pamogite pogalysta
Ranshe etot kod rabotal v Access 97 teper ia convertiroval v Access 2000 i y mena poiavilas problemma v otchotax , podskagite v chom tyt delo ,pishit shto ne yznaiot type (MyTable As Table
Dim MyDyna As Dynaset, MyQueryDef As QueryDef
Dim MySnap As Snapshot)
eto kod programki.
Dim MyDB As Database, MyTable As Table
Dim MyDyna As Dynaset, MyQueryDef As QueryDef
Dim MySnap As Snapshot, i As Integer
'Create a dynaset from the query.
Set MyDB = CurrentDb()
Set MyQueryDef = MyDB.OpenQueryDef(Query$)
MyQueryDef![Facility] = Forms![Reports Menu]![cmbFacilityID]
MyQueryDef![sample] = Forms![Reports Menu]![cmbSampleID]
Set MyDyna = MyQueryDef.CreateDynaset()
MyQueryDef.Close
'Get field information and store the field names.
Set MySnap = MyDyna.ListFields()
MySnap.MoveLast
MySnap.MoveFirst
nColumns = MySnap.RecordCount
ReDim MyFields(nColumns)
i = 0
While Not MySnap.EOF
MyFields(i) = MySnap!Name
i = i + 1
MySnap.MoveNext
Wend
MySnap.Close
'Delete the contents of the XTabResult table.
Set MyTable = MyDB.OpenTable("XTabResult")
While Not MyTable.EOF
MyTable.Delete
MyTable.MoveNext
Wend
'Dump the dynaset into the XTabResult table.
'Table should have a column called COLUMN# for each column in
'the crosstab dynaset.
While Not MyDyna.EOF
MyTable.AddNew
For i = 0 To nColumns - 1
MyTable("Column" & i) = MyDyna(MyFields(i))
Next
MyTable.Update
MyDyna.MoveNext
Wend
MyTable.Close
MyDyna.Close
End Sub
Balshoe spasibo
P.S. Общий раздел по отчетам
Автор:
Vadim
от 0:00:00
Источник ...
15.06.2007 19:58:22
All
4316 сообщения
RE: Pamogite pogalysta
Первым делом, когда вылезают такие ошибки (система не узнает типы (и даже иногда "родные" функции))- это лезть в ссылки и править их.
Тем более, что в Ac97 по умолчанию используется доступ к данным через DAO, а в Ac2000 - через ADODB.
Конвертирование не изменяет ссылок.
Даже порядок расположения (в окне ссылок) влияет на работу.
P.S. Общий раздел по отчетам
Автор:
Николай
от 0:00:00
Источник ...
15.06.2007 19:58:22
All
4316 сообщения
RE: Pamogite pogalysta
При конвертации базы данных от Access 97 к 2000 сразу можно сделать изменения, т.е. 'As Database' заменить 'As DAO.Database' через меню "Поиск-Замена" сразу для всех модулей.
P.S. Изменения необходимо провести и для других объектов DAO. Типы объектов посмотрите через F2.
P.S. Общий раздел по отчетам
Автор:
Виктор Конюков
от 0:00:00
Источник ...
Страница 1 из 1
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Pamogite ...
Одноуровневый вид
Древовидная структура
Самый старый из новых
Новейший из старых
Поиск
Список форумов
Начало
|
Forums
Copyright 2002-2016 Leadersoft.ru
::
Leadersoft
::
Соглашение о безопасности
::
Условия использования