插入命令适用于 MS 与 Oracle 链接服务器，但不适用于 Visual Basic 6

Question

当我运行 SQL 插入命令从 Oracle 链接服务器中的表中获取图像和其他数据并将其插入 SQL 服务器时，它可以工作。当我在 Visual Basic 6 程序中运行完全相同的查询时，插入也可以工作，但没有插入图像。

链接服务器部分正在工作，因为我可以成功进行多个查询。

我正在运行的插入是下面的插入。请注意，在这两种情况下，插入都不会引发错误；他们在 VB 和 Management Studio 中工作，但是，当通过 VB 运行时，只是图像没有出现。

INSERT INTO Employees
 (
   PhotoEmployee,
   TheID,
   Name
 )
 VALUES
 (
   (Select FOTO_Humanus From OPENQUERY(ORACLE_LinkedServer, 'Select FOTO.pesFoto FOTO_Humanus FROM Pessoa_Foto1 FOTO WHERE FOTO.pesCodPessoa = 32892')),
   '900397',
   'MARCELO ROCHA'
 )

我搜索了很多，但找不到有类似问题的人。

接收图像的 SQL-Server 字段来自 IMAGE 类型。

在 Oracle 中，图像存储在 LONG RAW 类型的字段中。

你能帮忙吗？

编辑：（添加更多细节）

连接正常...我很确定。此外，当我执行 SQL 命令或连接到数据库时没有错误：一切工作正常，除了这个图像.. 没有插入到目标数据库中。所有其他字段都插入没有问题。所有字段都在同一个表中。

我正在使用的 Visual Basic 6 代码如下。

1 - O 使用我需要的确切查询填充数组

2 - 不久之后，我在这个数组中进行迭代，执行 SQL 查询。

这是VB代码：

SQLOracleTemp = "Select FOTO.pesFoto FOTO_Humanus FROM Pessoa_Foto1 FOTO WHERE FOTO.pesCodPessoa = 32892"

NomeLinkedServer = "ORACLE_LinkedServer"

SQL_InsertColab = "INSERT INTO Employees" & vbCrLf
SQL_InsertColab = SQL_InsertColab & " (" & vbCrLf
SQL_InsertColab = SQL_InsertColab & "   funFotoColaborador," & vbCrLf
SQL_InsertColab = SQL_InsertColab & "   TheID," & vbCrLf
SQL_InsertColab = SQL_InsertColab & "   Name" & vbCrLf
SQL_InsertColab = SQL_InsertColab & " )" & vbCrLf
SQL_InsertColab = SQL_InsertColab & " VALUES" & vbCrLf
SQL_InsertColab = SQL_InsertColab & " (" & vbCrLf


SQL_InsertColab = SQL_InsertColab & "   (Select FOTO_Humanus From OPENQUERY(" & NomeLinkedServer & ", '" & SQLOracleTemp & "'))," & vbCrLf

SQL_InsertColab = SQL_InsertColab & "   " & aColabs_Insert(UBound(aColabs_Insert)).IDOAS & "," & vbCrLf
SQL_InsertColab = SQL_InsertColab & "   " & aColabs_Insert(UBound(aColabs_Insert)).Nome & vbCrLf
SQL_InsertColab = SQL_InsertColab & " )" & vbCrLf

aSQL(UBound(aSQL)) = SQL_InsertColab
ReDim Preserve aSQL(UBound(aSQL) + 1)



For ContaSQL = 0 To UBound(aSQL)

    if aSQL(ContaSQL) <> "" then
        gConexao_Banco.Execute aSQL(ContaSQL)
    enf if

Next

Answer 1

这可能不是确切的答案，但我不知道如何在评论中显示代码格式。 在aSQL(UBound(aSQL)) = SQL_InsertColab 之后有ReDim Preserve aSQL(UBound(aSQL) + 1)。听起来很奇怪，但根据您的逻辑，这可能是正确的。现在，在此之后，您在 for 循环中执行一个 sqlstatement 数组。因此，数组中仍然为空的最后一项在 for 循环中执行，显然它失败了。无论如何尝试下面。在循环中最后一个数组项不执行。检查您的方案并进行相应更新。

For ContaSQL = 0 To UBound(aSQL)-1
    gConexao_Banco.Errors.Clear
    gConexao_Banco.Execute aSQL(ContaSQL)
    If gConexao_Banco.Errors.Count > 0 Then
        For i = 0 To gConexao_Banco.Errors.Count
            Debug.Print gConexao_Banco.Error(i).Number 
            Debug.Print gConexao_Banco.Error(i).Source 
            Debug.Print gConexao_Banco.Error(i).Description
        Next i
    End If
Next