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

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

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

snoup ©   (2003-10-19 14:25:00) 

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

---

snoup   (2003-10-25 16:26:00) [1]

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

---

aVast   (2003-10-20 15:56:00) [2]

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

---

Johnmen   (2003-10-19 21:19:00) [3]

>snoup ©

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

---

jack128   (2003-10-19 18:57:00) [4]

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

---

jack128   (2003-10-19 17:20:00) [5]

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

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

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

---

snoup   (2003-10-19 16:40:00) [6]

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

---

aVast   (2003-10-19 15:10:00) [7]



...
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;



---

Term   (2003-10-19 14:26:00) [8]

CREATE TABLE ?

---

Наверх