Не могу подключить базу Access2000

19.06.2008, 20:06. **Показов** 2860. **Ответов** 23

Студворк — интернет-сервис помощи студентам

Устанавливаю элемент Data (такой - две стрелочки с права и две с лева), иду в его свойства и показываю на базу Access2000. Проходит сообщение типа'... не верный формат даты'. Конвертирую в Access97 и он 'подлюга' подключается к базе без проблем. В чем дело? Подскажите пожалуйста чего я не так делаю?

Искренне ваш,

24.08.2008, 19:55

Да, я к этому же выводу и пришел и все советы по поводу сервайс паков, я бы сказал просто разговоры. DAO не работает применительно к Access2000 даже под Джет4. Можно воплотить на АДО, но у меня была база на А97 и начало на ДАО, по этому я решил доделать на ДАО, а базу пришлось каждый раз конвертировать в AccessXP и обратно. На самом деле это дольше чем просто сохранить всего на пару кнопок.

С уважением,

@palva · 25.08.2008, 10:50

Может я не о том, но у меня следующий скрипт (VBScript)

Code
1
2
3
Set DBE = CreateObject('DAO.DBEngine.36')
Set NewDB = DBE.WorkSpaces(0).CreateDatabase('MyDB', _
    ';LANGID=0x0419;CP=1251;COUNTRY=0;CollatingOrder=1049')

создает базу в формате Access 2000. По крайне мере, при открытии этой базы в Access 2000 не появляется никаких предложений конвертировать. А вот если я применяю DBEngine.35, то такое дурацкое предложение появляется. Я привел всего лишь две строчки скрипта. А вообще-то, скрипт создаёт кучу таблиц, назначает ключи, устанавливает связи - и всё на DAO.

25.08.2008, 20:04

Очень интересно!
Тема была про то, что в Бэйсике открыть в ДАО базу А2000 не получается и приходится ее в А2000 конвертировать в базу А97.

А можно где-нибудь посмотреть подробнее этот скрипт и с чем его едят?

С уважением,

@palva · 25.08.2008, 21:42

Да ведь самые важные строки я уже привел. А весь скрипт делает совершенно стандартные действия с объектом DA0. Следующий текст нужно положить в файл с расширением .vbs и сделать по нему двойной щелчок мышкой.
[code]
Const dbBoolean = 1
Const dbByte = 2
Const dbInteger = 3
Const dbLong = 4
Const dbCurrency = 5
Const dbSingle = 6
Const dbDouble = 7
Const dbDate = 8
Const dbBinary = 9
Const dbText = 10
Const dbLongBinary = 11
Const dbMemo = 12
Const dbGUID = 15
Const dbBigInt = 16
Const dbVarBinary = 17
Const dbChar = 18
Const dbNumeric = 19
Const dbDecimal = 20
Const dbFloat = 21
Const dbTime = 22
Const dbTimeStamp = 23

Const dbAutoIncrField = 16

Const dbRelationUpdateCascade = 256
Const dbRelationDeleteCascade = 4096

' Создание базы данных Access средствами VBScript
Set DBE = CreateObject('DAO.DBEngine.36')
Set NewDB = DBE.WorkSpaces(0).CreateDatabase('DB2000 ', _
';LANGID=0x0419;CP=1251;COUNTRY=0;Collat ingOrder=1049')

Set NewTbl = NewDB.CreateTableDef('Sellers')
Set NewFld = NewTbl.CreateField('SNum', dbLong)
NewFld.Attributes = dbAutoIncrField
NewTbl.Fields.Append NewFld
NewTbl.Fields.Append NewTbl.CreateField('SName', dbText, 20)
NewTbl.Fields.Append NewTbl.CreateField('City', dbText, 20)
NewTbl.Fields.Append NewTbl.CreateField('Comm', dbSingle)
NewTbl.Fields.Append NewTbl.CreateField('Other', dbMemo)
Set NewIdx = NewTbl.CreateIndex('SellersP')
NewIdx.Primary = True
NewIdx.Fields.Append NewIdx.CreateField('SNum')
'NewIdx.Fields.Append NewIdx.CreateField('City')
NewTbl.Indexes.Append NewIdx
Set NewIdx = NewTbl.CreateIndex('SellersN')
NewIdx.Fields = 'SName'
NewIdx.Unique = False
NewTbl.Indexes.Append NewIdx
NewDB.TableDefs.Append NewTbl

