| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание таблиц с помощью ADO [D6]

Almaz ©   (2004-06-09 00:52:00) 

Вопрос в следующем: возможно ли создать таблицу с помощью ADO не прибегая к SQL запросам типа " CREATE TABLE ..." и если да, то каким образом ?

---

Almaz   (2004-06-10 00:40:00) [1]

> sniknik ©   (09.06.04 08:07) [1]
> надо использовать внутренние обьекты ADOX

Спасибо - буду пробовать.

---

sniknik   (2004-06-09 08:18:00) [2]

> ADO это "верхний" уровень у него этого нет.
вернее не так, есть но не то, в базе таблицу не создать, а вот тем же методом можно создать рекордсет в памяти и после записать его в файл в формате xml/adtg, по большому счету это тоже будет таблица. ;о)

---

sniknik   (2004-06-09 08:07:00) [3]

надо использовать внутренние обьекты ADOX, ADO это "верхний" уровень у него этого нет. пример, на бейсике ;(

The following code demonstrates how to create a new table.

Sub CreateTable()

   Dim tbl As New Table
   Dim cat As New ADOX.Catalog

'Open the catalog.
   ' Open the Catalog.
   cat.ActiveConnection = _
       "Provider=Microsoft.Jet.OLEDB.4.0;" & _
       "Data Source=c:\Program Files\Microsoft Office\" & _
       "Office\Samples\Northwind.mdb;"

   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

поиши на своей машине справку по обьектам ADO - ADO210.CHM, при установленом офисе найдеш... может быть.

---

Наверх