Добавление в sql-БД

[antoniosm]

Люди, помогите. Нужно при нажатии на кноку заносить данные в БД.
Значит так, на форме имеется кнопка "добавить" и 2 компонента Edit.
В БД имеется 2 поля "id"(тип int) и "name"(тип varchar(10)). Нужно из Edit1 добавть данные (перевод из сторки в число) в поле "id" и из Edit2 в поле "name" при ножатии на кнопку. Подключение к серверу проходит нормально, выборка данных осуществляется. ЖДУ ваших предложений

[_SERGEYX_]

А в чем проблема?

Query.Close;
Query.SQL.Clear;
Query.SQL.Add('insert into TABLE (id,name) Values ( "'+
Edit1.Text+'","'+
Edit2.Text+
'")');
Query.ExecSQL;

[antoniosm]

Сергей, спасибо. Только ведь в БД у поля id стоит тип int, а в поле Edit1 любые вводимые симвоы принимают тип Text. Вот тут-то головнячок-с выскакивает. подскажите пожалста.

[antoniosm]

begin
ADOQuery1.SQL.Add('insert into mytab12 (id, name) values ("'+Edit1.Text+'","'+Edit2.Text+'") ');
ADOQuery1.ExecSQL;
end;

вот часть кода, который имеется у меня, но не работает, как и тот, который приводил Сергей. в чем ошибка? при добавлении значений в БД говорит, что не совпадают типы.

[JordanS]

Если поле в БД типа integer, то при использовании insert ...
значение не надо указывать в апострофах.
Предварительно надо значение Edit1.Text преобразовать в integer
можно использовать функцию StrToInt()
begin
ADOQuery1.SQL.Add('insert into mytab12 (id, name) values ('
+strtoint(Edit1.Text)+',"'+Edit2.Text+'")');
ADOQuery1.ExecSQL;
end;

Естественно необходимо сделать проверку на ввод в Edit1, т.е. ввели цифру или нет, иначе будет вылетать ошибка

[Virtson]

strtointDef(Edit1.Text, 0)
и ошибка не вылетит )

[_SERGEYX_]

поля id стоит тип int, а в поле Edit1 любые вводимые симвоы

Оптимальный вариант - запретить вообще в edit1 писать все, кроме цифр.
if edit1.text = '' then edit1.text := '0';

[rubi]

Может вообще сделать через параметры:
begin
ADOQuery1.SQL.Add('insert into mytab12 (id, name) values (:id_par,:name_par)');
ADOQuery1.ExecSQL;
end;
а уже в коде дэлфы сделать так:
ADOQuery1.Parameters.ParamByName(:i d_par).Value:=StrToInt(Edit1.Text);
ADOQuery1.Parameters.ParamByName(:n ame_par).Value:=Edit2.Text;
ADOQuery1.ExecSQL;
И вообще я бы рекомендовал для осуществления операций с БД, если используешь ADO, делать все через ADOCommand (можно ADODataSet).

[Tokolist]

Ну...
есть такие компоненты как TSpinEdit или TDBNumberEditEh (EhLib) или на худой конец

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key < '0') or (Key > '9') then
    Key := #0;
end;

[antoniosm]

всем большое спасибо за помощь