Set NewTbl = NewDB.CreateTableDef('Customers')
Set NewFld = NewTbl.CreateField('CNum', dbLong)
NewFld.Attributes = dbAutoIncrField
NewTbl.Fields.Append NewFld
NewTbl.Fields.Append NewTbl.CreateField('CName', dbText, 20)
NewTbl.Fields.Append NewTbl.CreateField('City', dbText, 20)
NewTbl.Fields.Append NewTbl.CreateField('Rating', dbInteger)
NewTbl.Fields.Append NewTbl.CreateField('SNum', dbLong)
Set NewIdx = NewTbl.CreateIndex('CustomerSP')
NewIdx.Primary = True
NewIdx.Fields = 'CNUM'
NewTbl.Indexes.Append NewIdx
Set NewIdx = NewTbl.CreateIndex('CustomerSS')
NewIdx.Fields = 'CNAME'
NewIdx.Unique = False
NewTbl.Indexes.Append NewIdx
NewDB.TableDefs.Append NewTbl

Set NewTbl = NewDB.CreateTableDef('Orders')
Set NewFld = NewTbl.CreateField('ONum', dbLong)
NewFld.Attributes = dbAutoIncrField
NewTbl.Fields.Append NewFld
NewTbl.Fields.Append NewTbl.CreateField('Amt', dbDouble)
NewTbl.Fields.Append NewTbl.CreateField('ODate', dbDate)
NewTbl.Fields.Append NewTbl.CreateField('CNum', dbLong)
NewTbl.Fields.Append NewTbl.CreateField('SNum', dbLong)
Set NewIdx = NewTbl.CreateIndex('ORDERSP')
NewIdx.Primary = True
NewIdx.Fields = 'ONUM'
NewTbl.Indexes.Append NewIdx
Set NewIdx = NewTbl.CreateIndex('OrderSD')
NewIdx.Fields = 'Odate'
NewIdx.Unique = False
NewTbl.Indexes.Append NewIdx
Set NewIdx = NewTbl.CreateIndex('OrderSC')
NewIdx.Fields = 'Cnum'
NewIdx.Unique = False
NewTbl.Indexes.Append NewIdx
Set NewIdx = NewTbl.CreateIndex('OrderSS')
NewIdx.Fields = 'Snum'
NewIdx.Un

Новые блоги и статьи Все статьи Все блоги /
Сукцессия 20. Война автоботов. Делаем ставки. Лёд против "пш-пш!". anaschu 11.07.2026 Битва ИИ в ризосфере: Как мы скрестили жесткие ОДУ, закон Фика и «подземный шантаж» Уважаемые коллеги! Хочу поделиться уникальным опытом ведения междисциплинарной компьютерной разработки. Прямо. . .	Сукцессия 19. Какие выводы я сделал из модели? Часть 2.Внутримикоризный стехиометрический буфер и хроно-дискретные зоны экспансии anaschu 11.07.2026 Био-Инженерный Ликбез: Архитектура Модели Ризосферы Математический аппарат моделирования	Сукцессия 18. Какие выводы я сделал из войны грибов с деревьями? Часть 1- рассказ и немного про термины anaschu 11.07.2026 Био-Инженерный Ликбез: Архитектура Модели Ризосферы Математический аппарат моделирования Система ОДУ описывает динамику изменения массы различных компонентов системы во времени. Ключевой. . .	Просветление в 5 секунд kumehtar 10.07.2026 Андрей Веретенников выдал фразу недавно: "Вам не обязательно кем-то себя считать"
Эксперимент с картинкой-обложкой на CodinGame Adler 10.07.2026 Решил на днях провести эксперимент. У меня есть аккаунт на CodinGame, ТОП-3 по РФ среди 2200 участников (в разделе соревнования по программированию ИИ-ботов). Там есть обложка, куда можно влепить. . .	GitDOS: Когда я решил скрестить MS-DOS, GitHub и Claude MaGz GoLd 08.07.2026 Привет, Киберфорум! Хочу поделиться своим проектом, который, надеюсь, вас заинтересует. GitDOS — это веб-приложение, которое позволяет запускать DOS в браузере с тремя крутыми фичами: диски живут в. . .	Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker) anaschu 07.07.2026 Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .	Море в объективе kumehtar 06.07.2026 Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.

bles

	Не могу подключить базу Access2000 19.06.2008, 20:06. Показов 2860. Ответов 23 Метки нет (Все метки) Устанавливаю элемент Data (такой - две стрелочки с права и две с лева), иду в его свойства и показываю на базу Access2000. Проходит сообщение типа'... не верный формат даты'. Конвертирую в Access97 и он 'подлюга' подключается к базе без проблем. В чем дело? Подскажите пожалуйста чего я не так делаю? Искренне ваш,

bles
	24.08.2008, 19:55
	Да, я к этому же выводу и пришел и все советы по поводу сервайс паков, я бы сказал просто разговоры. DAO не работает применительно к Access2000 даже под Джет4. Можно воплотить на АДО, но у меня была база на А97 и начало на ДАО, по этому я решил доделать на ДАО, а базу пришлось каждый раз конвертировать в AccessXP и обратно. На самом деле это дольше чем просто сохранить всего на пару кнопок. С уважением,

