+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] اضافة صورة فارغة لقاعدة البيانات (/showthread.php?tid=26756)
اضافة صورة فارغة لقاعدة البيانات - محمد اسماعيل - 02-10-18
السلام عليكم
اضيف صور لقاعدة البيانات من البيكتشر بوكس بتحويل الصور الي بايت
الكود يضيف عادي لو اضفت صورة بصندوق الصور ولكن ان كان فارغ لا يضيف الصورة الفارغة او null
طبعا انا اريد لو الصورة موجودة بالبيكتشر تضاف ولو فارغة ليس شرط ان تكون هناك صورة بالصف وبالتالي تصبح قيمة null
الكود
كود :
Dim ms As New MemoryStream
PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
Dim img() As Byte
img = ms.ToArray()
UPDATE_COM.Parameters.AddWithValue("@WEBSERVERPAYED_IMAG", img)محاولتي لمعرفة القيمة الفارغة بدون فائدة
كود :
If Me.PictureBox1.Image Is Nothing Then
img = CObj(DBNull.Value)
Else
img = ms.ToArray()
End IfRE: اضافة صورة فارغة لقاعدة البيانات - rnmr - 02-10-18
جرب هذا
كود :
If Me.PictureBox1.Image Is Nothing Then
UPDATE_COM.Parameters.AddWithValue("@WEBSERVERPAYED_IMAG", DBNull.Value)
Else
Dim ms As New MemoryStream
PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
Dim img() As Byte = ms.ToArray()
UPDATE_COM.Parameters.AddWithValue("@WEBSERVERPAYED_IMAG", img)
End IfRE: اضافة صورة فارغة لقاعدة البيانات - عبدالله الدوسري - 02-10-18
في الجدول بقاعدة البيانات إجعل حقل الصورة يقبل ( Null )
وفي البرنامج , لا تمرر أي شيء يخص الصورة إذا كانت خالية , لست مطالب بتمرير ( Parameter ) يعبر عن قيمة الصورة , إذا كانت في الجدول بقاعدة البيانات تقبل ( Null )
RE: اضافة صورة فارغة لقاعدة البيانات - محمد اسماعيل - 03-10-18
(02-10-18, 08:22 PM)عبدالله الدوسري كتب : في الجدول بقاعدة البيانات إجعل حقل الصورة يقبل ( Null )
وفي البرنامج , لا تمرر أي شيء يخص الصورة إذا كانت خالية , لست مطالب بتمرير ( Parameter ) يعبر عن قيمة الصورة , إذا كانت في الجدول بقاعدة البيانات تقبل ( Null )
فين الخاصية دية بجدول الاكسيس required = no , text align , caption
RE: اضافة صورة فارغة لقاعدة البيانات - عبدالله الدوسري - 03-10-18
required = no
RE: اضافة صورة فارغة لقاعدة البيانات - محمد اسماعيل - 03-10-18
(02-10-18, 07:57 PM)rnmr كتب : جرب هذا
كود :
If Me.PictureBox1.Image Is Nothing Then
UPDATE_COM.Parameters.AddWithValue("@WEBSERVERPAYED_IMAG", DBNull.Value)
Else
Dim ms As New MemoryStream
PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
Dim img() As Byte = ms.ToArray()
UPDATE_COM.Parameters.AddWithValue("@WEBSERVERPAYED_IMAG", img)
End If
(02-10-18, 08:22 PM)عبدالله الدوسري كتب : في الجدول بقاعدة البيانات إجعل حقل الصورة يقبل ( Null )
وفي البرنامج , لا تمرر أي شيء يخص الصورة إذا كانت خالية , لست مطالب بتمرير ( Parameter ) يعبر عن قيمة الصورة , إذا كانت في الجدول بقاعدة البيانات تقبل ( Null )
جزاكم الله خيرا عني وعن غيري
RE: اضافة صورة فارغة لقاعدة البيانات - محمد العامر - 29-04-20
السلام عليكم ورحمة الله وبركاته
لدي نفس المشكلة ولم أفهم ما يقصده الاستاذ عبدالله الدوسري
قمت بتعديل في قاعدة البيانات وجعلت خانة الصورة تقبل Null
ولكن نقطة أني غير مطالب بتمرير Parameter لم أفهمها ولم أستطيع أن أعدلها في الكود المرفق
كود :
Dim ms As New IO.MemoryStream
Dim bmpimage As New Bitmap(pbox.Image)
bmpimage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim data As Byte() = ms.GetBuffer()
Dim p As New SqlParameter("@PicEemploye", SqlDbType.Image)
p.Value = data
.Parameters.Add(p)RE: اضافة صورة فارغة لقاعدة البيانات - ابراهيم ايبو - 29-04-20
السلام عليكم ورحمة الله وبركاته
يبدو ان المشكلة الصغيرة هذه قد ارقت الكثيرين
تخزين سجل ما وتخزين الصورة اوبشنال اي كيفي ولجل هذا الاشكال نتبع التالي :
اولا في قاعدة البيانات يجب ان يكون حقل الصورة يقبل null قيمة فارغة وهذه الكل يعرفها
الان الفكرة تقوم على اننا سنعلم منفذ الاوامر بتخزين او عدم تخزين الصورة وسيكون ذلك عبر متغير نصي سيحمل اسم الصورة ايا كان
ونضع فيه احدى القيمتين (؟) للدلالة على اننا نريد تحزين الصورة و(null) لانريد تخزين الصورة وبالتالي ستكون جملة الانسرت او الابديت
مشروطة بقيمة هذا المتغير بحيث نستخدم باراميتر وحقل او لا
واليكم كود من ثلاث حقول ( اي دي - الاسم - الصورة) والاكواد بطريقة الاتصال غير المباشر
كود :
Dim NameImage As String = String.Empty ' تعريف متغير نصي قيمته فارغة
'----------Public sub insert----------
Public Sub insert_Personal(Cv_Id As Integer, Cv_FullName As String, Cv_Photo As Byte())
Dim Cmd As New OleDbCommand()
If NameImage = "?" Then ' اذا كان المتغير فيه قيمة نحن وضعناها اشارة استفهام سيتم الحفظ مع وجود صورة
Cmd = New OleDbCommand("insert into Personal(Cv_Id,Cv_FullName,Cv_Photo) Values(@Cv_Id,@Cv_FullName,@Cv_Photo)", con)
Else ' المتغير ليس فيه قيمة سيتم التعديل بدون صورة
Cmd = New OleDbCommand("insert into Personal(Cv_Id,Cv_FullName) Values(@Cv_Id,@Cv_FullName)", con)
End If
' سيتم استخدام الباراميترات بناء على جملة الانسرت
Cmd.Parameters.Add(New OleDbParameter("@Cv_Id", OleDbType.Integer)).Value = Cv_Id
Cmd.Parameters.Add(New OleDbParameter("@Cv_FullName", OleDbType.VarWChar)).Value = Cv_FullName
Cmd.Parameters.Add(New OleDbParameter("@Cv_Photo", OleDbType.LongVarBinary)).Value = Cv_Photo
If con.State = ConnectionState.Open Then con.Close()
con.Open()
Cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم حفظ البيانات بنجاح", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
'----------Public Sub Update----------
Public Sub Update_Personal(Cv_FullName As String, Cv_Photo As Byte(), Cv_Id As Integer)
Dim Cmd As New OleDbCommand()
If NameImage = "?" Then ' اذا كان المتغير فيه قيمة نحن وضعناها اشارة استفهام سيتم التعديل مع وجود صورة وفق الباراميترات التالية
Cmd = New OleDbCommand("Update Personal set Cv_FullName=@Cv_FullName,Cv_Photo=@Cv_Photo Where Cv_Id=@Cv_Id", con)
Cmd.Parameters.Add(New OleDbParameter("@Cv_FullName", OleDbType.VarWChar)).Value = Cv_FullName
Cmd.Parameters.Add(New OleDbParameter("@Cv_Photo", OleDbType.LongVarBinary)).Value = Cv_Photo
Cmd.Parameters.Add(New OleDbParameter("@Cv_Id", OleDbType.Integer)).Value = Cv_Id
Else ' المتغير ليس فيه قيمة سيتم التعديل بدون صورة وفق الباراميترات التالية
Cmd = New OleDbCommand("Update Personal set Cv_FullName=@Cv_FullName Where Cv_Id=@Cv_Id", con)
Cmd.Parameters.Add(New OleDbParameter("@Cv_FullName", OleDbType.VarWChar)).Value = Cv_FullName
Cmd.Parameters.Add(New OleDbParameter("@Cv_Id", OleDbType.Integer)).Value = Cv_Id
End If
If con.State = ConnectionState.Open Then con.Close()
con.Open()
Cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم تعديل البيانات بنجاح ", "تعديل", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub Btn_Save_Click(sender As Object, e As EventArgs) Handles Btn_Save.Click
Try
Dim Byteimage() As Byte
Dim Ms As New MemoryStream()
If Not (Pb_Cv_Photo.Image Is Nothing) Then
Pb_Cv_Photo.Image.Save(Ms, Pb_Cv_Photo.Image.RawFormat)
Byteimage = Ms.ToArray()
NameImage = "?" ' اسناد قيمة اشارة ؟ للمتغير النصي عندما نريد تخزين صورة
Else
Byteimage = Nothing
NameImage = "null" ' اسناد قيمة فارغ للمتغير النصي عندما لا نريد تخزين صورة
End If
insert_Personal(Txt_Cv_Id.Text, Txt_Cv_FullName.Text, Byteimage)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Btn_Update_Click(sender As Object, e As EventArgs) Handles Btn_Update.Click
Try
If MessageBox.Show("هل تريد تعديل السجل؟", "Alert", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
Dim byteimage() As Byte
Dim ms As New MemoryStream()
If Not (Pb_Cv_Photo.Image Is Nothing) Then
Pb_Cv_Photo.Image.Save(ms, Pb_Cv_Photo.Image.RawFormat)
byteimage = ms.ToArray()
NameImage = "?" ' اسناد قيمة اشارة ؟ للمتغير النصي عندما نريد تخزين صورة
Else
byteimage = Nothing
NameImage = "null" ' اسناد قيمة فارغ للمتغير النصي عندما لا نريد تخزين صورة
End If
Update_Personal(Txt_Cv_FullName.Text, byteimage, Txt_Cv_Id.Text)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Subدمتم بخير .. رمضان كريم والله اكرم
RE: اضافة صورة فارغة لقاعدة البيانات - عبدالله الدوسري - 02-05-20
(29-04-20, 07:29 AM)محمد العامر كتب : السلام عليكم ورحمة الله وبركاته
لدي نفس المشكلة ولم أفهم ما يقصده الاستاذ عبدالله الدوسري
قمت بتعديل في قاعدة البيانات وجعلت خانة الصورة تقبل Null
ولكن نقطة أني غير مطالب بتمرير Parameter لم أفهمها ولم أستطيع أن أعدلها في الكود المرفق
هنا القصد اتمنى يكون واضح
[attachment=24603]
[attachment=24604]
لكن الافضل بهذة الطريقة ( مع التحقق من القيمة التي سيتم تمريرها للحقل )
[attachment=24601]
[attachment=24602]