delphi - OleDB:无法绑定(bind) DBTYPE_WSTR 参数 - 出现 DB_E_UNSUPPORTEDCONVERSION 错误

Question

这是开源库的上下文:

• 我直接从非托管代码 (Delphi) 调用 OleDB 库；
• 我通过创建 IAccessor 到 ICommandText OleDB 实例来绑定(bind)参数；
• 我对 DBTYPE_I8 或 DBTYPE_DATE 等简单类型没有任何问题；
• 我想将文本参数绑定(bind)为 DBTYPE_WSTR 类型，即始终为 Unicode。

问题是，对于 DBTYPE_WSTR 类型，当 Command.Execute 时，我收到 OLEDB 错误 80040E1D (DB_E_UNSUPPORTEDCONVERSION) 错误“不支持请求的转换” > 被调用。

当然，我尝试过使用或不使用 DBTYPE_BYREF 数据布局(即在下面的代码中设置 FIELDTYPE2OLEDB[ftUTF8]=DBTYPE_WSTR 或 DBTYPE_BYREF ，并更改布局) :同样的问题...它适用于 DBTYPE_WSTR，但不适用于 DBTYPE_STR。

但是，如果我将参数类型从 DBTYPE_WSTR 更改为 DBTYPE_STR (即在下面的代码中设置 FIELDTYPE2OLEDB[ftUTF8]=DBTYPE_STR 或 DBTYPE_BYREF) ，命令执行没有任何问题。但我想使用 DBTYPE_WSTR wType 来代替，以确保不会因为当前的 Ansi 字符集而丢失任何字符。

事实上，我可以像 DBTYPE_WSTR 一样毫无问题地检索任何 IRowSet 数据，但我无法使用 DBTYPE_WSTR 绑定(bind)参数值.

我已连接到 Microsoft SQL Server 2008 R2 实例。该代码可以在 SQL 请求中不带参数的情况下工作，或者使用 int 或浮点参数，但不能使用 TEXT 参数。

这是主要示例代码:

Query.Execute('select * from Person.Address where AddressLine1 like ?;',true,['% Drive']);

AddressLine1 列在 AdventureWorks2008R2 引用示例数据库中定义为 nvarchar(60)，因此它应该根据 official MSDN documentation 使用 DBTYPE_WSTR 进行映射.

相应单元的完整源代码可从our source code repository获取。代码位于 TOleDBStatement.Execute 方法中，如下所示:

const
  PARAMTYPE2OLEDB: array[TSQLDBParamInOutType] of DBPARAMIO = (
    DBPARAMIO_INPUT, DBPARAMIO_OUTPUT, DBPARAMIO_INPUT or DBPARAMIO_OUTPUT);
  FIELDTYPE2OLEDB: array[TSQLDBFieldType] of DBTYPE = (
    DBTYPE_EMPTY, DBTYPE_NULL, DBTYPE_I8, DBTYPE_R8, DBTYPE_CY, DBTYPE_DATE,
    DBTYPE_WSTR or DBTYPE_BYREF, DBTYPE_BYTES or DBTYPE_BYREF);

  (...)
  OleDBCheck((fSession as IDBCreateCommand).
    CreateCommand(nil,IID_ICommandText,ICommand(fCommand)));
  fCommand.SetCommandText(DBGUID_DEFAULT,pointer(Utf8DecodeToRawUnicodeUI(aSQL)));
  P := pointer(fParams);
  SetLength(fParamBindings,fParamCount);
  B := pointer(fParamBindings);
  for i := 1 to fParamCount do begin
    B^.iOrdinal := i; // parameter index (starting at 1)
    B^.eParamIO := PARAMTYPE2OLEDB[P^.VInOut]; // parameter direction
    B^.wType := FIELDTYPE2OLEDB[P^.VType];     // parameter data type
    // set additional fields
    case P^.VType of
    ftInt64, ftDouble, ftCurrency, ftDate: begin
      // those types match the VInt64 binary representation :)
      B^.cbMaxLen := sizeof(Int64);
      B^.dwPart := DBPART_VALUE;
      B^.obValue := PAnsiChar(@P^.VInt64)-pointer(fParams);
    end;
    ftUTF8, ftBlob: begin
      // sent as DBTYPE_BYREF mapping directly the VRawByteString content
      B^.dwPart := DBPART_VALUE or DBPART_LENGTH or DBPART_STATUS;
      B^.obValue := PAnsiChar(@P^.VRawByteString)-pointer(fParams);
      B^.cbMaxLen := sizeof(Pointer);
      Len := length(P^.VRawByteString);
      if P^.VType=ftUTF8 then
        Len := Len shr 1; // expect length in WideChar count, excluding #0 
      P^.VInt64 := Len; // store length in unused VInt64 property
      B^.obLength := PAnsiChar(@P^.VInt64)-pointer(fParams);
      B^.obStatus := B^.obLength+4;
    end;
    end;
    inc(P);
    inc(B);
  end;
  OleDBConnection.OleDBCheck((fCommand as IAccessor).CreateAccessor(
    DBACCESSOR_PARAMETERDATA,fParamCount,Pointer(fParamBindings),0,
    fDBParams.HACCESSOR,nil));
 OleDBConnection.OleDBCheck(fCommand.Execute(
    nil,IID_IRowset,fDBParams,nil,@fRowSet),ParamsStatus);

因此我的问题是:

如何为 nvarchar() 列绑定(bind) B^.wType=DBTYPE_WSTR 参数，而不会在 fCommand.Execute< 中出现 DB_E_UNSUPPORTEDCONVERSION 错误。

我怀疑需要为 ISession 或 ICommand 实例设置一些属性，或者设置一些标志/选项，但我无法找到其中的哪一个MSDN 文档。欢迎任何帮助!

Answer 1

好吧...又过了几个小时，我想我已经找到了。

据我所知，问题不在我的代码中，而是在 Microsoft 的 Microsoft SQL Server OleDB 提供程序中。正如官方文档所述，使用 DBTYPE_WSTR 是行不通的。我不是说MS写了bug，但我确实是confused by the documentation ，在同一行明确指出:nvarchar DBTYPE_WSTR。

我刚刚终于尝试使用 DBTYPE_BSTR，使用 Ole WideString...并且它按预期工作!

我只是猜测 Microsoft 和大多数 OleDB 使用者只是使用 DBTYPE_BSTR。

这里是some working code :

    ftUTF8: begin
      // mapping directly the WideString VText content
      B^.wType := DBTYPE_BSTR; // DBTYPE_WSTR just doesn't work :(
      B^.obValue := PAnsiChar(@P^.VText)-pointer(fParams);
      B^.cbMaxLen := sizeof(Pointer);
    end;

WideString 的优点在于，如果有输出或输入/输出参数(调用存储过程时)，提供程序可以调整它的大小。