تحدي في ربط الفيجوال استوديو 2012 مع قاعدة بيانات اكسيس - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185) +--- الموضوع : تحدي في ربط الفيجوال استوديو 2012 مع قاعدة بيانات اكسيس (/showthread.php?tid=16309) |
تحدي في ربط الفيجوال استوديو 2012 مع قاعدة بيانات اكسيس - bassamreg - 30-06-16 [attachment=10978] انا اعد برنامج خاص بمدرسة حكومية في عدن اليمن وقد قررت ان يكون مجانا لكل المدارس اليمنية او غيرها حرصا ان يكون في ميزان حسناتي و ميزان من ساهم في مساعدتي على انشائه والله على مااقول شهيد سؤالي هو لدي نافدة من الفورم فيها من البيانات مايربطها بثلاثة جداول من قاعدة البيانات في الاكسيس مثال في الفورم "رقم سجل الطالب,اسم الطالب,الجنس,تاريخ الميلاد"و"اسم ولي الامر,مكان العمل,اسم العمل"و"الحالةالاجتماعية,الحالة النفسية,الحالة الاقتصادية" في قاعدة البيانات الجداول التالية 1-الطالب 2-ولي الامر 3-حالات الطالب طريقة الربط الذي اريدها هي من جدول الطالب كل الاعمدة مثال "رقم سجل الطالب,اسم الطالب,الجنس,تاريخ الميلاد" جدول ولي الامر بعض من اعمدة الجدول في قاعدة البيانات وذلك لان رقم المعرف لولي الامر تلقائي. و من الفورم "رقم سجل الطالب,اسم ولي الامر,مكان العمل,اسم العمل" لان رقم سجل الطالب هو الرابط بين جدول الطالب و ولي الامر جدول الحالات بعض من اعمدة الجدول في قاعدة البيانات وذلك لان رقم المعرف لحالات الطالب تلقائي. و من الفورم "رقم سجل الطالب,الحالةالاجتماعية,الحالة النفسية,الحالة الاقتصادية" لان رقم سجل الطالب هو الرابط بين جدول الطالب و حالات الطالب اريد طريقة صحيحة لادخال البيانات و لاسهل عليكم قد عملت هذة الاكواد ولم انجح ارفقت لكم الملف RE: تحدي في ربط الفيجوال استوديو 2012 مع قاعدة بيانات اكسيس - bassamreg - 07-07-16 للاسف كنت متوقع الاجابة ولكن لم يجيب احد وبعد بحث شديد لاجد الاجابة على ما ابحث وجدت الحل واقدمه للاخوة المبتدئين مثلي ليستفيدوا منه Dim bas1 As String bas1 = (String.Format("insert into degree(degreename, datedgree, degreeschool, schooladdres, whyregestedus, studentId) values ('{0}','{1}','{2}','{3}','{4}',{5})", ComboBox8.Text, TextBox8.Text, ComboBox9.Text, TextBox9.Text, TextBox10.Text, TextBox1.Text)) Dim cmdinsert1 As New OleDbCommand(bas1, con) con.Open() cmdinsert1.ExecuteNonQuery() con.Close() dontsave: Dim bas2 As String bas2 = (String.Format("insert into father(fatherName, relation, workKind, workName, phonNum, homeaddres, workplace, studentId, regesterDate) values ('{0}','{1}','{2}','{3}','{4}','{5}','{6}',{7},#{8}#)", TextBox4.Text, ComboBox2.Text, ComboBox12.Text, TextBox11.Text, TextBox6.Text, TextBox7.Text, TextBox12.Text, TextBox1.Text, DtpReg.Value.ToString("yyyy/MM/dd"))) Dim cmdinsert2 As New OleDbCommand(bas2, con) con.Open() cmdinsert2.ExecuteNonQuery() con.Close() Dim bas3 As String bas3 = (String.Format("insert into caseA(caseAstudent, caseAfather, laevewith, caseAnote, studentId, regesterDate) values ('{0}','{1}','{2}','{3}',{4},#{5}#)", ComboBox15.Text, ComboBox14.Text, TextBox14.Text, TextBox16.Text, TextBox1.Text, DtpReg.Value.ToString("yyyy/MM/dd"))) Dim cmdinsert3 As New OleDbCommand(bas3, con) con.Open() cmdinsert3.ExecuteNonQuery() con.Close() Dim bas4 As String bas4 = (String.Format("insert into caseB(caseBody, caseSil, caseName, caseBnote, studentId, regesterDate) values ('{0}','{1}','{2}','{3}',{4},#{5}#)", ComboBox5.Text, ComboBox13.Text, TextBox13.Text, TextBox15.Text, TextBox1.Text, DtpReg.Value.ToString("yyyy/MM/dd"))) Dim cmdinsert4 As New OleDbCommand(bas4, con) con.Open() cmdinsert4.ExecuteNonQuery() con.Close() Dim bas5 As String bas5 = (String.Format("insert into caseE(caseEfather, caseEmony, caseEnote, studentId, regesterDate) values ('{0}','{1}','{2}',{3},#{4}#)", ComboBox17.Text, ComboBox16.Text, TextBox17.Text, TextBox1.Text, DtpReg.Value.ToString("yyyy/MM/dd"))) Dim cmdinsert5 As New OleDbCommand(bas5, con) con.Open() cmdinsert5.ExecuteNonQuery() con.Close() Dim bas6 As String bas6 = (String.Format("insert into student(studentId, clasId, dateRegster, studentName, familyName, sexStudent, placeBorn, dateBorn, yearstudy, studentPosation, isshow, picpath) values ({0},{1},#{2}#,'{3}','{4}','{5}','{6}',#{7}#,{8},'{9}',1,@picpath)", TextBox1.Text, ComboBox6.Text, DtpReg.Value.ToString("yyyy/MM/dd"), TextBox2.Text, TextBox3.Text, ComboBox1.Text, TextBox5.Text, dtpporn.Value.ToString("yyyy/MM/dd"), ComboBox3.Text, ComboBox7.Text)) Dim cmdinsert6 As New OleDbCommand(bas6, con) If path = Nothing Then cmdinsert6.Parameters.AddWithValue("@picpath", picStud.Image) GoTo without Else cmdinsert6.Parameters.AddWithValue("@picpath", path) GoTo within End If without: If MsgBox("هل انت متأكد انك تريد الحفظ بدون صورة الطالب ", MsgBoxStyle.YesNo, "ارجو الانتباه عند ادخال البيانات") = MsgBoxResult.No Then Return End If within: con.Open() cmdinsert6.ExecuteNonQuery() con.Close() MsgBox("تم ادخال وحفظ بيانات هذا الطالب الجديد " & Environment.NewLine & TextBox2.Text & " بنجاح ", MessageBoxIcon.Information, "شكر وتقدير") Catch ex As Exception MsgBox(ex.Message.ToString) Return End Try path = Nothing PicInsert.Enabled = False dgv1.Visible = False GroupBox5.Enabled = False BtnSave.Enabled = False BtnNew.Enabled = True GroupBox4.Enabled = False GroupBox3.Enabled = False GroupBox2.Enabled = False GroupBox6.Enabled = False GroupBox7.Enabled = False GroupBox8.Enabled = False GroupBox9.Enabled = False End If Return RE: تحدي في ربط الفيجوال استوديو 2012 مع قاعدة بيانات اكسيس - أبوبكر سويدان - 07-07-16 ربما يفيدك هذا الدرس: http://vb4arb.com/vb/thread-9346.html |