INSERTAR IMAGEN A LA BD
Publicado por marcos (6 intervenciones) el 26/09/2008 20:56:11
hola, buenas tardes tengo un problemita
haber si alguno de ustedes puede ayudarme
quiero guardar una imagen desde un fileupload, estoy utilizando vb.net
ya hice las tablas ya crie el campo imagen de tipo blob
tengo el file upload
y un boton que verifica si tiene algo el file upload
el codigo es este, pero dentro del values no se qe va...
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.FileUpload1.HasFile Then
Try
Me.FileUpload1.SaveAs("C:" & _
FileUpload1.FileName)
Me.Label1.Text = "File name: " & _
FileUpload1.PostedFile.FileName & "<br>" & _
"File Size: " & _
FileUpload1.PostedFile.ContentLength & " kb<br>" & _
"Content type: " & _
FileUpload1.PostedFile.ContentType
Dim comando As New MySqlCommand
Dim con As New MySqlConnection
con = New MySqlConnection("server=localhost;database=imagenes;user=root;password=123")
comando.CommandText = " INSERT INTO imagen (img) values (...........)
comando.Connection = con
comando.ExecuteNonQuery()
MsgBox(" FOTO GUARDADA", vbInformation, " FOTO AGREGADA")
Catch ex As Exception
Label1.Text = "ERROR: " & ex.Message.ToString()
End Try
Else
Label1.Text = "You have not specified a file."
End If
End Sub
haber si alguno de ustedes puede ayudarme
quiero guardar una imagen desde un fileupload, estoy utilizando vb.net
ya hice las tablas ya crie el campo imagen de tipo blob
tengo el file upload
y un boton que verifica si tiene algo el file upload
el codigo es este, pero dentro del values no se qe va...
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.FileUpload1.HasFile Then
Try
Me.FileUpload1.SaveAs("C:" & _
FileUpload1.FileName)
Me.Label1.Text = "File name: " & _
FileUpload1.PostedFile.FileName & "<br>" & _
"File Size: " & _
FileUpload1.PostedFile.ContentLength & " kb<br>" & _
"Content type: " & _
FileUpload1.PostedFile.ContentType
Dim comando As New MySqlCommand
Dim con As New MySqlConnection
con = New MySqlConnection("server=localhost;database=imagenes;user=root;password=123")
comando.CommandText = " INSERT INTO imagen (img) values (...........)
comando.Connection = con
comando.ExecuteNonQuery()
MsgBox(" FOTO GUARDADA", vbInformation, " FOTO AGREGADA")
Catch ex As Exception
Label1.Text = "ERROR: " & ex.Message.ToString()
End Try
Else
Label1.Text = "You have not specified a file."
End If
End Sub
Valora esta pregunta


0