Вопрос о вставки новой записи

[funchosa]

Здраствуйте форумчане,

возникла проблема... На форме имеются 7 DBEdit-полей, при этом все они подключены к одному DataSource. Хотелось бы с их помощью вставлять запись в базу. В методе OnFormShow делаю вот так:

  ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('Select * from customer');
    ADOQuery1.Open;
    ADOQuery1.Append;

В методе OnButtonClick прописываю:

 ADOQuery1.Post;

При первом заполнении полей все работает. Если заполняю поля во второй раз, то предыдущая запись заменяется на новую, и тем самым новая запись не создается. Что нужно сделать чтобы при каждом нажатии на кнопку создавалась новая запись? Объясните пожалуйста новичку, очень нужно :-), а лучше на примере...

[evg_m]

ADOQuery1.Append; ничего НЕ СОХРАНЯЕТ, но МЕНЯЕТ позицию (устанавливает на новую)

ADOQuery1.Post; СОХРАНЯЕТ текущую редакцию данных в БД, но НЕ МЕНЯЕТ позицию.

Вам надо сделать правильную комбинацию.
после сохранения надо снова и снова(?) установить на новую.

[funchosa]

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

ADOQuery1.Append; ничего НЕ СОХРАНЯЕТ, но МЕНЯЕТ позицию (устанавливает на новую)

ADOQuery1.Post; СОХРАНЯЕТ текущую редакцию данных в БД, но НЕ МЕНЯЕТ позицию.

Вам надо сделать правильную комбинацию.
после сохранения надо снова и снова(?) установить на новую.

Не могли бы пожалуйста на примере подсказать?

[evg_m]

после сохранения надо снова и снова(?) установить на новую.

а что у нас сохраняет данные?
а что у нас устанавливает на новую?
ответы на вопросы были даны в предыдущем посте
надо выполнить данные операции подряд и в нужном порядке.

[Heneken87]

Если INSERT на SQL не принципиален и плевать на монопольный режим
Настройка коннекта TFDConnection для FireDAC:

 conects.Connected:=false;
 conects.Params.clear;
 conects.Params.Add('DataSource=dBASE Files');
 conects.Params.Add('ODBCDriver={Driver do Microsoft dBase (*.dbf)}');
 conects.Params.Add('Database=C:/BASE_DBF/');//Путь до КАТАЛОГА с БД
conects.Params.Add('DriverID=ODBC');

Где conects это TFDConnection с вкладки FireDAC.

Подключение к DBF через TFDTable для FireDAC :

conects.Connected:=false;
DBF_TB.Active:=False;
DBF_TB.TableName:='DBF1.DBF';//Имя DBF файла
conects.Connected:=True;
DBF_TB.Active:=true;

Далее сама вставка:

DBF_TB.Insert;
DBF_TB.FieldByName('TEXT').AsString:='привет';
DBF_TB.FieldByName('INTEGER').AsInteger:=0;
DBF_TB.FieldByName('FLOAT').AsFloat:=0.11;
DBF_TB.FieldByName('DATE').AsDateTime:=strtodate('01.01.2000');
DBF_TB.Post;

Где DBF_TB это TFDTable с вкладки FireDAC.

Также на форму надо кинуть TFDGUIxWaitCursor c вкладки FireDAC UI

P/S/ Delphi XE7, с ADO 100 лет не работаю уже,но принцип INSERT-POST тот-же.
В FireDAC есть и SQL. А так-же возможность подключения к любой БД: DBF,MySQL,FireBird,MsSQL и т д.

[Аватар]

Какое отношение это имеет к вопросу ТС?

[BARNEY]

Что нужно сделать чтобы при каждом нажатии на кнопку создавалась новая запись?

Аватар, ну вот как....

DBF_TB.Insert;
DBF_TB.FieldByName('TEXT').AsString:='привет';
DBF_TB.FieldByName('INTEGER').AsInteger:=0;
DBF_TB.FieldByName('FLOAT').AsFloat:=0.11;
DBF_TB.FieldByName('DATE').AsDateTime:=strtodate('01.01.2000');
DBF_TB.Post;

Вроде все логично

[Аватар]

Проглядел, но не в этом деле - все остальное к чему?

[BARNEY]

Остальное нужно потому что ТС юзает АДО, а 87 предлагает FireDAC + даёт настройки как динамически к ним подключиться.

[funchosa]

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

а что у нас сохраняет данные?
а что у нас устанавливает на новую?
ответы на вопросы были даны в предыдущем посте
надо выполнить данные операции подряд и в нужном порядке.

Спасибо сегодня попробовала, все отлично работает