المشاركات : 481
المواضيع 35
الإنتساب : Oct 2013
السمعة :
6
الشكر: 9709
تم شكره 1454 مرات في 137 مشاركات
بسم الله الرحمن الر حيم
السلام عليكم ورحمة الله وبركاته
اخوتي في الله
حفظكم الله
لدي مشروع قاعدة بيانات اكسس 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
تظهر هذه الصورة بعد الضغط على زر الحفظ
وهذه حقول قاعدة البيانات
هذا وبإنتظاركم
حفظكم الله
المشاركات : 259
المواضيع 111
الإنتساب : Mar 2014
السمعة :
4
الشكر: 1
تم شكره 144 مرات في 30 مشاركات
يمكنك استخدام طريقة الباراميتر
هذا الكود كمثال يبقى عليك تغيير أسماء الحقول وأسماء التيكست بوكس ليتوافق مع مشروعك وفقك الله
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
إن وجدت صعوبة أرفق المشروع
المشاركات : 421
المواضيع 158
الإنتساب : Sep 2014
السمعة :
8
الشكر: 720
تم شكره 931 مرات في 60 مشاركات
نعم اخى الكريم مبرمج بلا حدود فطريقة الباروميتر هى الامثل لكل شئ
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
المشاركات : 481
المواضيع 35
الإنتساب : Oct 2013
السمعة :
6
الشكر: 9709
تم شكره 1454 مرات في 137 مشاركات
14-07-15, 02:46 PM
(آخر تعديل لهذه المشاركة : 14-07-15, 03:08 PM {2} بواسطة مبرمج بلا حدود.)
جزاكم الله خير ارجوا ارفاق المشروع ان امكن حفظكم الله
وسؤال اخر اذا من ضمن الحقول اضافة صورة كيف يكون زر الاضافة
(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
إن وجدت صعوبة أرفق المشروع
السلام عليكم ورحمة الله وبركاته
جزاكـ الله خير اخي وباركـ الله فيكـ
ارجوا ارفاق المشروع ان امكنك حفظكـ الله
كما وارجوا ان يكون شامل لجميع عمليات قاعدة البيانات وفقك الله
جزاكـ ربي الجنة
وجعله الله في موازين حسناتكـ
المشاركات : 259
المواضيع 111
الإنتساب : Mar 2014
السمعة :
4
الشكر: 1
تم شكره 144 مرات في 30 مشاركات
السلام عليكم ورحمة الله تعالى وبركاته
في هذا الرابط وضعت لك أخي الكريم مثالا كاملا أرجوا أن يساعدك
http://www.4shared.com/rar/Z9tS-NiQce/Sa...aBase.html
بالتوفيق
المشاركات : 481
المواضيع 35
الإنتساب : Oct 2013
السمعة :
6
الشكر: 9709
تم شكره 1454 مرات في 137 مشاركات
(15-07-15, 05:01 AM)djelloul كتب : السلام عليكم ورحمة الله تعالى وبركاته
في هذا الرابط وضعت لك أخي الكريم مثالا كاملا أرجوا أن يساعدك
http://www.4shared.com/rar/Z9tS-NiQce/Sa...aBase.html
بالتوفيق
وعليكم السلام ورحمة الله وبركاته
باركـ الله فيكـ اخي وجزاكـ الله خير
ربي يحفظكـ ويرضى عنكـ
سوغف اطلع عليه واعود اليكـ بما توصلت اليه :
جزاكـ الله خير
المشاركات : 481
المواضيع 35
الإنتساب : Oct 2013
السمعة :
6
الشكر: 9709
تم شكره 1454 مرات في 137 مشاركات
15-07-15, 04:19 PM
(آخر تعديل لهذه المشاركة : 15-07-15, 07:58 PM {2} بواسطة مبرمج بلا حدود.)
جزاكـ الله خير وباركـ الله فيكـ
استاذ ( 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
المشاركات : 259
المواضيع 111
الإنتساب : Mar 2014
السمعة :
4
الشكر: 1
تم شكره 144 مرات في 30 مشاركات
وعليكم السلام ورحمة اله ةتعالى وبركاته
هذا كود تحويل البايتات إلى صورة
' 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
المشاركات : 481
المواضيع 35
الإنتساب : Oct 2013
السمعة :
6
الشكر: 9709
تم شكره 1454 مرات في 137 مشاركات
(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
جزاكـ الله خير رح احاول اشاهدة رغم الانترنت لا يسمح بس ان شاءالله افلح
جزاكـ الله خير
طيب اخي وبخصوص ما تبقى ربي يحفظكـ
المشاركات : 259
المواضيع 111
الإنتساب : Mar 2014
السمعة :
4
الشكر: 1
تم شكره 144 مرات في 30 مشاركات
السلام عليكم ورحمة الله تعالى وبركاته
أخي الكريم عيد مبارك سعيد لك ولكل أعضاء المنتدى
كما نقول نحن الجزائريين بلا جميل كلنا كنا في البداية لا ندري شيء عن البرمجة لكن الحمد لله بفضله سبحانه وتعالى وبفضل الإخوان الإساتذة أعضاء ومسيري منتديات البرمجة خصوصا هذا المنتدى الرائع والذي أنصحك بالتمسك به
وفقك الله
|