SQL Server存储过程在VB6中调用丢失指定字段数据问题

• 检查存储过程的字段定义与返回逻辑
  确认ObservacionesVerificacion和FechaVerificado的数据类型：如果FechaVerificado用了datetime2等SQL Server较新类型，VB6的ADODB组件可能兼容不佳，可尝试改为datetime类型；同时排查存储过程中是否存在分支逻辑，导致VB6调用时传入的参数触发了这两个字段为空的分支（对比直接执行和VB6调用时的参数值是否完全一致）。

• 强制固定结果集元数据
  在存储过程中通过临时表明确结果集结构，避免ADODB无法正确识别字段元数据：

  SET NOCOUNT ON;
  CREATE TABLE #TempNovedades (
      FechaNovedad DATETIME,
      DetalleDescripcion VARCHAR(255),
      Estado VARCHAR(50),
      ObservacionesVerificacion TEXT,
      FechaVerificado DATETIME,
      id INT
  )
  
  INSERT INTO #TempNovedades
  -- 原存储过程的查询逻辑
  SELECT FechaNovedad, DetalleDescripcion, Estado, ObservacionesVerificacion, FechaVerificado, id 
  FROM 你的数据源表 WHERE 条件;
  
  SELECT * FROM #TempNovedades;
  DROP TABLE #TempNovedades;
  

• 调整VB6中ADODB的调用方式
  不要依赖索引读取字段，改用字段名直接读取，同时确保连接Provider版本适配：

  Dim cmd As New ADODB.Command
  Dim rs As ADODB.Recordset
  
  Set cmd.ActiveConnection = YourConnectionObject
  cmd.CommandText = "SP_L_UIF_Novedades"
  cmd.CommandType = adCmdStoredProc
  
  ' 若存储过程有参数，需手动添加参数定义，避免元数据识别错误
  ' cmd.Parameters.Append cmd.CreateParameter("@参数名", adVarChar, adParamInput, 50, 参数值)
  
  Set rs = cmd.Execute
  ' 用字段名读取，而非索引
  Debug.Print rs("ObservacionesVerificacion"), rs("FechaVerificado")
  

  同时可尝试更换OLE DB Provider，将连接字符串中的Provider=SQLOLEDB改为Provider=SQLNCLI11（需提前安装对应SQL Server Native Client驱动）。

• 开启NOCOUNT选项
  在存储过程开头添加SET NOCOUNT ON;，避免存储过程返回的行数统计结果干扰ADODB对主结果集的解析。

内容的提问来源于stack exchange，提问作者Franqo Balsamo