alcozam

Sub Guardar_imagen_sqlserver(img_ruta As String) Dim sqlresX As New Recordset Dim lnNumero Dim fl As Long, i As Long Dim Fragment As Long Dim Chunks Dim varChunk() As Byte If Not sqlcon1 Is Nothing Then 'Abrimos la información en el registro que nos