VPF::Как создать файл БД (*.mdb) - Форум программистов

Тутанхамец

Дата 10.5.2006, 17:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6

Раньше работал с DAO. Там был метод CreateDatabase, создававший файл БД.
В ADO есть что-то аналогичное? Инструкция CREATE DATABASE вроде работает только с SQLserver, а мне нужно с Jet. Буду признателен.

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

boevik

Дата 10.5.2006, 17:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35

Можно создать. Ищи инфу про ADOX

--------------------

Никогда не говори никогда

Akina

Дата 10.5.2006, 17:55 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(http://www.vb-helper.com/howto_adox_create_database.html)

In the project, add references to:

Microsoft ActiveX Data Objects 2.5 Library
Microsoft ADO Ext. for DDL and Security

To create the database, use an ADOX.Catalog object.

To make a table, make a new ADOX.Table object. Use its Columns collection's Append method to define fields. When you are finished, use the Catalog's Tables collection's Append method to add the Table.

Use ADO to manipulate the tables.

Код


Private Sub cmdCreate_Click()
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim con As ADODB.Connection

    ' Delete the database if it already exists.
    On Error Resume Next
    Kill txtDatabaseName.Text
    On Error GoTo 0

    ' Create the new database.
    Set cat = New ADOX.Catalog
    cat.Create _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & txtDatabaseName.Text & ";"

    ' Create a new table.
    Set tbl = New ADOX.Table
    tbl.Name = "TestTable"
    tbl.Columns.Append "FirstName", adVarWChar, 40
    tbl.Columns.Append "LastName", adVarWChar, 40
    cat.Tables.Append tbl

    ' Connect to the database.
    Set con = cat.ActiveConnection

    ' Insert a record.
    con.Execute "INSERT INTO TestTable VALUES ('Rod', " & _
        "'Stephens')"

    Set con = Nothing
    Set tbl = Nothing
    Set cat = Nothing

    MsgBox "Done"
End Sub

Note that my version of the Visual Data Manager (in the Add-Ins menu) cannot read the database created although my ADO programs can.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Тутанхамец

Дата 10.5.2006, 18:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6

Ага! Спасип smile

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »