在orale中保存文件~遇到问题

Question

Dim strCFGCnn As String
    strCFGCnn = "Provider=OraOLEDB.Oracle.1;User ID=" & g_UserName & ";PassWord=" & g_PassWord & ";Data Source=" & g_DataBase & ";Persist Security Info=False"g_adoOraCnn.Open(strCFGCnn)
  
Dim adoRec As New ADODB.RecordsetadoRec.Open("select * from 表1 ", g_adoOraCnn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)adoRec.AddNew()sFilePath="d:\aaa.txt"Dim U_File As New IO.FileStream(sFilePath, IO.FileMode.Open) '载入文件流Dim U_b(U_File.Length - 1) As Byte '定义文件大小的字节数组U_File.Read(U_b, 0, U_File.Length) '写入数组adoRec.Fields("预案").AppendChunk(U_b)然后就报错  ROW-00060:内部错误:[daputchunk,2]

Answer 1

你先不要写到文件aaa.txt中, 先在VB中,循环显示adoRec.Fields("预案")看看, 会不会出错?可能是adoRec.Open("select * from 表1 ", g_adoOraCnn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
出的错.