powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ADO
7 сообщений из 7, страница 1 из 1
ADO
    #32368091
nhk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nhk
Гость
I'm novice in ADO.
How can I create new DB in my code (VB 6.0). Does ADO have something like CreateDatabase() in DAO?
...
Рейтинг: 0 / 0
ADO
    #32368095
boevik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
О каком ДБ мы говорим?
Если об Access, то чисто средствами ADO не создать.
Надо воспользоваться ADOX - Microsoft ADO Extensions 2.1 for DDL and Security object library
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
   Dim catNewDB As ADOX.Catalog
   Set catNewDB = New ADOX.Catalog

    strDBPath =  "c:\test.mdb" 
   catNewDB.Create  "Provider=Microsoft.Jet.OLEDB.4 . 0 ;" & _
          "Data Source="  & strDBPath

   Set catNewDB = Nothing
...
Рейтинг: 0 / 0
ADO
    #32368116
nhk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nhk
Гость
Thank You!
Were can I get ADOX?
...
Рейтинг: 0 / 0
ADO
    #32368119
nhk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nhk
Гость
Boevik, Thank You once more!
And I'm sorry for the stupid question!
...
Рейтинг: 0 / 0
ADO
    #32368162
Фотография ulis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
nhk - а что, с русским проблемы? Одни по-грузински начинают говорить, другие на ломаном английском ...
ADOX - да там же где и ADO? Установи ссылку на библиотеку, в общем rtfm
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
ADO
    #33847098
ba4inskii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
boevik
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
   Dim catNewDB As ADOX.Catalog
   Set catNewDB = New ADOX.Catalog

    strDBPath = "c:\test.mdb"
   catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Data Source=" & strDBPath

   Set catNewDB = Nothing


Ребят подскажите пожалуста, как создать базу Аксеса 97. Просто у меня установлено и 97 и 2003. Он создает 2003, а нужно 97.???
Спасибо
...
Рейтинг: 0 / 0
ADO
    #33847974
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
По-умолчанию, используется Jet 4.0, и по этому база создается в 2003 версии. Но ты можешь указать формат в котором ты хочешь создать базу. Для этого в строке подключения нужно указать свойство "Jet OLEDB:Engine Type", например:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
   Dim catNewDB As ADOX.Catalog
   Dim strDBPath As String
   
   Set catNewDB = New ADOX.Catalog

   strDBPath = "C:\Test.mdb"
   
   catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=4;" & _
     "Data Source=" & strDBPath

   Set catNewDB = Nothing

Jet OLEDB:Engine Type

4 - Access 97.
5 - Access 2000.
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ADO
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]