проблемы программирования Delphi + Oracle 10XE

[Kolya29]

Есть задание сделать базу в оракле и упралять через програмулину написанную на делфи. Пока получилось только связать связать все и сделать добавление данных. Добавлял данные через Едит-ы и ДБЛукапБокс-ы, данные для которых брал из справочников БД. В базе есть куча связей. После чего написал запрос на вывод только нужных данных ДБГрид, без всяких внешних ключей и ключевых полей.

Получил нужный список, но как его редактировать ни как не могу придумать. Надо чтобы данные выбранные в ДБГрид-е редактировались в так же в Едит-ах и выберались в ДБЛукапБокс-ах, но для этого надо как то получить ID выбранной записи или есть какой то другой способ?

Может кто еще посоветует где есть книга какая-нибудь или информация по программированию Delphi + Oracle?

Или может хоть кто подскажет, что я делаю не правильно. Хочу например удалить строчку, пишу на действие кнопки:

ADOQuery3.Active:=False;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('Delete');
ADOQuery3.SQL.Add('From OBORUD');
ADOQuery3.SQL.Add('Where');
ADOQuery3.SQL.Add('KOD_OBORUDOVANIYA = '+Edit3.Text+'');
ADOQuery3.Active:=true;

вылезат ошибка
ORA-00933: SQL command not properly ended

[OlegVE]

Здравствуйте
Исходя из этого

Сообщение от Kolya29

вылезат ошибка
ORA-00933: SQL command not properly ended

Скорее всего в нижеприведенной строке в конце надо поставить точку с запятой, т.е.

...
ADOQuery3.SQL.Add('KOD_OBORUDOVANIYA = '+Edit3.Text+';');
...

До свидания
P.S. Это не Oracle это SQL, хотя в Oracle свои особенности и я их не знаю.

[Stilet]

KOD_OBORUDOVANIYA какого типа? если строкового то пользуйся QuotedStr() для заключения значения Эдита в ковычки.

[Kolya29]

Сообщение от OlegVE

Здравствуйте
Исходя из этого

Скорее всего в нижеприведенной строке в конце надо поставить точку с запятой, т.е.

...
ADOQuery3.SQL.Add('KOD_OBORUDOVANIYA = '+Edit3.Text+';');
...

До свидания
P.S. Это не Oracle это SQL, хотя в Oracle свои особенности и я их не знаю.

так я тоже пробовал, если ставить точку с запятой, то вылезает ошибка ORA-00911 Invalid character и ни чего не удаляется. Если ее не ставить, то он удаляет но и ошибка вылезает тоже.

Сообщение от Stilet

KOD_OBORUDOVANIYA какого типа? если строкового то пользуйся QuotedStr() для заключения значения Эдита в ковычки.

у KOD_OBORUDOVANIYA тип number

[OlegVE]

Здравствуйте
1. Попробуйте поставить везде пробелы, после:
'Delete '
'From OBORUD '
'Where '
2. Это видимо какая-то особенность Oracle SQL. Попробуйте в коде просто написать:

...
ADOQuery3.SQL.Add('KOD_OBORUDOVANIYA = СуществующийКодОборудованияЦифрой;');
...

С точкой с запятой и без неё.
3. А здесь
'KOD_OBORUDOVANIYA = '
наоборот, удалите пробелы.
Ваш SQL запрос обрабатывает ни Delphi, ни ADO, а Ваш сервер Oracle.
Не получится - учите Oracle SQL.
До свидания

[Kolya29]

OlegVE спасибо за советы, но что видимо я делаю не так, не заработало)) Пошел другим путем, кинул компонент дбНавигатор, скрыл его, а на обычную кнопку повесил чтобы выполнялось нажатие на удаления на навигаторе.

Но до сих пор не могу придумать как редактирование данных организовать.
Кто что подскажет?
Как сделать чтобы данные выделенной строки попадали в Эдиты, а потом после редактирования изменения вносились в базу?

[Serge_Bliznykov]

