Скачать: CL | DM;

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

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

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

---

← →
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)"
...

---

← →
Johnmen ©   (2003-10-19 21:19) [6]

>snoup ©

А что, метод CreateDatabase не работает ?

---

← →
aVast ©   (2003-10-20 15:56) [7]

to snoup © (19.10.03 16:40)
>> Спасибо, но твой код мне не подходит.
сори... муданулся

---

← →
snoup ©   (2003-10-25 16:26) [8]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c