karim orooji
دوشنبه 06 اردیبهشت 1389, 18:32 عصر
با سلام به دوستان گلم من به کمک این کد عکس رو به صورت باینری در بانک ذخیره میکنم
Sub picture()
Dim upLength As Integer = up.PostedFile.ContentLength
Dim picByte As Byte() = New Byte(upLength - 1) {}
Dim con As New SqlConnection
con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\bank.mdf;Integrated Security=True;User Instance=True"
Dim com As New SqlCommand
com.Connection = con
com.CommandText = "insert into picture values(@pic,@user_name)"
com.Parameters.AddWithValue("@pic", picByte)
com.Parameters.AddWithValue("@user_name", txt_name.Text)
con.Open()
com.ExecuteNonQuery()
con.Close()
End Sub
حالا چطوری لودش کنم
Sub picture()
Dim upLength As Integer = up.PostedFile.ContentLength
Dim picByte As Byte() = New Byte(upLength - 1) {}
Dim con As New SqlConnection
con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\bank.mdf;Integrated Security=True;User Instance=True"
Dim com As New SqlCommand
com.Connection = con
com.CommandText = "insert into picture values(@pic,@user_name)"
com.Parameters.AddWithValue("@pic", picByte)
com.Parameters.AddWithValue("@user_name", txt_name.Text)
con.Open()
com.ExecuteNonQuery()
con.Close()
End Sub
حالا چطوری لودش کنم