منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

بسم الله الرحمن الر حيم
السلام عليكم ورحمة الله وبركاته
اخوتي في الله
حفظكم الله
لدي مشروع قاعدة بيانات اكسس 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 

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

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

هذا وبإنتظاركم
حفظكم الله

يمكنك استخدام طريقة الباراميتر
هذا الكود كمثال يبقى عليك تغيير أسماء الحقول وأسماء التيكست بوكس ليتوافق مع مشروعك وفقك الله
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
إن وجدت صعوبة أرفق المشروع

نعم اخى الكريم مبرمج بلا حدود فطريقة الباروميتر هى الامثل لكل شئ

جزاكم الله خير ارجوا ارفاق المشروع ان امكن حفظكم الله
وسؤال اخر اذا من ضمن الحقول اضافة صورة كيف يكون زر الاضافة

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

السلام عليكم ورحمة الله وبركاته
جزاكـ الله خير اخي وباركـ الله فيكـ
ارجوا ارفاق المشروع ان امكنك حفظكـ الله
كما وارجوا ان يكون شامل لجميع عمليات قاعدة البيانات وفقك الله
جزاكـ ربي الجنة
وجعله الله في موازين حسناتكـ

السلام عليكم ورحمة الله تعالى وبركاته
في هذا الرابط وضعت لك أخي الكريم مثالا كاملا أرجوا أن يساعدك
http://www.4shared.com/rar/Z9tS-NiQce/Sa...aBase.html
بالتوفيق

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

وعليكم السلام ورحمة الله وبركاته
باركـ الله فيكـ اخي وجزاكـ الله خير
ربي يحفظكـ ويرضى عنكـ
سوغف اطلع عليه واعود اليكـ بما توصلت اليه : Smile

جزاكـ الله خير

جزاكـ الله خير وباركـ الله فيكـ
استاذ ( djelloul )
الحمدلله عمل الكود وصححت الكود السابق الي كان عندي بيه مشكلة وتبين ان الخطأ بالاقواس الكبيرة Smile

والحمدلله ربي يحفظكـ
اخي ربي يحفظكـ ويرضى عنكـ
الان اذا اريد اعرض البيانات في فورم اخر
استخدمت هذا الكود عرضت لدي البيانات لكن كيف اعرض الصورة

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 

بالاضافة الى ازار السجل التالي والسابق والاول والاخير
حتى بعدها نبدأ بالتفكير بزر التعديل والبحث : 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 

وعليكم السلام ورحمة اله ةتعالى وبركاته

هذا كود تحويل البايتات إلى صورة
' 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

(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

جزاكـ الله خير رح احاول اشاهدة رغم الانترنت لا يسمح بس ان شاءالله افلح
جزاكـ الله خير
طيب اخي وبخصوص ما تبقى ربي يحفظكـ

السلام عليكم ورحمة الله تعالى وبركاته
أخي الكريم عيد مبارك سعيد لك ولكل أعضاء المنتدى
كما نقول نحن الجزائريين بلا جميل كلنا كنا في البداية لا ندري شيء عن البرمجة لكن الحمد لله بفضله سبحانه وتعالى وبفضل الإخوان الإساتذة أعضاء ومسيري منتديات البرمجة خصوصا هذا المنتدى الرائع والذي أنصحك بالتمسك به
وفقك الله

الصفحات : 1 2