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

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

Проблема с выполнением SQL запроса, Oracle 8, Delphi 6, DOCI 1.19 [D6]

Plus ©   (2004-04-29 22:18:00) 

procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
AOraSQL1.Active:=True;
AOraSQL1.ExecSQL;
AOraSQL1.Active:=False;
OraDB1.CommitTransaction;
Halt;
end;



object OraDB1: TOraDB
   Active = True
   DBLogin = 'bergoff'
   DBPassword = '123456'
   DBServer = 'server'
   LoginPrompt = False
   OraTransIsolationLevel = tiDefault
   OraSessionIsolationLevel = siDefault
   RollbackOnDisconnect = False
   ConnectAs = caNormal
   SQLTrace = stDefault
   Left = 328
   Top = 128
 end
 object AOraSQL1: TAOraSQL
   Active = False
   Database = OraDB1
   FetchCount = 1000
   SQL.Strings = (
     'delete from cl_ref')
   UniDirectional = False
   Left = 264
   Top = 128
 end


Программа выдаёт:Не Select выражение! Используйте ExecSQL метод вместо Open.


Чо мне сделать?

---

Курдль   (2004-04-29 23:48:00) [1]

> Программа выдаёт:Не Select выражение! Используйте ExecSQL
> метод вместо Open.

Вот бы мне программа выдавала такое, а то вечно хрень вывалит типа "DBERR789872309 - UNKNOWN ERROR" :-\ Уж мы бы с ней поговорили...

А вот это зачем:
OraDB1.CommitTransaction;
Halt;?

---

Vlad   (2004-04-29 22:44:00) [2]

>
> Чо мне сделать?

Убрать вот это:
AOraSQL1.Active:=True;
AOraSQL1.Active:=False;
И оставить только это:
AOraSQL1.ExecSQL;

---

Наверх