bles
	25.08.2008, 20:04
	Очень интересно! Тема была про то, что в Бэйсике открыть в ДАО базу А2000 не получается и приходится ее в А2000 конвертировать в базу А97. А можно где-нибудь посмотреть подробнее этот скрипт и с чем его едят? С уважением,

@palva 4278 / 2970 / 693 Регистрация: 08.06.2007 Сообщений: 9,931 Записей в блоге: 5
	25.08.2008, 21:42
	Да ведь самые важные строки я уже привел. А весь скрипт делает совершенно стандартные действия с объектом DA0. Следующий текст нужно положить в файл с расширением .vbs и сделать по нему двойной щелчок мышкой. [code] Const dbBoolean = 1 Const dbByte = 2 Const dbInteger = 3 Const dbLong = 4 Const dbCurrency = 5 Const dbSingle = 6 Const dbDouble = 7 Const dbDate = 8 Const dbBinary = 9 Const dbText = 10 Const dbLongBinary = 11 Const dbMemo = 12 Const dbGUID = 15 Const dbBigInt = 16 Const dbVarBinary = 17 Const dbChar = 18 Const dbNumeric = 19 Const dbDecimal = 20 Const dbFloat = 21 Const dbTime = 22 Const dbTimeStamp = 23 Const dbAutoIncrField = 16 Const dbRelationUpdateCascade = 256 Const dbRelationDeleteCascade = 4096 ' Создание базы данных Access средствами VBScript Set DBE = CreateObject('DAO.DBEngine.36') Set NewDB = DBE.WorkSpaces(0).CreateDatabase('DB2000 ', _ ';LANGID=0x0419;CP=1251;COUNTRY=0;Collat ingOrder=1049') Set NewTbl = NewDB.CreateTableDef('Sellers') Set NewFld = NewTbl.CreateField('SNum', dbLong) NewFld.Attributes = dbAutoIncrField NewTbl.Fields.Append NewFld NewTbl.Fields.Append NewTbl.CreateField('SName', dbText, 20) NewTbl.Fields.Append NewTbl.CreateField('City', dbText, 20) NewTbl.Fields.Append NewTbl.CreateField('Comm', dbSingle) NewTbl.Fields.Append NewTbl.CreateField('Other', dbMemo) Set NewIdx = NewTbl.CreateIndex('SellersP') NewIdx.Primary = True NewIdx.Fields.Append NewIdx.CreateField('SNum') 'NewIdx.Fields.Append NewIdx.CreateField('City') NewTbl.Indexes.Append NewIdx Set NewIdx = NewTbl.CreateIndex('SellersN') NewIdx.Fields = 'SName' NewIdx.Unique = False NewTbl.Indexes.Append NewIdx NewDB.TableDefs.Append NewTbl Set NewTbl = NewDB.CreateTableDef('Customers') Set NewFld = NewTbl.CreateField('CNum', dbLong) NewFld.Attributes = dbAutoIncrField NewTbl.Fields.Append NewFld NewTbl.Fields.Append NewTbl.CreateField('CName', dbText, 20) NewTbl.Fields.Append NewTbl.CreateField('City', dbText, 20) NewTbl.Fields.Append NewTbl.CreateField('Rating', dbInteger) NewTbl.Fields.Append NewTbl.CreateField('SNum', dbLong) Set NewIdx = NewTbl.CreateIndex('CustomerSP') NewIdx.Primary = True NewIdx.Fields = 'CNUM' NewTbl.Indexes.Append NewIdx Set NewIdx = NewTbl.CreateIndex('CustomerSS') NewIdx.Fields = 'CNAME' NewIdx.Unique = False NewTbl.Indexes.Append NewIdx NewDB.TableDefs.Append NewTbl Set NewTbl = NewDB.CreateTableDef('Orders') Set NewFld = NewTbl.CreateField('ONum', dbLong) NewFld.Attributes = dbAutoIncrField NewTbl.Fields.Append NewFld NewTbl.Fields.Append NewTbl.CreateField('Amt', dbDouble) NewTbl.Fields.Append NewTbl.CreateField('ODate', dbDate) NewTbl.Fields.Append NewTbl.CreateField('CNum', dbLong) NewTbl.Fields.Append NewTbl.CreateField('SNum', dbLong) Set NewIdx = NewTbl.CreateIndex('ORDERSP') NewIdx.Primary = True NewIdx.Fields = 'ONUM' NewTbl.Indexes.Append NewIdx Set NewIdx = NewTbl.CreateIndex('OrderSD') NewIdx.Fields = 'Odate' NewIdx.Unique = False NewTbl.Indexes.Append NewIdx Set NewIdx = NewTbl.CreateIndex('OrderSC') NewIdx.Fields = 'Cnum' NewIdx.Unique = False NewTbl.Indexes.Append NewIdx Set NewIdx = NewTbl.CreateIndex('OrderSS') NewIdx.Fields = 'Snum' NewIdx.Un 0