Insertar imagenes en SQL Server
cincasver
27 de Octubre del 2009
hola:
Necesio saber como guardar imagenes en una BD de SQL Server, desde Visual Basic????????
Necesio saber como guardar imagenes en una BD de SQL Server, desde Visual Basic????????
trelewense
27 de Octubre del 2009
Vean el código de:
http://www.freevbcode.com/ShowCode.asp?ID=5072
Espero que les sirva, saludos
http://www.freevbcode.com/ShowCode.asp?ID=5072
Espero que les sirva, saludos
SNDY
27 de Octubre del 2009
Excelente respuesta funciona perfecto. Gracias
arthur
27 de Octubre del 2009
Hola amigos, si desean envienme un mensaje a mi correo [email protected], les puedo ayudar para que guarden una imagen en sql server
Ricardo
27 de Octubre del 2009
A que versión de vb te refieres.
Ricardo
27 de Octubre del 2009
Si se trata de .net te mando la solución.
irma
27 de Octubre del 2009
Para insertar imaganes en la bd debes dclara un campo como texto en el cual se va a almacenar la direccion o path en donde se encuentra la imagen.
En vb vas a colocar el path en un text o una variable, Depues en la sentencia del insert vas a utilizar ese texto o variable.
obcn.Execute ("insert into productos values (" & id_pr2 & " ,'" & desc2 & "' , '" & marca2 & "' , '" & modelo2 & "' , '" & serie2 & "' , " & precio2 & " , '" & imagen2 & "', " & existencia2 & " )")
en este caso imagen2 es la variable que contiene lel path de la imagen. en la bd de datos vas a encontrar almacenada la direccion pero al mostrar los datos veras la imagen.
En vb vas a colocar el path en un text o una variable, Depues en la sentencia del insert vas a utilizar ese texto o variable.
obcn.Execute ("insert into productos values (" & id_pr2 & " ,'" & desc2 & "' , '" & marca2 & "' , '" & modelo2 & "' , '" & serie2 & "' , " & precio2 & " , '" & imagen2 & "', " & existencia2 & " )")
en este caso imagen2 es la variable que contiene lel path de la imagen. en la bd de datos vas a encontrar almacenada la direccion pero al mostrar los datos veras la imagen.
pedro de jesus
27 de Octubre del 2009
con este proceso puedes insertar foto
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
''DEclaramos un Comando
Dim _sqlstring As String
_sqlstring = "insert into t_cliente (NOMBRE) values ('" & nombre.Text & "')"
Dim cmdCatClientes As New OleDbCommand(_sqlstring, cnnCatClientes)
''DEclaramos un Data Adapter
cnnCatClientes.Open()
cmdCatClientes.ExecuteNonQuery()
Dim daCatClientes As New OleDbDataAdapter(cmdCatClientes)
''Un DataSet
Dim dsCatClientes As New DataSet()
''''y por último, el importantisimo Command Builder
Dim cbCatClientes As New OleDbCommandBuilder(daCatClientes)
Dim SaveImage As Boolean = False
Dim curFileName As String = ""
Try
'buscamos la imagen a grabar
Dim openDlg As OpenFileDialog = New OpenFileDialog()
openDlg.Filter = "Archivo de Foto|*.*"
Dim filter As String = openDlg.Filter
openDlg.Title = "Abrir Archivo"
If (openDlg.ShowDialog() = Windows.Forms.DialogResult.OK) Then
curFileName = openDlg.FileName
SaveImage = True
End If
If SaveImage = True Then
'CARGAR FOTOGRAFIA
Dim fsFoto As FileStream
fsFoto = New FileStream(curFileName, FileMode.Open)
Dim fiFoto As FileInfo = New FileInfo(curFileName)
Dim Temp As Long = fiFoto.Length
Dim lung As Long = Convert.ToInt32(Temp)
Dim picture(lung) As Byte
fsFoto.Read(picture, 0, lung)
fsFoto.Close()
Dim cmdFoto As New OleDbCommand("CARGA_FOTO", cnnCatClientes)
cmdFoto.CommandType = CommandType.StoredProcedure
Dim sql_ID_Cliente = New OleDbParameter("@ID_CLIENTE", 15)
Dim sql_FOTO As New OleDbParameter("@IMAGEN", SqlDbType.Image)
sql_FOTO.Value = picture
cmdFoto.Parameters.Add(sql_ID_Cliente)
cmdFoto.Parameters.Add(sql_FOTO)
cmdFoto.ExecuteNonQuery()
cmdFoto.Dispose()
sql_FOTO = Nothing
picture = Nothing
cnnCatClientes.Close()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
''DEclaramos un Comando
Dim _sqlstring As String
_sqlstring = "insert into t_cliente (NOMBRE) values ('" & nombre.Text & "')"
Dim cmdCatClientes As New OleDbCommand(_sqlstring, cnnCatClientes)
''DEclaramos un Data Adapter
cnnCatClientes.Open()
cmdCatClientes.ExecuteNonQuery()
Dim daCatClientes As New OleDbDataAdapter(cmdCatClientes)
''Un DataSet
Dim dsCatClientes As New DataSet()
''''y por último, el importantisimo Command Builder
Dim cbCatClientes As New OleDbCommandBuilder(daCatClientes)
Dim SaveImage As Boolean = False
Dim curFileName As String = ""
Try
'buscamos la imagen a grabar
Dim openDlg As OpenFileDialog = New OpenFileDialog()
openDlg.Filter = "Archivo de Foto|*.*"
Dim filter As String = openDlg.Filter
openDlg.Title = "Abrir Archivo"
If (openDlg.ShowDialog() = Windows.Forms.DialogResult.OK) Then
curFileName = openDlg.FileName
SaveImage = True
End If
If SaveImage = True Then
'CARGAR FOTOGRAFIA
Dim fsFoto As FileStream
fsFoto = New FileStream(curFileName, FileMode.Open)
Dim fiFoto As FileInfo = New FileInfo(curFileName)
Dim Temp As Long = fiFoto.Length
Dim lung As Long = Convert.ToInt32(Temp)
Dim picture(lung) As Byte
fsFoto.Read(picture, 0, lung)
fsFoto.Close()
Dim cmdFoto As New OleDbCommand("CARGA_FOTO", cnnCatClientes)
cmdFoto.CommandType = CommandType.StoredProcedure
Dim sql_ID_Cliente = New OleDbParameter("@ID_CLIENTE", 15)
Dim sql_FOTO As New OleDbParameter("@IMAGEN", SqlDbType.Image)
sql_FOTO.Value = picture
cmdFoto.Parameters.Add(sql_ID_Cliente)
cmdFoto.Parameters.Add(sql_FOTO)
cmdFoto.ExecuteNonQuery()
cmdFoto.Dispose()
sql_FOTO = Nothing
picture = Nothing
cnnCatClientes.Close()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
pinchila
27 de Octubre del 2009
tenes que llamar a tu vieja meterle el disquet en el orto y paretar el maus asi podes culiartela puto del orto matate