Добавить запись в базу с помощью запроса.

[Aleksandr]

Как добавить запись с помощью запроса. Я делаю

Query1.SQL.Text := 'INSERT INTO avtor (fam, pas, spec, close) Values (01, 9600, 45, 1);

, но не получается

[Stilet]

Теоретически запрос верен.

[grominfo]

А вы ExecSQL вызываете? Ну это я так спросил, чтобы проверить все версии )))

--------------

Кстати, название поля "close" - зарезервированное слово

http://www.taurion.ru/access/8/31

[Аватар]

ТС, кода побольше нужно дать, что бы видно всю операцию вставки, указать какая СУБД, неплохо структуру таблицы, чтобы типы полей увидеть, и самое главное - что не получается, полный текст сообщения об ошибке. Вроде на форуме 6 лет, а вопрос как новичок задаете

[Aleksandr]

Ни какой ошибки нет, а запись не добавляется

procedure TMainForm.Button3Click(Sender: TObject);
begin
zQuery1.SQL.Clear;
zQuery1.SQL.Add ('INSERT INTO avtor (fam, pas, spec, close) Values (01, 9600, 45, 1)');
zQuery1.ExecSQL;
end;

[Аватар]

И это все? Писали уже - где zQuery1.ExecSQL или какой там аналог у вашего компонента? И структуру покажите - думаю что fam это фамилия и не нравится 01 (чито это?), которую в это поле присваиваете. Была бы структура - не нужно было бы гадать на кофейной гуще

ADD У вас там 3 поля символьных, а присваиваете числа. Не порядок

[Aleksandr]

Спасибо действитльно забыл zQuery1.ExecSQL;

[Aleksandr]

А как добавить запись если дата и время берутся текущие. Пробовал с параметром, но чтото не получилось

var
d1,d2: TDateTime;
begin
zQuery1.SQL.Clear;
zQuery1.SQL.Add ('INSERT INTO base (Date_posting, Time_posting, num, Massa, Name, Image, Com, BaudRate, Organization, Location, IP, Note, Model, Equopment, Linkey, Stable_weight, Image_kamera)'+' Values (''2013-10-14 00:00:00'',''1899-12-30 22:39:00'', 1, 9600, ''gdfyd'',''image'', 4001, 9600, ''Организация'', ''ffff'', ''192.168.4.90'', ''erter'', ''ìrterte'', ''fdgf'', 3, 1, 1)');
d1:=Trunc(DateToStr(now));
d2:=frac(timeToStr(now));
zQuery1.Params.ParamByName('date1').Value:=d1;
zQuery1.Params.ParamByName('date2').Value:=d2;
zQuery1.ExecSQL;

var
d1,d2: TDateTime;
begin
zQuery1.SQL.Clear;
zQuery1.SQL.Add ('INSERT INTO base (Date_posting, Time_posting, num, Massa, Name, Image, Com, BaudRate, Organization, Location, IP, Note, Model, Equopment, Linkey, Stable_weight, Image_kamera)'+' Values (''2013-10-14 00:00:00'',''1899-12-30 22:39:00'', 1, 9600, ''gdfyd'',''image'', 4001, 9600, ''Организация'', ''ffff'', ''192.168.4.90'', ''erter'', ''ìrterte'', ''fdgf'', 3, 1, 1)');
//d1:=Trunc(DateToStr(now));
//d2:=frac(timeToStr(now));
//zQuery1.Params.ParamByName('date1').Value:=d1;
//zQuery1.Params.ParamByName('date2').Value:=d2;
zQuery1.ExecSQL;

Структура базы

[Dozent]

НУ смотрите вы пытаетесь полю типа DateTime передать дату переделанную в строку, вот тут точно будет ошибка...

zQuery1.Params.ParamByName('date').Value:=Date;
zQuery1.Params.ParamByName('time').Value:=Time;

Вот так должно сработать...
НУ или в запросе написать вместо параметов

.., curentdate, curenttime

не пойму какую СУБД используется MySQL вроде?

http://dev.mysql.com/doc/refman/5.5/...nction_curdate

[Serge_Bliznykov]

zQuery1.Params.ParamByName('date1').Value:=d1;
zQuery1.Params.ParamByName('date2').Value:=d2;

в строке запроса должны быть параметры

:date1 
:date2

иначе ничего не выйдет.