Добавить запись в таблицу

Delphi + MySql / Пытаюсь через запрос добавить запись в таблицу, но выходит ошибка

вот структура таблицы
mysql> use reestrnew;
Database changed
mysql> describe reestrnew;
+--------------+---------------+------+-----+---------+----------------+
| Field | Type | Null | Key | Default | Extra |
+--------------+---------------+------+-----+---------+----------------+
| id | int(10) | NO | PRI | NULL | auto_increment |
| SNILS | char(14) | YES | | NULL | |
| FIO | char(70) | YES | | NULL | |
| datr | date | YES | | NULL | |
| vidperer | char(30) | YES | | NULL | |
| sposob | char(20) | YES | | NULL | |
| vidvipl | char(15) | YES | | NULL | |
| starsum | decimal(20,2) | YES | | NULL | |
| newsum | decimal(20,2) | YES | | NULL | |
| dopl | decimal(20,2) | YES | | NULL | |
| kviplate | decimal(20,2) | YES | | NULL | |
| dataizmensum | date | YES | | NULL | |
| datazapoln | date | YES | | NULL | |
| timezapoln | time | YES | | NULL | |
| polzovatel | char(30) | YES | | NULL | |
+--------------+---------------+------+-----+---------+----------------+
15 rows in set (0.01 sec)

Миниатюры

 

0

для INSERT нужно делать Query.Execute

если запрос что-то возвращает - то Active\Open\OpenOrExecute
если нет - то ExecSQL\Execute\OpenOrExecute

Добавлено через 34 секунды
ну и разумеется проверить запрос в какой-нибудь программе )

0

0

qwertehok, не совсем понял, можно поподробнее?

0

Ты во-первых вторым присвоением (AdoQuery1.Sql.Text :=) затираешь первое, а во-вторых пытаешься набор открыть а не выполнить. Делай так
P.S. И еще меня смущает то, что строки оковычиваются двойными ковычками а не одинарными, хотя не исключаю что мускул допускает такое.

0

Hikari, Спасибо, сейчас попробую, а на счет ковычек так надо, апостроф выдает ошибку.

Я раньше просто с эксесом работал, а тут раз и mysql.

0

Сообщение от Hikari Ты во-первых вторым присвоением (AdoQuery1.Sql.Text :=) затираешь первое, а во-вторых пытаешься набор открыть а не выполнить. Делай так DelphiВыделить код procedure TForm1.Button2Click(Sender: TObject); begin Wuth AdoQuery1 do begin *Close; *Sql.Text := 'INSERT INTO reestrnew (snils, fio, vidperer, sposob) '; *Sql.Append('VALUES ("094-865-695 12", "Иванов Иван Иванович", "индексация", "почта");') *If ExecSQL<>1 then ShowMessage('Не добавлено'); END; end. P.S. И еще меня смущает то, что строки оковычиваются двойными ковычками а не одинарными, хотя не исключаю что мускул допускает такое.

теперь вот такая ошибка на этот код

Миниатюры

 

0

Сообщение от Programmer1993 теперь вот такая ошибка на этот код

Скорее всего, вместо кавычек таки нужен задвоенный апостроф. А еще лучше использовать параметры для передачи литералов, там Delphi с кавычками сам разберется.

0

Сообщение от Programmer1993 теперь вот такая ошибка на этот код

Изучи параметризацию запроса в Делфи и не мучайся с ковычками.

0

Сообщение от Hikari Delphi 1 2 Sql.Text := 'INSERT INTO reestrnew (snils, fio, vidperer, sposob) '; *Sql.Append('VALUES ("094-865-695 12", "Иванов Иван Иванович", "индексация", "почта");')

оно конечно лучше предыдущего, но имхо еще лучше

0