+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=12745)
الصفحات:
1
2
مشكلة في كود مع الصورة - مبرمج بلا حدود - 14-07-15
بسم الله الرحمن الر حيم
السلام عليكم ورحمة الله وبركاته
اخوتي في الله
حفظكم الله
لدي مشروع قاعدة بيانات اكسس 2007 مع فيجوال بيسك دوت نت 2012
وانا في البداية واخذت الاكواد من مشروع موجود هنا للاخ سعود الله يرجعه بالسلامه ويحفظه
الكود هو زر الاضافة
ما المشكلة في هذا الكود
PHP كود :
Try
Dim sq As String = "select * from T_Information"
Dim ds1 As New DataSet
Dim da1 As New OleDbDataAdapter(sq, con)
da1.Fill(ds1, "T_Information")
Dim cc As New OleDbCommandBuilder(da1)
Dim dr As DataRow = ds1.Tables("T_Information").NewRow
dr.Item(1) = fusername
dr.Item(2) = TextBox2.Text
dr.Item(3) = TextBox3.Text
dr.Item(4) = TextBox4.Text
dr.Item(5) = TextBox5.Text
dr.Item(6) = TextBox6.Text
dr.Item(7) = TextBox7.Text
dr.Item(8) = TextBox8.Text
dr.Item(9) = TextBox9.Text
dr.Item(10) = TextBox12.Text
ds1.Tables("T_Information").Rows.Add(dr)
da1.Update(ds1, "T_Information")
MsgBox("تمت الاضافة")
Dim ff As New Form13
ff.Show()
Me.Hide()
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Try
تظهر هذه الصورة بعد الضغط على زر الحفظ
وهذه حقول قاعدة البيانات
هذا وبإنتظاركم
حفظكم الله
RE: مشكلة في كود مع الصورة - djelloul - 14-07-15
يمكنك استخدام طريقة الباراميتر
هذا الكود كمثال يبقى عليك تغيير أسماء الحقول وأسماء التيكست بوكس ليتوافق مع مشروعك وفقك الله
If cnn.State = ConnectionState.Open Then
cnn.Close()
End If
Try
Dim sqlF As String = "INSERT INTO [Patients] ([Nom_P], [Prenom_P],[Adresse],[Date_N],[Phone],[Sexe],[GroupageS],[Fonction],[Assure],[ATCD_P],[ATCD_f],[Photo])" & _
"values(@Nom_P, @Prenom_P, @Adresse, @Date_N, @Phone, @Sexe, @GroupageS, @Fonction,@Assure,@ATCD_P,@ATCD_F,@Photo)"
Dim saveF As New SqlClient.SqlCommand(sqlF, cnn)
saveF.Parameters.AddWithValue("@Nom_P", (Me.txtNom.Text))
saveF.Parameters.AddWithValue("@Prenom_P", (Me.txtPrenom.Text))
saveF.Parameters.AddWithValue("@Adresse", (Me.txtAdresse.Text))
saveF.Parameters.AddWithValue("@date_N", (Me.DateTimePicker1.Value.Date))
saveF.Parameters.AddWithValue("@Phone", (Me.MaskedTextBox2.Text))
saveF.Parameters.AddWithValue("@Sexe", Me.CboSexe.Text)
saveF.Parameters.AddWithValue("@GroupageS", Me.CboGs.Text)
saveF.Parameters.AddWithValue("@Fonction", (Me.txtFonc.Text))
saveF.Parameters.AddWithValue("@Assure", Me.CboAssure.Text)
saveF.Parameters.AddWithValue("@ATCD_P", (Me.txtATCD_P.Text))
saveF.Parameters.AddWithValue("@ATCD_F", (Me.txtATCD_F.Text))
saveF.Parameters.AddWithValue("@Photo", (ConvertToData(Photo.Image)))
cnn.Open()
saveF.ExecuteNonQuery()
MsgBox("Enregistrement fait avec Succée", vbMsgBoxRight, "Confirmation")
cnn.Close()
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
إن وجدت صعوبة أرفق المشروع
RE: مشكلة في كود مع الصورة - احمد عبد الحكيم - 14-07-15
نعم اخى الكريم مبرمج بلا حدود فطريقة الباروميتر هى الامثل لكل شئ
RE: مشكلة في كود مع الصورة - مبرمج بلا حدود - 14-07-15
جزاكم الله خير ارجوا ارفاق المشروع ان امكن حفظكم الله
وسؤال اخر اذا من ضمن الحقول اضافة صورة كيف يكون زر الاضافة
(14-07-15, 04:50 AM)djelloul كتب : يمكنك استخدام طريقة الباراميتر
هذا الكود كمثال يبقى عليك تغيير أسماء الحقول وأسماء التيكست بوكس ليتوافق مع مشروعك وفقك الله
If cnn.State = ConnectionState.Open Then
cnn.Close()
End If
Try
Dim sqlF As String = "INSERT INTO [Patients] ([Nom_P], [Prenom_P],[Adresse],[Date_N],[Phone],[Sexe],[GroupageS],[Fonction],[Assure],[ATCD_P],[ATCD_f],[Photo])" & _
"values(@Nom_P, @Prenom_P, @Adresse, @Date_N, @Phone, @Sexe, @GroupageS, @Fonction,@Assure,@ATCD_P,@ATCD_F,@Photo)"
Dim saveF As New SqlClient.SqlCommand(sqlF, cnn)
saveF.Parameters.AddWithValue("@Nom_P", (Me.txtNom.Text))
saveF.Parameters.AddWithValue("@Prenom_P", (Me.txtPrenom.Text))
saveF.Parameters.AddWithValue("@Adresse", (Me.txtAdresse.Text))
saveF.Parameters.AddWithValue("@date_N", (Me.DateTimePicker1.Value.Date))
saveF.Parameters.AddWithValue("@Phone", (Me.MaskedTextBox2.Text))
saveF.Parameters.AddWithValue("@Sexe", Me.CboSexe.Text)
saveF.Parameters.AddWithValue("@GroupageS", Me.CboGs.Text)
saveF.Parameters.AddWithValue("@Fonction", (Me.txtFonc.Text))
saveF.Parameters.AddWithValue("@Assure", Me.CboAssure.Text)
saveF.Parameters.AddWithValue("@ATCD_P", (Me.txtATCD_P.Text))
saveF.Parameters.AddWithValue("@ATCD_F", (Me.txtATCD_F.Text))
saveF.Parameters.AddWithValue("@Photo", (ConvertToData(Photo.Image)))
cnn.Open()
saveF.ExecuteNonQuery()
MsgBox("Enregistrement fait avec Succée", vbMsgBoxRight, "Confirmation")
cnn.Close()
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
إن وجدت صعوبة أرفق المشروع
السلام عليكم ورحمة الله وبركاته
جزاكـ الله خير اخي وباركـ الله فيكـ
ارجوا ارفاق المشروع ان امكنك حفظكـ الله
كما وارجوا ان يكون شامل لجميع عمليات قاعدة البيانات وفقك الله
جزاكـ ربي الجنة
وجعله الله في موازين حسناتكـ
RE: مشكلة في كود مع الصورة - djelloul - 15-07-15
السلام عليكم ورحمة الله تعالى وبركاته
في هذا الرابط وضعت لك أخي الكريم مثالا كاملا أرجوا أن يساعدك
http://www.4shared.com/rar/Z9tS-NiQce/Save_to_DataBase.html
بالتوفيق
RE: مشكلة في كود مع الصورة - مبرمج بلا حدود - 15-07-15
(15-07-15, 05:01 AM)djelloul كتب : السلام عليكم ورحمة الله تعالى وبركاته
في هذا الرابط وضعت لك أخي الكريم مثالا كاملا أرجوا أن يساعدك
http://www.4shared.com/rar/Z9tS-NiQce/Save_to_DataBase.html
بالتوفيق
وعليكم السلام ورحمة الله وبركاته
باركـ الله فيكـ اخي وجزاكـ الله خير
ربي يحفظكـ ويرضى عنكـ
سوغف اطلع عليه واعود اليكـ بما توصلت اليه :
جزاكـ الله خير
RE: مشكلة في كود مع الصورة - مبرمج بلا حدود - 15-07-15
جزاكـ الله خير وباركـ الله فيكـ
استاذ ( djelloul )
الحمدلله عمل الكود وصححت الكود السابق الي كان عندي بيه مشكلة وتبين ان الخطأ بالاقواس الكبيرة
والحمدلله ربي يحفظكـ
اخي ربي يحفظكـ ويرضى عنكـ
الان اذا اريد اعرض البيانات في فورم اخر
استخدمت هذا الكود عرضت لدي البيانات لكن كيف اعرض الصورة
PHP كود :
Try
Dim sqll As String = "select * from T_Information"
Dim dss As New DataSet
Dim da As New OleDbDataAdapter(sqll, con)
da.Fill(dss, "T_Information")
TextBox1.DataBindings.Add("text", dss, "T_Information.Tid")
TextBox2.DataBindings.Add("text", dss, "T_Information.Name_Comp")
TextBox3.DataBindings.Add("text", dss, "T_Information.Name_Dwa")
TextBox4.DataBindings.Add("text", dss, "T_Information.Name_Dwa2")
TextBox5.DataBindings.Add("text", dss, "T_Information.Date_Made")
TextBox6.DataBindings.Add("text", dss, "T_Information.Date_Made2")
TextBox7.DataBindings.Add("text", dss, "T_Information.Date_Enter")
TextBox8.DataBindings.Add("text", dss, "T_Information.Date_Enter2")
TextBox9.DataBindings.Add("text", dss, "T_Information.Number_Rf")
TextBox12.DataBindings.Add("text", dss, "T_Information.Note")
TextBox10.DataBindings.Add("text", dss, "T_Information.Name_Typer")
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Try
بالاضافة الى ازار السجل التالي والسابق والاول والاخير
حتى بعدها نبدأ بالتفكير بزر التعديل والبحث :
والحذف :
جزاكـ ربي الجنة وجعله الله في موازين حسناتكـ
بالمناسبة زر الاضافة هكذا اصبح لدي وهو يعمل فجزاكـ الله عني خير الجزاء
PHP كود :
Try
If Trim(TextBox2.Text) = "" Or Trim(TextBox3.Text) = "" Then MsgBox(" جميع البيانات يجب ملأ") : Exit Sub
Dim opd As New OpenFileDialog
opd.Tag = 1
opd.ShowDialog()
If opd.FileName = Nothing Then MsgBox("لم تختر صورة") : Exit Sub
PictureBox1.Image = Image.FromFile(opd.FileName)
If constr2.State = ConnectionState.Closed = False Then constr2.Close()
constr2.Open()
Dim cmd As New OleDbCommand
cmd.Connection = constr2
cmd.CommandType = CommandType.Text
Dim picbyte As Byte()
picbyte = My.Computer.FileSystem.ReadAllBytes(opd.FileName)
cmd.CommandText = "INSERT INTO [T_Information] ([Name_Typer] ,[Name_Comp],[Name_Dwa],[Name_Dwa2],[Date_Made],[Date_Made2],[Date_Enter],[Date_Enter2],[Number_Rf],[Note],[imag])" & _
"values(@Name_Typer, @Name_Comp, @Name_Dwa, @Name_Dwa2, @Date_Made, @Date_Made2, @Date_Enter, @Date_Enter2, @Number_Rf, @Note, @imag )"
cmd.Parameters.AddWithValue("@Name_Typer", fusername)
cmd.Parameters.AddWithValue("@Name_Comp", (Me.TextBox2.Text))
cmd.Parameters.AddWithValue("@Name_Dwa", (Me.TextBox3.Text))
cmd.Parameters.AddWithValue("@Name_Dwa2", (Me.TextBox4.Text))
cmd.Parameters.AddWithValue("@Date_Made", (Me.TextBox5.Text))
cmd.Parameters.AddWithValue("@Date_Made2", (Me.TextBox6.Text))
cmd.Parameters.AddWithValue("@Date_Enter", (Me.TextBox7.Text))
cmd.Parameters.AddWithValue("@Date_Enter2", (Me.TextBox8.Text))
cmd.Parameters.AddWithValue("@Number_Rf", (Me.TextBox9.Text))
cmd.Parameters.AddWithValue("@Note", (Me.TextBox12.Text))
cmd.Parameters.AddWithValue("@imag", picbyte)
cmd.ExecuteNonQuery()
constr2.Close()
MsgBox("تم الحفظ")
Catch ex As Exception
MsgBox(ex.Message)
End Try
RE: مشكلة في كود مع الصورة - djelloul - 16-07-15
وعليكم السلام ورحمة اله ةتعالى وبركاته
هذا كود تحويل البايتات إلى صورة
' convert les bytes en image
Public Function ConvertToImage(ByVal Data() As Byte) As Image
Dim stream As New MemoryStream(Data)
Return Image.FromStream(stream)
End Functio
للإستفادة أكثر أرجوا مراجعة الرابط التالي
https://www.youtube.com/watch?v=SvrhDcskdfI
RE: مشكلة في كود مع الصورة - مبرمج بلا حدود - 16-07-15
(16-07-15, 01:54 AM)djelloul كتب : وعليكم السلام ورحمة اله ةتعالى وبركاته
هذا كود تحويل البايتات إلى صورة
' convert les bytes en image
Public Function ConvertToImage(ByVal Data() As Byte) As Image
Dim stream As New MemoryStream(Data)
Return Image.FromStream(stream)
End Functio
للإستفادة أكثر أرجوا مراجعة الرابط التالي
https://www.youtube.com/watch?v=SvrhDcskdfI
جزاكـ الله خير رح احاول اشاهدة رغم الانترنت لا يسمح بس ان شاءالله افلح
جزاكـ الله خير
طيب اخي وبخصوص ما تبقى ربي يحفظكـ
RE: مشكلة في كود مع الصورة - djelloul - 19-07-15
السلام عليكم ورحمة الله تعالى وبركاته
أخي الكريم عيد مبارك سعيد لك ولكل أعضاء المنتدى
كما نقول نحن الجزائريين بلا جميل كلنا كنا في البداية لا ندري شيء عن البرمجة لكن الحمد لله بفضله سبحانه وتعالى وبفضل الإخوان الإساتذة أعضاء ومسيري منتديات البرمجة خصوصا هذا المنتدى الرائع والذي أنصحك بالتمسك به
وفقك الله