+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اضافة الصور لقاعدة البيانات SQL (/showthread.php?tid=22213)
اضافة الصور لقاعدة البيانات SQL - m.farag87 - 23-10-17
السلام عليكم
الرجاء تصحيح كود حفظ الصور بقاعدة البيانات SQL SERVER
الكود المستخدم
Dim addteo As String = MsgBox("هل حقأ ترغب اضافة البيانات ", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "تأكيد عملية اضافة البيانات")
If addteo = vbYes Then
Cmd = New OleDbCommand(" Insert Into invest (patient_Name,[DATE],investigation_name,Report,eye,photo)
values ('" & textname.Text & "','" & Trim(Textdate.Text) & "','" & TEXTINVE1.Text & "','" & TextREPORT1.Text & "','" & texteye1.Text & "',@photo)", Con)
Dim ms1 As New MemoryStream()
PBOX1.BackgroundImage.Save(ms1, PBOX1.BackgroundImage.RawFormat)
Dim picture1 As Byte() = ms1.GetBuffer()
Dim p As New OleDbParameter("@photo", SqlDbType.Image)
p.Value = picture1
Cmd.Parameters.Add(p)
Cmd.ExecuteNonQuery()
Con.Close()
MsgBox("تمت عملية حفظ البيانات بنجاح", MsgBoxStyle.Exclamation, "تأكيد عملية الحفظ")
cler()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
تظهر رساله خطاء object reference not set to an instance of an object
تم استخدام كود اخر
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
Dim open As New OpenFileDialog
If open.ShowDialog = DialogResult.OK Then
pbox.Image = Image.FromFile(open.FileName)
End If
Dim ms1 As New MemoryStream()
pbox.Image.Save(ms1, pbox.Image.RawFormat)
Dim arrimg() As Byte = ms1.GetBuffer
ms1.Close()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Con.Open()
Dim sqlc As New OleDbCommand
sqlc.Connection = Con
sqlc.CommandText = "insert into invest (patient_Name,[DATE],investigation_name,Report,eye,photo)" & "values('" & textname.Text & "','" & Trim(Textdate.Text) & "','" & TEXTINVE1.Text & "','" & TextREPORT1.Text & "','" & texteye1.Text & "'," & "@img" & ")"
sqlc.Parameters.Add(New OleDbParameter("@img", SqlDbType.Image)).Value = arrimg
sqlc.ExecuteNonQuery()
Con.Close()
MsgBox("تمت عملية حفظ البيانات بنجاح", MsgBoxStyle.Exclamation, "تأكيد عملية الحفظ")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
وايضا يظهر الخطاء must declare the scalar variable "@img"
برجاء المساعدة
RE: اضافة الصور لقاعدة البيانات SQL - Rabeea Qbaha - 23-10-17
(23-10-17, 03:23 AM)khodor1985 كتب : تابع الفيديوهات :
https://www.youtube.com/watch?v=utheGCVkvs0
https://www.youtube.com/watch?v=r0pLHP7x4R8
اول شي صديقي تحتاج ان يكون العمود في قاعدة البيانات image
كود :
Dim imagepath As String
Dim myStream As IO.Stream = Nothing
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
Dim openFileDialog1 As New OpenFileDialog()
'Set the Filter.
openFileDialog1.Filter = "Image files (*.jpg, *.jpeg, *.jpe, *.jfif, *.png) | *.jpg; *.jpeg; *.jpe; *.jfif; *.png"
If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Try
myStream = openFileDialog1.OpenFile()
If (myStream IsNot Nothing) Then
imagepath = openFileDialog1.FileName
End If
Catch Ex As Exception
MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
Finally
' Check this again, since we need to make sure we didn't throw an exception on open.
If (myStream IsNot Nothing) Then
myStream.Close()
End If
End Try
Else
Return
End If
End SubPHP كود :
Private Function ImageToStream(ByVal fileName As String) As Byte()
Dim stream As New MemoryStream()
tryagain:
Try
Dim image As New Bitmap(fileName)
image.Save(stream, System.Drawing.Imaging.ImageFormat.Jpeg)
Catch ex As Exception
GoTo tryagain
End Try
Return stream.ToArray()
End Function
كود :
Private Sub btn_with_pic_Click(sender As Object, e As EventArgs) Handles btn_with_pic.Click
Try
Dim fName As String
fName = imagepath
If File.Exists(fName) Then
Dim content As Byte() = ImageToStream(fName)
'فحص الاتصال بقاعدة البيانات
If SQL.conn.State = ConnectionState.Open Then
SQL.conn.Close()
End If
SQL.conn.Open()
Dim cmd As New SqlCommand()
cmd.CommandText = "insert into customers (cust_id,name,image,date) values(@cust_id,@name,@image,@date)"
cmd.Parameters.AddWithValue("@cust_id", (id_number_txt.Text))
cmd.Parameters.AddWithValue("@name", (name_txt.Text))
cmd.Parameters.AddWithValue("@image", (content))
cmd.Parameters.AddWithValue("@date", (datetoday))
cmd.Connection = SQL.conn
cmd.ExecuteNonQuery()
SQL.conn.Close()
Else
MsgBox(fName & " الصورة المختارة ليست موجودة او غير صالحة ", vbCritical, "حصل خطأ")
End If
Catch ex As SqlException
MsgBox(ex.Message, MsgBoxStyle.Critical, "SQL Error")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
End Try
End Sub