ADOQuery3.Active:=False;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('Delete');
ADOQuery3.SQL.Add('From OBORUD');
ADOQuery3.SQL.Add('Where');
ADOQuery3.SQL.Add('KOD_OBORUDOVANIYA = '+Edit3.Text+'');
ADOQuery3.Active:=true;

ошибка "классическая"! Через .Active:=true (оно же .Open; )
можно открывать ТОЛЬКО запросы с выборкой данных -
т.е. ТОЛЬКО где данные выбираются через SELECT ..

для манипуляций данными (INSERT ... / UPDATE ... / DELETE ..) нужно использовать метод ExecSQL;

ADOQuery3.ExecSQL;

ну и насчёт кавычек для текстовой константы, если поле текстовое, это абсолютно в точку!

[Kolya29]

Сообщение от Serge_Bliznykov

ошибка "классическая"! Через .Active:=true (оно же .Open; )
можно открывать ТОЛЬКО запросы с выборкой данных -
т.е. ТОЛЬКО где данные выбираются через SELECT ..

для манипуляций данными (INSERT ... / UPDATE ... / DELETE ..) нужно использовать метод ExecSQL;

ADOQuery3.ExecSQL;

ну и насчёт кавычек для текстовой константы, если поле текстовое, это абсолютно в точку!

Отлично! Заработало удаление Спасибо

Теперь надо что то с редактированием придумать

Что я делаю не так? Пытаюсь изменить название оборудования, ID которого 52

ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('UPDATE');
ADOQuery3.SQL.Add('OBORUD);
ADOQuery3.SQL.Add('SET');
ADOQuery3.SQL.Add('NAIM = Пресс');
ADOQuery3.SQL.Add('WHERE');
ADOQuery3.SQL.Add('OBORUD_ID = 52'); {ID редактируемого оборудования}
ADOQuery3.ExecSQL;

После этого вылезает ошибка ORA-00904: "Пресс" Invalid Identifier

Если Слово процесс меняю на число, то все работает без ошибок

тип столбца NAIM - VARCHAR2

причем если выполняешь запрос не через делфи, то все отлично проходит и ошибок не вылезает. Вот такой запросик выполняется

UPDATE OBORUD
SET NAIM='Пресс'
WHERE OBORUD_ID='52';

[Serge_Bliznykov]

Вы шутите? Или издеваетесь?

ADOQuery3.SQL.Add('NAIM = Пресс');

SET NAIM='Пресс'

никакой разницы не видите?!!


Подсказываю - текстовые константы должны быть заключены в одинарные кавычки!
И об этом в этой теме Вам уже НЕОДНОКРАТНО писали!

надо или так:

ADOQuery3.SQL.Add('NAIM = ''Пресс'' ');

или так:

ADOQuery3.SQL.Add('NAIM = '+QuotedStr('Пресс'));

[Kolya29]

Сообщение от Serge_Bliznykov

Вы шутите? Или издеваетесь?

никакой разницы не видите?!!


Подсказываю - текстовые константы должны быть заключены в одинарные кавычки!
И об этом в этой теме Вам уже НЕОДНОКРАТНО писали!

надо или так:

ADOQuery3.SQL.Add('NAIM = ''Пресс'' ');

или так:

ADOQuery3.SQL.Add('NAIM = '+QuotedStr('Пресс'));

Отлично! Оба способа показанные Вами работают На счет двойных кавычек читал несколько раз и пробовал всегда почему то ставить такие( " ) вместо ( ' ' )

Теперь еще проблема появилась, не могу поменять ширину столбца в DBGrid, чтобы скрыть ID. В StringGrid все просто делалось

StringGrid1.ColWidths[0]:=-1;

а тут ни как не могу найти параметр отвечающий за ширину.

Или можно как то по другому получить ID выделенной строки при нажатии на нее? если перед этим запросом выводятся только нужные поля.

Либо как вообще лучше организовать, чтобы редактирование данных осуществлялось через поля Edit?