VBNet - Форум - ADO & new access data base

Вопрос: ADO & new access data base Добавлено: 21.05.04 00:14

Автор вопроса: Chill | ICQ: 554200

Как при помощи ADO создать новую БД (желательно акцесовскую) и в этой новой базе создать таблицу? Возможно ли это вообще?

Если можете, выложите код...

Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Slay Вопросов: 27 Ответов: 150	Web-сайт: www.slaysoft.stormway.ru Профиль \| \| #1	Добавлено: 21.05.04 16:41
	Конечно можно! Правда использовать нужно Microsoft ADO Ext, т.е. ADOX Ответить

Номер ответа: 2
Автор ответа:

Slay

Вопросов: 27
Ответов: 150

Web-сайт: www.slaysoft.stormway.ru
Профиль | | #2

Добавлено: 21.05.04 16:44

Dim ADOXcatalog As New ADOX.Catalog
Dim ADOXtable As New Table
Dim ADOXindex As New ADOX.Index

On Error GoTo errhandler
ADOXcatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0ata Source=" & "c:\newdata.mdb"

On Error Resume Next

ADOXcatalog.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0ata Source=" _
& "c:\newdata.mdb"

'name table, append fields to table
ADOXtable.Name = "Employees"
ADOXtable.Columns.Append "LastName", adVarWChar, 40
ADOXtable.Columns.Append "ID", adInteger
ADOXtable.Columns.Append "Department", adVarWChar, 20

'append tables to database
ADOXcatalog.Tables.Append ADOXtable

'internal index on two fields
ADOXindex.Name = "TwoColumnsIndex" 'name of index
ADOXindex.Columns.Append "LastName"
ADOXindex.Columns.Append "ID"

ADOXtable.Indexes.Append ADOXindex
errhandler:
If Err.Number = -2147217897 Then
MsgBox "Database already exists"
ElseIf Err.Number <> 0 Then
MsgBox "Err " & Err.Description & "; operation not complete"
End If
Set ADOXtable = Nothing
Set ADOXindex = Nothing
Set ADOXcatalog = Nothing

Ответить

Номер ответа: 3
Автор ответа:

Slay

Вопросов: 27
Ответов: 150

Web-сайт: www.slaysoft.stormway.ru
Профиль | | #3

Добавлено: 21.05.04 16:47

Хотя лучше почитай статью

http://vbnet.ru/article/showarticle.asp?id=60

Ответить

Страница: 1 |