delphi - 我如何获取一个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;

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