Вставка команды работает в MS с Oracle Linked Server, но не в Visual Basic 6

Question

Когда я запускаю команду вставки SQL, которая получает изображение и другие данные из таблицы на сервере Oracle Linked Server, вставляя его на 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.

Вы можете помочь?

EDIT: (добавлены подробности)

Соединение нормально ... им довольно уверен. Кроме того, нет ошибки при выполнении команды SQL или подключения к базе данных: Everythings отлично работает, за исключением этого изображения .., который не вставлен в базу данных назначения. Все поля ohter вставлены без проблем. Все поля находятся в одной таблице.

Код 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

Это может быть не точный ответ, но я не знаю, как показать код форматирования в комментарии. У вас есть ReDim Preserve aSQL(UBound(aSQL) + 1) после aSQL(UBound(aSQL)) = SQL_InsertColab. Звучит странно, но, вероятно, это правильно по вашей логике. Теперь после этого вы выполняете массив sqlstatement в цикле for. Таким образом, последний элемент массива, который все еще пуст, запускается в цикле 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