Imagenes

Debes usar un objeto ADO Stream. Este articulo puede serte de utilidad:

http://msdn.microsoft.com/library/d...l/blob.asp

Este es parte del código del artículo:

Private Sub ImportBLOB(cn As ADODB.Connection)

Dim rs As New ADODB.Recordset
Dim stm As ADODB.Stream

Set stm = New ADODB.Stream

'Skip any table-not-found errors.
On Error Resume Next
cn.Execute "drop table BinaryObject"

On Error GoTo 0
'Create the BinaryObject table.
cn.Execute "create table BinaryObject " & _
"(blob_id int IDENTITY(1,1), " & _
"blob_filename varchar(256), " & _
"blob_object image)"

rs.Open "Select * from BinaryObject Where 1=2", cn, adOpenKeyset,
adLockOptimistic
'Read the binary files from disk.
stm.Type = adTypeBinary
stm.Open
stm.LoadFromFile App.Path & "\BLOBsample.jpg"

rs.AddNew
rs!blob_filename = App.Path & "\BLOBsample.jpg"
rs!blob_object = stm.Read

'Insert the binary object into the table.
rs.Update

rs.Close
stm.Close

Set rs = Nothing
Set stm = Nothing

lblResults.Visible = True

End Sub


Gustavo Larriera, MSFT MVP-SQL
Uruguay LatAm

This message is provided "AS IS" with no warranties expressed or implied,
and confers no rights.


"Dante" wrote in message
news:04c401c371b6$22aa5280$

HOla , un favor me puede decir con q tipo de dato debo
declarar mi parametro en vbasic, para grabar en un campo
image.. o de q otra forma puedo realizarso si usar la idea
de guardar la ruta..
Gracias