Цитата:
|
Сообщение от 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+'''');
..... |
А у тебя есть уникальное автоинкрементное поле в таблицах? Если есть (а оно в правильных таблицах должно быть) то в запросе вместо звёздочки перечисли через запятую поля кроме автоинкрементного.