Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ADOX - Create TABLE (FIELD1 INT NULL,FIELD2 INT NULL) / 3 сообщений из 3, страница 1 из 1
17.07.2002, 16:21
    #32037233
Oleg_O
Oleg_O
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOX - Create TABLE (FIELD1 INT NULL,FIELD2 INT NULL)
Eto tolko 4ast function 4to sozdaet table s zadannoy structuroy

DataBase : MS SQL 2000

Vopros : Kak sozdat 4eres ADOX Table s pozvolennim zna4eniem NULL

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
var
 Catalog  : _Catalog;
 Table    : _Table;
 Column   : _Column ;
 DS       : String;


//DS  -- Connection string
 

   Catalog := CreateCOMObject(StringToGUID('ADOX.Catalog')) as _Catalog;
   Catalog._Set_ActiveConnection(DS);
              // Create a Table Object
   Table := CreateCOMObject(StringToGUID('ADOX.Table')) as _Table;
              // Set the name of a table
   Table.Name := 'Mytable';
   Table.ParentCatalog := Catalog;


      Column := CreateCOMObject(StringToGUID('ADOX.Column')) as _Column;
           With Column do
             begin
               ParentCatalog := Catalog;
               Name    := DataSet_Selected_Fields.FieldByName('Field_Name').asstring;
               Type_   := adInteger;           
             end;

      Table.Columns.Append(Column,  0 ,  0 );
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2002, 10:23
    #32037368
ziktuw
ziktuw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOX - Create TABLE (FIELD1 INT NULL,FIELD2 INT NULL)
А зачем так сложно? Чем не устраивает ADOCommand и SQL-инструкция "CREATE TABLE" ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2002, 11:59
    #32037405
Oleg_O
Oleg_O
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADOX - Create TABLE (FIELD1 INT NULL,FIELD2 INT NULL)
2Dankov
Soglasen s vani ,no est odno no
Eta function rabotaet takje dlya ACCESS i sozdaet DB i Tablitzu dlja ACCESS dostato4no napisat tac :

Код: plaintext
1.
2.
3.
4.
5.
6.
 With Column do
      begin
       ParentCatalog := Catalog;
       Name    := 'CurrentDateTime';
       Type_   := adDate;
       Properties['Description'].Value    := 'DateTime';
      end;


i eto sozdast field s razreshennim NULL

Dlya MSSQL

Код: plaintext
1.
2.
3.
4.
5.
   With Column do
             begin
               ParentCatalog := Catalog;
               Name    := DataSet_Selected_Fields.FieldByName('Field_Name').asstring;
               Type_   := adInteger;           
             end;


I field NOT NULL
Ya nemogo nayti analog dlya :
Код: plaintext
Properties['Description'].Value

v obrashenii k MSSQL
Spasibo za interes k probleme
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ADOX - Create TABLE (FIELD1 INT NULL,FIELD2 INT NULL) / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]