Insertar imagenes en sql server

[MCasanova]

Hola a todos :

Ojalá que alguien pudiera ayudarme en lo siguiente:

Necesito insertar imagenes en una tabla de sql server y no se como hacerlo. Lo único que se es que debo hacerlo en un campo tipo image y ejecutar el procedimiento almacenado sp_tableoption para poder insertar cadenas de caracteres o binarias grandes.

Si alguien me puede ayudar se lo agradecería

Saludos

Manuel

[Mithrandir]

Aunque tampoco se como hacerlo te puedo decir que en todos lados recomiendan el NO usar las imagenes dentro de la tabla, por que degrada demasiado el rendimiento.

En su lugar recomiendan manejar rutas a archivos (jpg, gif, ..) en lugar de la imagen en si misma

[MCasanova]

Ok Mithrandir, habia leido comentarios en los dos sentidos, por eso quiero probar insertando las imagenes en la base.

Gracias por la recomendación... igual sigo esperando

Salu2

Manuel

[SunDarK]

Estoy con Mithrandir ,no te recomiendo para nada el insertar imagenes en la BD,pero si es lo que quieres aqui te posteo un trozo de código de como lo hago yo en VB.NET
Insertar

Dim fs As New FileStream(OpenFileDialog1.FileName, FileMode.OpenOrCreate, FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, fs.Length)
fs.Close()
'Ya luego lo agregas a tu fila como si fuera algo normal,por ejemplo con MiFila("Foto")= MyData

Y para mostrar las imagenes

Public Function Mostrarfoto(ByVal id As Integer) As Image
Try
Dim cn As New SqlConnection("Server=www.dresoft.com;Database=usu arios;uid=dresoft;pwd=DIEGORAMONEDU")
cn.Open()
'Retrieve BLOB from database into DataSet.
Dim cmd As New SqlCommand("SELECT foto FROM Edu_Outlook WHERE ID=" & id, cn)
Dim da As New SqlDataAdapter(cmd)
Dim ds As New DataSet
da.Fill(ds, "Edu_Outlook")
Dim c As Integer = ds.Tables("Edu_Outlook").Rows.Count
If c > 0 Then
'BLOB is read into Byte array, then used to construct MemoryStream,
'then passed to PictureBox.
Dim byteBLOBData(-1) As [Byte]
byteBLOBData = CType(ds.Tables("Edu_Outlook").Rows((c - 1))("FOTO"), [Byte]())
Dim stmBLOBData As New MemoryStream(byteBLOBData)
Mostrarfoto = Image.FromStream(stmBLOBData)
End If
cn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Function

Espero que te sirva,salu2

[MCasanova]

Gracias sundark, pero yo estoy usando Visual Basic 6.0

La otra solución sería dejar las fotos en una carpeta y cargarlas desde ahí.
Pero para eso debería compartirla y así me quedaria disponible para todos los usuarios, lo que no quiero

¿Solución?

Salu2