Access2K (ADO) & SQL2K - удалить/создать таблицу - VB
Формулировка задачи:
Hi, all!
Есть вопрос: как через ADO(ADOX) создать и удалить таблицу на SQL Server2k (клиент - на абсцессе 2000)?
Если использовать cnn.Execute ('ла-ла-ла') - то оно работает на ура, а вот как сделать это через коллекции? (Dim cnn as new ADODB.Connection)
В ответ на попытки работать через коллекции выдается сообщение :
'Object or provider is not capable of performing requested operation.', Error Code : 3251
Решение задачи: «Access2K (ADO) & SQL2K - удалить/создать таблицу»
textual
Листинг программы
- Sub CreateTable()
- Dim tbl As New Table
- Dim cat As New ADOX.Catalog
- 'Open the catalog.
- ' Open the Catalog.
- cat.ActiveConnection = _
- 'Provider = SQLOLEDB;......'
- tbl.Name = 'MyTable'
- tbl.Columns.Append 'Column1', adInteger
- tbl.Columns.Append 'Column2', adInteger
- tbl.Columns.Append 'Column3', adVarWChar, 50
- cat.Tables.Append tbl
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
