Buenas dias, tengo mi tabla Clientes con la siguiente estructura.

--Creo la Tabla

create table IMAGENES

(

IDCliente char(4)NOT NULL,

Nombre  varchar(30)NULL,

Foto image

)

-- SP Insertar

CREATE PROCEDURE ProInsertar_Clientes

@IdCliente char(4),

@Nombre varchar(30),

@Foto image        

AS

INSERT Clientes VALUES(@IdCliente,@Nombre,@Foto)

--SP Actualizar

CREATE PROCEDURE ProActualizar_Clientes

@IdCliente char(4)

@Nombre varchar(30),

@Foto image        

AS

UPDATE Clientes SET Nombre=@Nombre, Foto=@Foto

WHERE IdCLiente=@IdCliente

--SP Mostrar

CREATE PROCEDURE ProMostrar_Clientes

AS

SELECT @IdCliente,@Nombre,@Foto FROM IMAGENES

(Obviando restricciones, PK’s, FK’s y consideraciones)

CODIGO VB6.O

 &t;/P>

Clase Clientes

Private Const Cadena as string=”Provider=SQLOLEDB;Persist Security info=false;User ID=Usuario;Password=enBlanco;Initial Catalog=BD;Data Source=Server”

Aquí viene la duda, que tipo de dato utilizar para almacenar la imagen a grabar

Public Sub Insertar(ByVal Codigo As String, ByVal Nombre As String, ByVal Foto As ?)

Dim ComI As ADODB.Command: Set ComI = New Command

ComI.ActiveConnection = Cadena

ComI.ActiveConnection.CursorLocation = adUseClient

ComI.CommandType = adCmdStoredProc

ComI.CommandText = "ProInsertar_Cliene"

ComI.Parameters.Append ComI.CreateParameter("@IdCliente", adChar, adParamInput, 4, Codigo)

ComI.Parameters.Append ComI.CreateParameter("@Nombre", adVarChar, adParamInput, 30, Nombre)

ComI.Parameters.Append ComI.CreateParameter("@Foto", ad?, adParamInput, , Foto)

ComI.Execute

Set ComI = Nothing

End Sub

Clientes.Insertar  UnaCaja.Tex,OtraCaja.Text,SuPuestoPicture.Picture ?

Similar es el UPDATE.

EL otro problema es cuando maestro los datos mediante un metodo..

Public Function MisRegistros() As Recordset

Dim ComMR As ADODB.Command: Set ComMR = New Command

ComMR.ActiveConnection = Cadena

ComMR.ActiveConnection.CursorLocation = adUseClient

ComMR.CommandType = adCmdStoredProc

ComMR.CommandText = "select * from imagenes"

Set MisRegistros = ComMR.Executelt;o:p>

Set ComMR = Nothing

End Function

A la hora de mostrar mis registros…

Private MyRs as Recordset

Set MyRs=Clientes.MisRegistros

Text1.text=MyRs.Fields(0).value

Text2.text=MyRs.Fields(1).value

SupuestoPicture.Picture=MyRs.Fields(2).value ?

bueno si se podrá no estoy seguro al 100% pero por que no intentas grabar la ruta de la imagen y luego para visualizarla en una consulta solo la lees conun control de imagen. esto hara tambien q tu base de datos no sea muy pesada.

espero hacer sido de te ayuda.

Saludos

Christian Cornelio L

Hola, bueno te comento que yo logre realizar un proceso distinto. Osea que capturaba la imagen ya sea de un archivo o de un scanner, se almacenaba en el portapapeles y de alli lo pegaba en mi aplicación (ventana de la imagen), y seguidamente lo guardaba en una carpeta definida por mi mismo (ya sea en la PC de un cliente o en un servidor), y la ruta lo guardaba en la BD Sql.

Dejame buscar el código por si lo deseas verificar.