Actividad pública reciente
Ha valorado "Buena" la respuesta
VBenviar un mensaje desde una PC a otra en una lan
El tipo de aplicación que me comentas lo puedes localizar fácilmente en la siguiente página: http://www.planetsourcecode.com Existen varias aplicaciones completas que tratan el tema y tienes toda la programación para poder usarla como modelo o...
Ha valorado "Excelente" la respuesta
Escanear imágenes desde Scaner con visual basic 6
Te envío un comprimido con los fichero que te hacen falta. Copia los ficheros en c:\windows\system32 y ejecuta desde una línea de comandos 'registrar.bat' para registrar los componentes. Una vez registrados los ocx, añade el componente a tu proyecto....
Ha valorado "Excelente" la respuesta
Como guardar imagenes en sqlserver2000 desd VB6
Puedes usar dos formas, el getchunck y el STREAM del ADO, los dos funcionan bien, pero el STREAM me gusta más, en un correo enviado a tu dirección te llegará un archivo zip correspondiente a un ejemplo con getchunck, te recomiendo que revises la...
Experiencia
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 interesa....
sqlstring = "Select * from pdc0510 " & _
" where imagen = 3?
Set sqlresX.ActiveConnection = sqlcon1
sqlresX.Open sqlstring, sqlcon1, adOpenKeyset, adLockOptimistic ', adCmdTable
If sqlresX.EOF Then
sqlresX.AddNew
sqlresX!No_Imegen = txt_Numfactura.Text
End If
'Abrimos el fichero para poder subirlo
lnNumero = FreeFile
Open img_ruta For Binary Access Read As lnNumero
'El fichero hay que partirlo en trozos....
fl = LOF(lnNumero) ' Longitud de los datos en el archivo
If fl = 0 Then
Close lnNumero:
Exit Sub
End If
Chunks = fl 16384
Fragment = fl Mod 16384
'limpiamos el campo por si acaso...
sqlresX!img_factura.AppendChunk Null
ReDim varChunk(Fragment)
'Tomo un trozo del tamaño necesario
Get lnNumero, , varChunk()
sqlresX!img_factura.AppendChunk varChunk()
ReDim varChunk(16384)
'y ahora los trozos que quedan todos igualitos ...
For i = 1 To Chunks
Get lnNumero, , varChunk()
sqlresX!img_factura.AppendChunk varChunk()
Next i
Close lnNumero
'Se actualiza el registro, cerramos el recordset y listo.....
sqlresX.Update
sqlresX.Close
'Actualizando el numero de factura en (No_factura) pdc0501
sqlcon1.Execute (sqlstring2)
End If
End Sub