Sub Copiar_Local_a_MySQL
Dim GetImagen() As Byte
Dim NombreImagen As String
Dim SU As StringUtils
Dim ImagenCod As Int
CURSOR1=SQL1.ExecQuery("SELECT * FROM Imagen")
For i =0 To CURSOR1.ColumnCount -1
CURSOR1.Position = i
NombreImagen=CURSOR1.GetString("OCR_I")
GetImagen=CURSOR1.GetBlob("FotoEvidnc")
ImagenCod=SU.EncodeBase64(GetImagen)
ExecuteRemoteQuery("INSERT INTO evidenciaext(ORC_I, FotoEvidencia) VALUES ('"& NombreImagen &"', '"& ImagenCod &"')",LISTA_INSPECCION)
Next
End Sub