[masterhex]

Здравствуйте, курсовая, суть такова:
База, в базе две таблицы, идентичные друг другу.
Форма, с поиском данных по SN номеру определенной вещи по событию onchange Edit-a. А также на форме два DBGrid-a, отображающие первую и вторую таблицы соответственно.
Но теперь проблема, никак не могу найти нужную литературу, или источник, чтобы построить запрос на перенос найденной по значению из Edit1 записи из одной таблицы в другую. В sql не силен.
Прошу помочь

Код:

procedure TfMain.Edit1Change(Sender: TObject);
begin
fdm.ADOQuery1.SQL.Clear;
fdm.ADOQuery1.SQL.Add('SELECT * FROM device WHERE sn LIKE '''+Edit1.Text+'''');
fdm.ADOQuery1.SQL.Add('INSERT INTO devicerev SELECT * FROM device WHERE sn LIKE '''+Edit1.Text+'''');
fdm.ADOQuery1.Active:=True;
fdm.ADOQuery2.SQL.Clear;
fdm.ADOQuery2.SQL.Add('SELECT * FROM devicerev');
fdm.ADOQuery2.Active:=True;
end;

Админ: Пользуемся тегами для оформления кода!

В чем синтаксическая ошибка INSERT-a?

[poli-smen]

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

Но теперь проблема, никак не могу найти нужную литературу, или источник, чтобы построить запрос на перенос найденной по значению из Edit1 записи из одной таблицы в другую. В sql не силен.

Пробуй так:

SELECT * INTO devicerev FROM device WHERE sn LIKE ...

UPD.
Хотя нет. Посмотрел в справке, так можно только для создания новых таблиц. Если же нужно добавить в уже существующую таблицу, то остаётся "INSERT INTO".
Синтаксических ошибок в твоём коде я не вижу, единственное только убери эту строку:

Код:

fdm.ADOQuery1.SQL.Add('SELECT * FROM device WHERE sn LIKE '''+Edit1.Text+'''');

[masterhex]

Спасибо что так скоро откликнулись.
Но все та же ошибка

[poli-smen]

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

Спасибо что так скоро откликнулись.
Но все та же ошибка

Я там поправил своё сообщение:
Верни назад INSERT INTO и убери строку:

fdm.ADOQuery1.SQL.Add('SELECT * FROM device WHERE sn LIKE '''+Edit1.Text+'''');

[masterhex]

такая ошибка при таком коде:

Код:

procedure TfMain.Edit1Change(Sender: TObject);
begin
fdm.ADOQuery1.SQL.Clear;
fdm.ADOQuery1.SQL.Add('INSERT INTO devicerev SELECT * FROM device WHERE sn LIKE '''+Edit1.Text+'''');
fdm.ADOQuery1.Active:=True;
fdm.ADOQuery2.SQL.Clear;
fdm.ADOQuery2.SQL.Add('SELECT * FROM devicerev');
fdm.ADOQuery2.Active:=True;
end;

Почему то еще указатель ошибки показывает на

Код:

fdm.ADOQuery2.SQL.Clear;

тогда как когда код был просто для просмотра, ошибок не было вообще.

[poli-smen]

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

такая ошибка при таком коде:

Код:

procedure TfMain.Edit1Change(Sender: TObject);
begin
fdm.ADOQuery1.SQL.Clear;
fdm.ADOQuery1.SQL.Add('INSERT INTO devicerev SELECT * FROM device WHERE sn LIKE '''+Edit1.Text+'''');
.....

А у тебя есть уникальное автоинкрементное поле в таблицах? Если есть (а оно в правильных таблицах должно быть) то в запросе вместо звёздочки перечисли через запятую поля кроме автоинкрементного.

[masterhex]

Сделал как Вы сказали, но теперь жалуется на синтаксис INSERT-a

Код:

procedure TfMain.Edit1Change(Sender: TObject);
begin
fdm.ADOQuery1.SQL.Clear;
fdm.ADOQuery1.SQL.Add('INSERT INTO devicerev(id_type, model, sn, in, data_schet, number_schet, price, date_prihod,date_ystanovki, id_personal, garant_do, olduser)');
fdm.ADOQuery1.SQL.Add('SELECT id_type, model, sn, in, data_schet, number_schet, price, date_prihod,date_ystanovki, id_personal, garant_do, olduser FROM device WHERE sn LIKE '''+Edit1.Text+'''');
fdm.ADOQuery1.Active:=True;
fdm.ADOQuery2.SQL.Clear;
fdm.ADOQuery2.SQL.Add('SELECT * FROM devicerev');
fdm.ADOQuery2.Active:=True;
end;

[M.A.D.M.A.N.]

insert into TABLENAME(fieldnames) values(fieldvalues)

[masterhex]

Сообщение от M.A.D.M.A.N.

insert into TABLENAME(fieldnames) values(fieldvalues)

но ведь я также и сделал, за исключением того что не указал параметр values в виду того что не могу знать их заранее.
Я произвожу поиск по записям и добавляю найденные по определенному sn значения.

Код:

fdm.ADOQuery1.SQL.Add('INSERT INTO devicerev(id_type, model, sn, in, data_schet, number_schet, price, date_prihod,date_ystanovki, id_personal, garant_do, olduser)');
fdm.ADOQuery1.SQL.Add('SELECT id_type, model, sn, in, data_schet, number_schet, price, date_prihod,date_ystanovki, id_personal, garant_do, olduser FROM device WHERE sn LIKE '''+Edit1.Text+'''');

это одна строка, я разделил на две в коде, потому что он начал жаловаться на то что строка превысила 255 символов.

[poli-smen]

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

Сделал как Вы сказали, но теперь жалуется на синтаксис INSERT-a

Странно. Я ошибки не вижу. Должно нормально работать.
Вот один из примеров из справки по MSSQL:

PHP код:

INSERT INTO MyTable  (PriKey, Description)
       SELECT ForeignKey, Description
       FROM SomeView 


Ты каким SQL-движком пользуешься?

[masterhex]

Сообщение от poli-smen

Ты каким SQL-движком пользуешься?

Если Вы о СУБД, то у меня получается MS Access.

[poli-smen]

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

Если Вы о СУБД, то у меня получается MS Access.

По идее должно работать в Access-е.
Попробуй в условии уточнить из какой таблицы поле. Т.е. вместо:

PHP код:

WHERE sn 


напиши:

PHP код:

WHERE device.sn 


Или ещё лучше так:

PHP код:

FROM device AS tb1 WHERE tb1.sn LIKE... 


[masterhex]

Все перепробовал, уже не знаю что делать, вопрос остается в силе
Вот последний вариант:

Код:

procedure TfMain.Edit1Change(Sender: TObject);
begin
fdm.ADOQuery1.SQL.Clear;
fdm.ADOQuery1.SQL.Add('INSERT INTO devicerev(id_type, model, sn, in, data_schet, number_schet, price, date_prihod,date_ystanovki, id_personal, garant_do, olduser)');
fdm.ADOQuery1.SQL.Add('SELECT d.id_type, d.model, d.sn, d.in, d.data_schet, d.number_schet, d.price, d.date_prihod,date_ystanovki, d.id_personal, d.garant_do, d.olduser FROM device AS d WHERE d.sn LIKE '''+Edit1.Text+'''');
fdm.ADOQuery1.Active:=True;
fdm.ADOQuery2.SQL.Clear;
fdm.ADOQuery2.SQL.Add('SELECT * FROM devicerev');
fdm.ADOQuery2.Active:=True;
end;

среди перечисленных полей нет автоинкремента

[masterhex]

Разобрался, для тех кто столкнулся с такой же задачей :

Код:

procedure TfMain.Edit1Change(Sender: TObject);
begin
try
fdm.ADOQuery1.SQL.Clear;
fdm.ADOQuery1.SQL.Add('INSERT INTO devicerev SELECT * FROM device AS d WHERE d.sn LIKE '''+Edit1.Text+'''');
fdm.ADOQuery1.ExecSQL;
fdm.ADOQuery2.SQL.Clear;
fdm.ADOQuery2.SQL.Add('SELECT * FROM devicerev');
fdm.ADOQuery2.Active:=True;
except
on e:Exception do
end;
end;

Дело в том что для ВВОДА данных (INSERT) нельзя указывать -

Код:

fdm.ADOQuery1.Active:=True;

а надо именно исполнение -

Код:

fdm.ADOQuery1.ExecSQL;

Спасибо всем за внимание!

[poli-smen]

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

Дело в том что для ВВОДА данных (INSERT) нельзя указывать -

Код:

fdm.ADOQuery1.Active:=True;

а надо именно исполнение -

Код:

fdm.ADOQuery1.ExecSQL;

Спасибо всем за внимание!

Блин, точно. Не обратил на это внимание. Возможно потому, что я никогда не пользуюсь свойством Active - если выполнить запрос, то ExecSQL, если открыть запрос, то Open и никаких Active.