Можно ли и как создавать таблицы с помощью TIB компонент?

← →
snoup © (2003-10-19 14:25) [0]

← →
Term © (2003-10-19 14:26) [1]

CREATE TABLE ?

← →
aVast © (2003-10-19 15:10) [2]

... IBDB: TIBDatabase; EdtDBName: TEdit; ... procedure CreateIBDB; var DBParams: TStrings; tr_handle: TISC_TR_HANDLE; FHandle: TISC_DB_HANDLE; begin DBParams:=TStringList.Create; DBParams.Add("lc_ctype=WIN1251"); DBParams.Add("user_name="+sUserName); DBParams.Add("password="+sPassword); with IBDB do begin CheckInactive; tr_handle := nil; Call(isc_dsql_execute_immediate(StatusVector, @FHandle,@tr_handle, 0, PChar("CREATE DATABASE """+ EdtDBName.Text + """ " + DBParams.Text), SQLDialect, nil), True); end; DBParams.Free; end;

← →
snoup © (2003-10-19 16:40) [3]

>Term
да, я имею ввиду методом CREATE TABLE.
Я пытался создать таблицу методом CREATE TABLE с помощью TIBQuery и TIBSQL но ничего не получилось, скорее всего эти компаненты не имеют нужных прав, т.е не могут выполнять команды CREATE... вот я и спрашиваю у вас как еще можно это реализовать?
>aVast
Спасибо, но твой код мне не подходит.

← →
jack128 © (2003-10-19 17:20) [4]

I>
> скорее всего эти компаненты не имеют нужных прав,

Компанеты вообще к правам никакого отнашения не имеют. Права имеет пользователь под которымты логинишься в базу..К тому же создавать таблицу помоему имеет право любой пользователь..

with ibquery1 do
begin
Transaction.StartTransaction;
try
sql.text := "create table mytable myfield integer";
execSQL;
Transaction.Commit;
except
Transaction.Rollback;
raise;
end;
end;

← →
jack128 © (2003-10-19 18:57) [5]

sorry
...
sql.text := "create table mytable (myfield integer)"
...

ОЙ сорри to all! я уже про вас и забыл:) У меня все получилось и с IBSQL там трабла моя была:) Сделал, а в ветку забыл глянуть:(

Можно ли и как создавать таблицы с помощью TIB компонент? Найти похожие ветки