Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.04;
Скачать: CL | DM;

Вниз

Создание таблиц с помощью ADO   Найти похожие ветки 

 
Almaz ©   (2004-06-09 00:52) [0]

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


 
sniknik ©   (2004-06-09 08:07) [1]

надо использовать внутренние обьекты 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, при установленом офисе найдеш... может быть.


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

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


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


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

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



Страницы: 1 вся ветка

Текущий архив: 2004.07.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
1-1087879148
Cobalt
2004-06-22 08:39
2004.07.04
Как окно теряет фокус?


6-1084336512
leonidus
2004-05-12 08:35
2004.07.04
Взаимодействие с TheBat 2.0


1-1087357108
Zipkin
2004-06-16 07:38
2004.07.04
Main+Menu


3-1085991505
ceval
2004-05-31 12:18
2004.07.04
Подскажите как посредствам ADOTable связать две таблицы


3-1086584441
zver
2004-06-07 09:00
2004.07.04
ADOCommand1.CommandText