Hola foreros,
tengo un problema urgente, a ver si me pueden ayudar.
Cita: pathzip = "C:\TEMP\Project1.exe"
frmtOriginal = 2
SourceFile = FreeFile
Open pathzip For Binary Access Read As SourceFile
FileLength = LOF(SourceFile)
'MsgBox "Despues de leer el zip: " & pathZip
If FileLength = 0 Then
Close SourceFile
MsgBox pathzip & " vacío o No Existe."
Exit Function
Else
sql = "SELECT FICHERO,LONGITUD FROM TABLA WHERE ID = 259656"
Set rs = New ADODB.Recordset
rs.ActiveConnection = "Provider=MSDASQL;Password=***;User ID=***;Data Source=**********"
rs.Open sql, , adOpenDynamic, adLockOptimistic
' Set rs = objADO.GetData(sql)
If Not rs.EOF Then
rs.Fields("LONGITUD").Value = FileLength
Numblocks = FileLength / BlockSize
LeftOver = FileLength Mod BlockSize
'MsgBox "Antes trocear el blob"
ReDim DataBlob(LeftOver)
Get SourceFile, , DataBlob()
rs("FICHERO").AppendChunk DataBlob()
ReDim DataBlob(BlockSize)
For i = 1 To Numblocks
Get SourceFile, , DataBlob()
rs("FICHERO").AppendChunk DataBlob()
Next i
'MsgBox "Despues del for"
'MsgBox "Antes del update " & CStr(FileLength)
rs.Update ' AQUI FALLA <<<<<<<<<<<<<<<<<<<<<<<<<<<
'MsgBox "Despues del update"
End If
rs.Close
Set rs = Nothing
Close SourceFile
End If
El error me da en el update, y no se muy bien por que da. En entorno de compilación con el Visual funciona, en el entorno del cliente no tiene visual falla.
Un saludo y gracias.