Добавление данных в таблицы Interbase

[hijke]

Нужно добавить данные в Interbase таблицы,данные вводятся с формы...
Для добавления написал следующее:
procedure TForm2.Button3Click(Sender: TObject);
begin
ibquery1.SQL.Clear;
ibquery1.SQL.Append('INSERT INTO "Devices" ("Name") VALUES ("edit1.Text")');
ibquery1.SQL.Append('INSERT INTO "DeviceTree" ("ParentId") VALUES ("edit2.text")');
ibquery1.SQL.Append('INSERT INTO "Devices" ("Id") VALUES ("edit3.text")');
end;
не работает...
Нужно чтобы в соответствующие поля соответствующих таблиц добавлялись значения которые будут введены в соответствующих полях формы(edit1...edit2...и т.д.)
Заранее спасибо. Не судите слишком строго я только учусь и разбираюсь в этом во всем.

[mihali4]

1. Что за SQL.Append? Вдумайтесь. Мало ли что у вас там (в SQL.Text) было, а вы "вструмили" где-то между чем-то свои строки...
SQL.Text:=('.....') !!!
И еще. SQL команду вы определили. А кто запустит ее на исполнение?
EXECSQL
2. Формат команды INSERT INTO TABLE (pole1,pole2,..polen) VALUES (val1,val2,..valn). Эта команда вставляет ЗАПИСЬ, а не отдельные поля...
Пример из руководства по IB SQL:

INSERT INTO ORDERS (ORDER_DATE, ORDER_AMT) VALUES ('1-MAY-93', 512.36);

3. По поводу вставки значений из эдитов. Тут придется со строкой SQL чуток "поизвращаться", а именно:
... VALUES ('+QuotedStr(edit1.Text)+','+Quoted Str(edit2.Text)+','+...+')';
То есть строку составляем из "кусочков".
И никаких двойных кавычек!!! Только апострофы!

[hijke]

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

[mihali4]

и как быть дальше тогда? конкретный совед дать можете?

Простите, а куда уж конкретнее??? Вроде все разжевал, привел примеры и по полочкам разложил...
Если вам эта элементарщина непонятна - может ну его, это программирование? Или, может, взять-таки умную книгу, раз живого человека не понимаете...

[hijke]

все все...понял понял)сори)я просто отредактированное сообщение не заметил просто)

[hijke]

INSERT INTO "Devices" (Devices_Id,Devices_Name) VALUES ('+QuotedStr(edit1.Text)','+QuotedS tr(edit3.Text)');
вставил такую строку...не работает...

[mihali4]

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

INSERT INTO "Devices" (Devices_Id,Devices_Name) VALUES ('+QuotedStr(edit1.Text)','+QuotedS tr(edit3.Text)');
вставил такую строку...не работает...

Опять двадцать пять...
Я же сказал - никаких двойных кавычек... Во-первых, имена таблиц и полей в кавычки или апострофы НЕ ЗАКЛЮЧАЮТСЯ!
Во-вторых, похоже, вы как тот голый, который в баню боится опоздать
QuotedStr(edit1.Text)+','
И показывайте целиком procedure TForm2.Button3Click... Или, по крайней мере, указывайте признаки того, что у вас "а у меня ничего не работает". Гадать, что там у вас не работает, под силу только экстрасенсам, а они у нас, как известно, в бессрочном отпуске...

[hijke]

procedure TForm2.Button3Click(Sender: TObject);
begin
ibquery1.SQL.Clear;
INSERT INTO Devices (Devices_Id,Devices_Name) VALUES ('+QuotedStr(edit1.Text)+','+Quoted Str(edit3.Text)+');
execsql
end;
вот такая у меня там фигня...и вот вусе равно не канает)

[mihali4]

INSERT INTO Devices (Devices_Id,Devices_Name) VALUES ('+QuotedStr(edit1.Text)+','+Quoted Str(edit3.Text) +');
execsql

Вы что, издеваетесь!?
У вас в самом начале грамотнее было написано...
К чему относится "execsql"? Может, все таки к ibquery1?
Ну, так и пишите - ibquery1.execsql;
А текст SQL, который
INSERT INTO Devices (Devices_Id,Devices_Name) VALUES ('+QuotedStr(edit1.Text)+','+Quoted Str(edit3.Text) +')
Вы его ЧЕМУ присваиваете? Посмотрите свой первый пост...
З.Ы. Вы вообще, хоть разок во встроенный хэлп заглядывали? А зря... Вот метод "тыка" тут явно "не катит"...
Поскольку вы работаете с интербэйсом, значит он у вас установлен, а посему не поленитесь заглянуть в документацию:
...\InterBase\doc
Процентов 80 ваших вопросов отпадут сами собой (даже с табуретки прыгать не придется )

[hijke]

procedure TForm2.Button3Click(Sender: TObject);
begin
ibquery1.SQL.Clear;
ibquery1.SQL.INSERT INTO Devices (Devices_Id,Devices_Name) VALUES ('+QuotedStr(edit1.Text)+','+Quoted Str(edit3.Text)+');
ibquery1.execsql
end;
так чтоли?