| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Виктор1985 ©   (2006-12-01 15:20:00) 

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

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

---

Виктор1985   (2006-12-02 12:14:00) [1]

Спасибо!

---

sniknik   (2006-12-01 21:13:00) [2]

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

---

Desdechado   (2006-12-01 19:11:00) [3]

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

---

Виктор1985   (2006-12-01 19:07:00) [4]

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

---

Desdechado   (2006-12-01 18:42:00) [5]

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

---

Виктор1985   (2006-12-01 18:33:00) [6]

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

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

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

---

sniknik   (2006-12-01 18:02:00) [7]

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

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

---

Savek   (2006-12-01 18:00:00) [8]

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

---

Desdechado   (2006-12-01 17:55:00) [9]

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

---

Виктор1985   (2006-12-01 17:52:00) [10]

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

---

Max Zyuzin   (2006-12-01 17:33:00) [11]

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

---

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

Неполучается. Выдает:
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;

---

MsGuns   (2006-12-01 15:39:00) [13]

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;

---

Наверх