sql-server - 无法将空字符串传递到非空数据库字段

Question

我被一些本来应该非常简单的事情难住了。我有一个 SQL Server 数据库，并且正在尝试使用空字符串更新不可为 null 的 varchar 或 nvarchar 字段。我知道这是可能的，因为空字符串 '' 与 NULL 不同。但是，使用TADOQuery，它不允许我这样做。

我正在尝试像这样更新现有记录:

ADOQuery1.Edit;
ADOQuery1['NonNullFieldName']:= '';
//or
ADOQuery1.FieldByName('NonNullFieldName').AsString:= '';
ADOQuery1.Post; //<-- Exception raised while posting

如果字符串中有任何内容，即使只是一个空格，它也会像预期的那样保存得很好。但是，如果它是空字符串，则会失败:

Non-nullable column cannot be updated to Null.

但它不为空。它是一个空字符串，应该可以正常工作。我发誓我过去已经多次传递空字符串了。

为什么我会收到此错误，我应该如何解决它？

<小时/>

其他详细信息:

• 数据库:Microsoft SQL Server 2014 Express
• 语言:Delphi 10 西雅图更新 1
• 数据库驱动程序:SQLOLEDB.1
• 正在更新的字段:nvarchar(MAX) NOT NULL

Answer 1

我可以使用下面的代码和 SS2014、OLEDB 驱动程序和西雅图以及使用 MAX 作为列大小和特定数字(在我的例子中为 4096)创建表时的行为差异。我想我会发布这个作为替代方案答案，因为它不仅展示了如何系统地研究这种差异但也确定了为什么会出现这种差异(以及如何在将来避免这种差异)。

请引用并执行下面的代码，即使用 UseMAX 定义活跃。

在执行代码之前立即在项目选项中打开“使用调试 DCU”显示所描述的异常发生在 Data.Win.ADODB 的第 4920 行

Recordset.Fields[TField(FModifiedFields[I]).FieldNo-1].Value := Data

TCustomADODataSet.InternalPost 和调试评估窗口显示此时的Data为Null。

接下来，请注意

update jdtest set NonNullFieldName = ''

在 SSMS2014 查询窗口中执行，没有任何提示(命令成功完成。)，因此看起来事实上，第 4920 行的 Data 为 Null 才是导致问题的原因，下一个问题是“为什么？”

嗯，首先要注意的是表单的标题显示 ftMemo

接下来，注释掉UseMAX定义，重新编译并执行。结果:无异常请注意，表单的标题现在显示 ftString。

这就是原因:使用特定数字作为列大小意味着RTL 检索的表元数据导致创建客户端 Field作为 TStringField，您可以通过字符串赋值语句设置其值。

OTOH，当您指定 MAX 时，生成的客户端 Field 类型为 ftMemo，这是 Delphi 的 BLOB 类型之一，当您分配时将字符串值写入 ftMemo 字段时，您将受到 Data.DB.Pas 中代码的支配，它使用 TBlobStream 执行对记录缓冲区的所有读取(和写入)操作。问题是，据我所知，经过大量实验和跟踪代码，TMemoField 使用 BlobStream 的方式无法正确区分将字段内容更新为 '' 和将字段的值设置为 Null(如 System.Variants)。

简而言之，每当您尝试将 TMemoField 的值设置为空字符串时，实际发生的情况是该字段的状态设置为 Null，这就是导致 q 中出现异常的原因。 AFAICS，这是不可避免的，所以无论如何对我来说没有明显的解决方法。

我还没有调查 ftMemo 和 ftString 之间的选择是由 Delphi RTL 代码还是它所在的 MDAC(Ado) 层做出的:我希望如此实际上是由 TAdoQuery 使用的 RecordSet 决定的。

QED。请注意，这种系统的调试方法揭示了问题和原因只需很少的努力和零尝试和错误，这是我在对 q 的评论中试图提出什么建议。

另一点是，这个问题完全可以在没有求助于服务器端工具，包括 SMSS 分析器。不需要使用探查器来检查客户端发送到服务器的内容因为没有理由假设服务器返回的错误是不正确的。这证实了我所说的从客户端开始调查的说法。

此外，通过使用 IfDefed Sql 即时创建的表，可以通过简单观察应用程序的两次运行，一步有效地隔离问题。

代码

uses [...] TypInfo;
[...]
implementation[...]

const
   //  The following consts are to create the table and insert a single row
   //
   //  The difference between them is that scSqlSetUp1 specifies
   //  the size of the NonNullFieldName to 'MAX' whereas scSqlSetUp2 specifies a size of 4096

   scSqlSetUp1 =
  'CREATE TABLE [dbo].[JDTest]('#13#10
   + '  [ID] [int] NOT NULL primary key,'#13#10
   + '  [NonNullFieldName] VarChar(MAX) NOT NULL'#13#10
   + ') ON [PRIMARY]'#13#10
   + ';'#13#10
   + 'Insert JDTest (ID, [NonNullFieldName]) values (1, ''a'')'#13#10
   + ';'#13#10
   + 'SET ANSI_PADDING OFF'#13#10
   + ';';

   scSqlSetUp2 =
  'CREATE TABLE [dbo].[JDTest]('#13#10
   + '  [ID] [int] NOT NULL primary key,'#13#10
   + '  [NonNullFieldName] VarChar(4096) NOT NULL'#13#10
   + ') ON [PRIMARY]'#13#10
   + ';'#13#10
   + 'Insert JDTest (ID, [NonNullFieldName]) values (1, ''a'')'#13#10
   + ';'#13#10
   + 'SET ANSI_PADDING OFF'#13#10
   + ';';

   scSqlDropTable = 'drop table [dbo].[jdtest]';

procedure TForm1.Test1;
var
  AField : TField;
  S : String;
begin

//  Following creates the table.  The define determines the size of the NonNullFieldName

{$define UseMAX}
{$ifdef UseMAX}
  S := scSqlSetUp1;
{$else}
  S := scSqlSetUp2;
{$endif}

  ADOConnection1.Execute(S);
  try
    ADOQuery1.Open;
    try
      ADOQuery1.Edit;

      // Get explicit reference to the NonNullFieldName
      //  field to make working with it and investigating it easier

      AField := ADOQuery1.FieldByName('NonNullFieldName');

      //  The following, which requires the `TypInfo` unit in the `USES` list is to find out which exact type
      //  AField is.  Answer:  ftMemo, or ftString, depending on UseMAX.  
      //  Of course, we could get this info by inspection in the IDE
      //  by creating persistent fields

      S := GetEnumName(TypeInfo(TFieldType), Ord(AField.DataType));
      Caption := S;  // Displays `ftMemo` or `ftString`, of course

      AField.AsString:= '';
      ADOQuery1.Post; //<-- Exception raised while posting
    finally
      ADOQuery1.Close;
    end;
  finally
    //  Tidy up
    ADOConnection1.Execute(scSqlDropTable);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test1;
end;