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

← →
Виктор1985 (2006-12-01 15:20) [0]

Как мне добавить новую запись в таблице CustomerData.TableNews : TADOTable

Только без заморочек, а простым запросом, наподобие как в MySQL INSERT... и т.п.?

← →
MsGuns © (2006-12-01 15:39) [1]

with TADOCommand.Create(nil) do
try
Connection := ADOTable1.Connection;
CommandText := "INSERT INTO TABLE (P1,P2,...) VALUES(:p1,:p2,..)";
Parameters.ParamByName("p1") .Value := Edit1.Text;
Parameters.ParamByName("p2") .Value := StrToDate(Edit2.Text);
...
Execute;
finally
Free;
end;
ADOTable1.ReQuery;

← →
Виктор1985 (2006-12-01 16:55) [2]

Неполучается. Выдает:
Project Projectl.exe raised exception class EOleException with message "Ошибка синтаксиса в инструкции INSERT INTO". Process stopped. Use Step or Run to continue.

procedure TForm1.Button1Click(Sender: TObject); begin with CustomerData.TADOCommand.Create(nil) do try Connection := CustomerData.TableNews.Connection; CommandText := "INSERT INTO news (id, date, new, title, prewiew, full, link, id_cat, id_proj) VALUES(:p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9)"; Parameters.ParamByName("p1").Value := 0; Parameters.ParamByName("p2").Value := "10.11.1980"; Parameters.ParamByName("p3").Value := true; Parameters.ParamByName("p4").Value := "Тесть новости"; Parameters.ParamByName("p5").Value := "Преьюшка"; Parameters.ParamByName("p6").Value := "Полнотекст"; Parameters.ParamByName("p7").Value := "http://test.ru"; Parameters.ParamByName("p8").Value := 0; Parameters.ParamByName("p9").Value := 0; Execute; finally Free; end; CustomerData.TableNews.ReQuery; end;

← →
Max Zyuzin © (2006-12-01 17:33) [3]

Поле date у тебя какого типа? Строка что лИ?

← →
Виктор1985 (2006-12-01 17:52) [4]

Нет, Дата/Время

← →
Desdechado © (2006-12-01 17:55) [5]

date - зарезервированное слово

← →
Savek (2006-12-01 18:00) [6]

Поле Date надо в квадратные скобки

← →
sniknik © (2006-12-01 18:02) [7]

> Нет, Дата/Время
так и передавай туда тип датавремя, нафига строку пихаешь?

ну и проверь слова date, new, title ... да все можеш, на предмет зарезервированности в jet, заререзервированные/нестандартные используются в скобках [].

← →
Виктор1985 (2006-12-01 18:33) [8]

Уф, разобрался =) Занес все включая date в квадратные скобки, и дату вставил типа TDateTime

Остался вопрос, в поле id если в него написать 0 оно не автоинкриментируется как в MySQL

Как быть здесь?

← →
Desdechado © (2006-12-01 18:42) [9]

Поле -то какого типа?

← →
Виктор1985 (2006-12-01 19:07) [10]

Счетчик Ключевое

где же оно не инкрементируется?

> Счетчик Ключевое
убери его из запроса, оно же автоинкремент а ты ему значение присваиваешь.

← →
Виктор1985 (2006-12-02 12:14) [13]

Спасибо!

Добавись запись в талицу Acess Найти похожие ветки