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

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

Как добавить запись с пустыми полями? [Acces]

sdram ©   (2002-08-08 16:29:00) 

При добавлении записи с помощью TADOCommand ругается, на то что JET не может добавить пустые поля, хотя в привязанном TDBGrid незаполненные поля добавляются без проблем.
Добавить нужно обязательно с помощью TADOCommand.

---

sdram   (2002-08-08 17:18:00) [1]

Спасибо, помогло.

---

SaS13   (2002-08-08 17:08:00) [2]

При передаче в Access, если идет пустая строка, то лучше NULL передавать, напиши что-то типа своей функции, и на входе проверяй на пустую строку, например:
fGen.cmdSql.CommandText := "INSERT INTO p_Display (uid, Name) VALUES (" + inttostr(j) + ", " + CheckOnNull( Cstr ) + ");"

function CheckOnNull( const cStr: string ): string;
begin
if cStr = EmptyStr then
Result := "NULL"
else
Result := """" + cStr + """" )
end;

---

sdram   (2002-08-08 17:02:00) [3]

В упрощенном виде
var
str:string
begin
str := "";
fGen.cmdSql.CommandText := "INSERT INTO p_Display (uid, Name) VALUES (" + inttostr(j) + ", "" + str + "");"
fGen.cmdSql.Execute;

end;

---

SaS13   (2002-08-08 16:52:00) [4]

покажи сторку добавления записи

---

Наверх