
05/04/2005, 12:59
|
 | Colaborador | | Fecha de Ingreso: diciembre-2003 Ubicación: Antigua Guatemala
Mensajes: 4.032
Antigüedad: 21 años, 4 meses Puntos: 53 | |
mira aqui hay un ejemplo prar mysql que bien lo podes implementar para SQLserver
Código:
Private Sub Guardar_Deposito_Imagen()
On Local Error Resume Next
Dim Lectura As String
Dim Fecha As String
Dim Rs As New ADODB.Recordset
'Guardamos la imagen para cargarla al stream
mystream.Type = adTypeBinary
' Abrir conexion
Rs.Open "SELECT `images`.`no_deposito`, `images`.`imagen` FROM `images` LIMIT 1,10", Cxn2, adOpenKeyset, adLockOptimistic
'Agregar Imagen a la DB con no. de Deposito
Rs.AddNew
mystream.Open
mystream.LoadFromFile App.Path & "\cxc.jpg"
Rs("no_deposito") = Val(TXTNoDeposito.Text)
Rs("imagen") = mystream.Read
Rs.Update
mystream.Close ' Cerrar Stream
Rs.Close
If Err = 3219 Then
MsgBox "Usted ha intruducido un registro dos veces en la misma facura", vbExclamation, "Error"
Exit Sub
End If
If Err <> 0 Then
Err = 0
MsgBox "Ha habido un error al guardar los datos, el programa seguira intentando guardarlos ", vbInformation, "Error"
Guardar_Deposito_Imagen
End If
End Sub
nos vmeos..
__________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila |