msh_gold
سه شنبه 22 مرداد 1387, 06:47 صبح
با سلام من مي خوام توي بانكم عكس درج كنم كدشم پيدا كردم ولي سر در نميارم از متغيير هايي كه استفاده شده كسي هست كه يه توضيح بده اين متغيير ها چه كاري انجام مي دن
متغيير ms و نوعش و arrimage() .با تشكر
If txtpic_name.Text = "" Then
MsgBox("لطفاً نامی برای عکس وارد کنید")
Exit Sub
End If
Dim ms As New MemoryStream
Try
picbox.Image.Save(ms, picbox.Image.RawFormat)
Catch exc As Exception
MsgBox("لطفاً ابتدا عکسی انتخاب کنید")
Exit Sub
End Try
Dim arrimage() As Byte = ms.GetBuffer
Try
pic_con.Open()
Catch ex As Exception
MsgBox("به علت عدم اتصال با سرور عکس ذخیره نشد")
End
End Try
Dim strsql As String = "insert into Table_pic(pic_id,pic_name,pic_image)values(@pic_id ,@pic_name,@pic_image)"
Dim cmd As New SqlCommand(strsql, pic_con)
With cmd
.Parameters.Add(New SqlParameter("@pic_id", SqlDbType.Int)).Value = txtpic_cod.Text
.Parameters.Add(New SqlParameter("@pic_name", SqlDbType.NVarChar, 30)).Value = txtpic_name.Text
.Parameters.Add(New SqlParameter("@pic_image", SqlDbType.Image)).Value = arrimage
End With
cmd.ExecuteNonQuery()
pic_con.Close()
متغيير ms و نوعش و arrimage() .با تشكر
If txtpic_name.Text = "" Then
MsgBox("لطفاً نامی برای عکس وارد کنید")
Exit Sub
End If
Dim ms As New MemoryStream
Try
picbox.Image.Save(ms, picbox.Image.RawFormat)
Catch exc As Exception
MsgBox("لطفاً ابتدا عکسی انتخاب کنید")
Exit Sub
End Try
Dim arrimage() As Byte = ms.GetBuffer
Try
pic_con.Open()
Catch ex As Exception
MsgBox("به علت عدم اتصال با سرور عکس ذخیره نشد")
End
End Try
Dim strsql As String = "insert into Table_pic(pic_id,pic_name,pic_image)values(@pic_id ,@pic_name,@pic_image)"
Dim cmd As New SqlCommand(strsql, pic_con)
With cmd
.Parameters.Add(New SqlParameter("@pic_id", SqlDbType.Int)).Value = txtpic_cod.Text
.Parameters.Add(New SqlParameter("@pic_name", SqlDbType.NVarChar, 30)).Value = txtpic_name.Text
.Parameters.Add(New SqlParameter("@pic_image", SqlDbType.Image)).Value = arrimage
End With
cmd.ExecuteNonQuery()
pic_con.Close()