تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة في كود مع الصورة
#1
بسم الله الرحمن الر حيم
السلام عليكم ورحمة الله وبركاته 
اخوتي في الله 
حفظكم الله 
لدي مشروع قاعدة بيانات اكسس 2007 مع فيجوال بيسك دوت نت 2012 
وانا في البداية واخذت الاكواد من مشروع موجود هنا للاخ سعود الله يرجعه بالسلامه ويحفظه 

الكود هو زر الاضافة 

ما المشكلة في هذا الكود 

PHP كود :
Try
 
           Dim sq As String "select * from T_Information"
 
           Dim ds1 As New DataSet
            Dim da1 
As New OleDbDataAdapter(sqcon)
 
           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.DescriptionMsgBoxStyle.Critical"")

 
       End Try 



تظهر هذه الصورة بعد الضغط على زر الحفظ 



وهذه حقول قاعدة البيانات



هذا وبإنتظاركم 
حفظكم الله
الرد }}}
تم الشكر بواسطة:
#2
يمكنك استخدام طريقة الباراميتر
هذا الكود كمثال يبقى عليك تغيير أسماء الحقول وأسماء التيكست بوكس ليتوافق مع مشروعك وفقك الله
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
إن وجدت صعوبة أرفق المشروع
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود
#3
نعم اخى الكريم مبرمج بلا حدود فطريقة الباروميتر هى الامثل لكل شئ
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود
#4
جزاكم الله خير ارجوا ارفاق المشروع ان امكن حفظكم الله
وسؤال اخر اذا من ضمن الحقول اضافة صورة كيف يكون زر الاضافة

(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
إن وجدت صعوبة أرفق المشروع

السلام عليكم ورحمة الله وبركاته
جزاكـ الله خير اخي وباركـ الله فيكـ 
ارجوا ارفاق المشروع ان امكنك حفظكـ الله 
كما وارجوا ان يكون شامل لجميع عمليات قاعدة البيانات وفقك الله 
جزاكـ ربي الجنة 
وجعله الله في موازين حسناتكـ
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله تعالى وبركاته
في هذا الرابط وضعت لك أخي الكريم مثالا كاملا أرجوا أن يساعدك
http://www.4shared.com/rar/Z9tS-NiQce/Sa...aBase.html
بالتوفيق
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود
#6
(15-07-15, 05:01 AM)djelloul كتب : السلام عليكم ورحمة الله تعالى وبركاته
في هذا الرابط وضعت لك أخي الكريم مثالا كاملا أرجوا أن يساعدك
http://www.4shared.com/rar/Z9tS-NiQce/Sa...aBase.html
بالتوفيق

وعليكم السلام ورحمة الله وبركاته 
باركـ الله فيكـ اخي وجزاكـ الله خير 
ربي يحفظكـ ويرضى عنكـ 
سوغف اطلع عليه واعود اليكـ بما توصلت اليه :Smile
جزاكـ الله خير
الرد }}}
تم الشكر بواسطة:
#7
جزاكـ الله خير وباركـ الله فيكـ 
 استاذ ( djelloul )
الحمدلله عمل الكود وصححت الكود السابق الي كان عندي بيه مشكلة وتبين ان الخطأ بالاقواس الكبيرة Smile 
والحمدلله ربي يحفظكـ 
اخي ربي يحفظكـ ويرضى عنكـ 
الان اذا اريد اعرض البيانات في فورم اخر 
استخدمت هذا الكود عرضت لدي البيانات لكن كيف اعرض الصورة 

PHP كود :
Try
 
           Dim sqll As String "select * from T_Information"
 
           Dim dss As New DataSet
            Dim da 
As New OleDbDataAdapter(sqllcon)
 
           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.DescriptionMsgBoxStyle.Critical"")

 
       End Try 

بالاضافة الى ازار السجل التالي والسابق والاول والاخير 
حتى بعدها نبدأ بالتفكير بزر التعديل والبحث :Smile
والحذف :Smile
جزاكـ ربي الجنة وجعله الله في موازين حسناتكـ
بالمناسبة زر الاضافة هكذا اصبح لدي وهو يعمل فجزاكـ الله عني خير الجزاء
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 
الرد }}}
تم الشكر بواسطة:
#8
وعليكم السلام ورحمة اله ةتعالى وبركاته

هذا كود تحويل البايتات إلى صورة
' 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
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود
#9
(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

جزاكـ الله خير رح احاول اشاهدة رغم الانترنت لا يسمح بس ان شاءالله افلح 
جزاكـ الله خير 
طيب اخي وبخصوص ما تبقى ربي يحفظكـ
الرد }}}
تم الشكر بواسطة:
#10
السلام عليكم ورحمة الله تعالى وبركاته
أخي الكريم عيد مبارك سعيد لك ولكل أعضاء المنتدى
كما نقول نحن الجزائريين بلا جميل كلنا كنا في البداية لا ندري شيء عن البرمجة لكن الحمد لله بفضله سبحانه وتعالى وبفضل الإخوان الإساتذة أعضاء ومسيري منتديات البرمجة خصوصا هذا المنتدى الرائع والذي أنصحك بالتمسك به
وفقك الله
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم