Data type mismatch???!!!

[b.grigorev]

спасибо за совет!
А что бы работало AdoQuery1.Refresh, надо же запрос добавить в AdoQuery > типа там UPDATE или что то подобное? Потому что при добавлении просто строчки AdoQuery1.Refresh при выполнении происходит ошибка!

[Serge_Bliznykov]

спасибо за совет!

Пожалуйста!
Но что же Вы благодарите, если Вы не разобрались в том, что именно я посоветовал?

смотрите.
кидаем на форму ДВА Adoquery
Один из них (пусть это будет AdoQuery1) у Вас заполнен кодом, который выбирает данные из таблицы - ну, что-то вроде:
SELECT * From Table1 Where .....
Этот ADOQuery1 через DataSource связан с DBGrid (отображение данных)
Теперь, на кнопке Вы хотите добавить новую запись.
Там используем другой ADOQuery (пусть это будет ADOQueryInsert.
в этот ADOQueryInsert заносим код добавления записи.
тогда на кнопке Добавления пишете что-то вроде:

procedure TForm1.Button1Click(Sender : TObject);
begin
  ADOQueryInsert.Parameters.ParamByName('ind_code').Value := StrToInt(Edit1.Text);
  ADOQueryInsert.Parameters.ParamByName('ind_name').Value := Edit2.Text;
  ADOQueryInsert.Parameters.ParamByName('long_name').Value := Edit3.Text;
  ADOQueryInsert.ExecSQL; {вот, собственно добавление записи в таблицу}

  {а вот теперь обновим датасет, который отображает данные}
  AdoQuery1.Refresh;

end;

Вот и всё.

[b.grigorev]

Ты говоришь, что лучше что бы были разные AdoQuery, ок!
Я сейчас буду рассуждать по твоему прошлому сообщению...
До этого момента у меня был один AdoQuery, который у меня был заполнен кодом:

INSERT INTO industry (ind_code,ind_name,long_name)
Values(:ind_code,:ind_name,:Long_name)

мне надо изменить этот код, что ты предлогаешь: (правильно я написал код?)

SELECT * INTO industry (ind_code,ind_name,long_name)
Values(:ind_code,:ind_name,:Long_name)

Что у меня получилось:
В AdoQuery1 у меня код

SELECT * INTO industry (ind_code,ind_name,long_name)
Values(:ind_code,:ind_name,:Long_name)

в AdoQueryInsert у меня код

INSERT INTO industry (ind_code,ind_name,long_name)
Values(:ind_code,:ind_name,:Long_name)

и в кнопке добовления у меня код

procedure TForm1.Button1Click(Sender : TObject);
begin
  ADOQueryInsert.Parameters.ParamByName('ind_code').Value := StrToInt(Edit1.Text);
  ADOQueryInsert.Parameters.ParamByName('ind_name').Value := Edit2.Text;
  ADOQueryInsert.Parameters.ParamByName('long_name').Value := Edit3.Text;
  ADOQueryInsert.ExecSQL; 
  AdoQuery1.Refresh;
 end;

я вроде ничего не упустил, НО =) когда я добавляю данные у меня ошибка
и после того как опять запускаю проект у меня почему то добавляется в низу таблицы первая строчка из таблицы, в общем на той ячейке где был курсор, та ячейка и добавляется, хотя я перехожу на edit когда добавляю свою цифру

пример:

3579SoftWComputer Software
3710Auto Auto & Truck
3720Aero Aerospace/Defense
7000HotelHotel/Gaming
3579SoftWComputer Software

что то я не то сделал наверно

[Stilet]

ADOQueryInsert.ExecSQL;
AdoQuery1.Refresh;

Так не получится. После ExecSQL тебе нужно переопределить запрос на SELECT... и открыть его методом Open. Refresh тут не самое лучшее решение.

[b.grigorev]

Ну я так понял, что все оставляю как есть, только меняю запрос на ввод данных в кнопке?

...(предыдущий текст как был)
ADOQueryInsert.ExecSQL;
AdoQuery1.Open;
end;

вот так или что то еще надо?

[Stilet]

Нет. Я мало понял что тебе нужно но видимо это:

procedure TForm1.Button1Click(Sender : TObject);
begin
  ADOQueryInsert.Parameters.ParamByName('ind_code').Value := StrToInt(Edit1.Text);
  ADOQueryInsert.Parameters.ParamByName('ind_name').Value := Edit2.Text;
  ADOQueryInsert.Parameters.ParamByName('long_name').Value := Edit3.Text;
  ADOQueryInsert.ExecSQL; 
  with AdoQuery1 do begin
   Close;
   sql.text:=Тут твой SELECT на открытие;
   Open;
  end;

 end;

[b.grigorev]

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

Нет. Я мало понял что тебе нужно но видимо это:

procedure TForm1.Button1Click(Sender : TObject);
begin
  ADOQueryInsert.Parameters.ParamByName('ind_code').Value := StrToInt(Edit1.Text);
  ADOQueryInsert.Parameters.ParamByName('ind_name').Value := Edit2.Text;
  ADOQueryInsert.Parameters.ParamByName('long_name').Value := Edit3.Text;
  ADOQueryInsert.ExecSQL; 
  with AdoQuery1 do begin
   Close;
   sql.text:=Тут твой SELECT на открытие;
   Open;
  end;

 end;

SELECT * INTO industry (ind_code,ind_name,long_name)
Values(:ind_code,:ind_name,:Long_na me) вот это?

[Stilet]

Вот и пиши:

sql.text:='SELECT * INTO industry (ind_code,ind_name,long_name)
Values(:ind_code,:ind_name,:Long_na me)';