我如何获取一个TDataset来存储空字符串而不是null？

Question

我的数据库中有一个必填字段（NOT NULL），但允许使用空字符串。

我如何获得一个delphi TDataset来使用它？ 将字段对象的required属性设置为true或false时，它似乎仍试图存储null而不是空字符串。

有关信息，请使用TIBDataset和TIBStringField。

Answer 1

通常，您可以像这样在OnBeforePost设置值：

if IBDataSet1.FieldByName('OPTION_TEXT').IsNull then
begin
  IBDataset1.FieldByName('OPTION_TEXT').Value = '';
end;

但是，TIBStringField具有未发布的属性EmptyAsNull ，您必须将其设置为False 。 默认值为True 。 启用此功能后，数据集将帮您一个忙，并将空字符串转换为NULL ：

您可以这样关闭它：

if IBDataSet1.FieldByName('OPTION_TEXT').IsNull then
begin
  TIBStringField(IBDataset1.FieldByName('OPTION_TEXT')).EmptyAsNull := False;
  IBDataset1.FieldByName('OPTION_TEXT').Value = '';
end;

另外，如果您使用的是静态（设计时）字段，或者在任何创建字段的位置，都可以在窗体的OnCreate的字符串字段上设置EmptyAsNull属性。

Answer 2

TField具有默认值的属性，但它是字符串，不幸的是，空字符串表示没有默认值，因此对您的情况没有帮助。 但是您可以从数据集中捕获OnBeforePost事件并检查是否字段为NULL，然后使用空字符串进行设置。