تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحدي في ربط الفيجوال استوديو 2012 مع قاعدة بيانات اكسيس
#1

.rar   fras.rar (الحجم : 2.99 م ب / التحميلات : 41)
انا اعد برنامج خاص بمدرسة حكومية في عدن اليمن وقد قررت ان يكون مجانا لكل المدارس اليمنية او غيرها حرصا ان يكون في ميزان حسناتي و ميزان من ساهم في مساعدتي على انشائه والله على مااقول شهيد
سؤالي هو
لدي نافدة من الفورم فيها من البيانات مايربطها بثلاثة جداول من قاعدة البيانات في الاكسيس
مثال في الفورم "رقم سجل الطالب,اسم الطالب,الجنس,تاريخ الميلاد"و"اسم ولي الامر,مكان العمل,اسم العمل"و"الحالةالاجتماعية,الحالة النفسية,الحالة الاقتصادية"
في قاعدة البيانات الجداول التالية 1-الطالب 2-ولي الامر 3-حالات الطالب
طريقة الربط الذي اريدها هي من
جدول الطالب كل الاعمدة مثال "رقم سجل الطالب,اسم الطالب,الجنس,تاريخ الميلاد"

جدول ولي الامر بعض من اعمدة الجدول في قاعدة البيانات وذلك لان رقم المعرف لولي الامر تلقائي. و من الفورم "رقم سجل الطالب,اسم ولي الامر,مكان العمل,اسم العمل" لان رقم سجل الطالب هو الرابط بين جدول الطالب و ولي الامر

جدول الحالات بعض من اعمدة الجدول في قاعدة البيانات وذلك لان رقم المعرف لحالات الطالب تلقائي. و من الفورم "رقم سجل الطالب,الحالةالاجتماعية,الحالة النفسية,الحالة الاقتصادية" لان رقم سجل الطالب هو الرابط بين جدول الطالب و حالات الطالب
اريد طريقة صحيحة لادخال البيانات و لاسهل عليكم قد عملت هذة الاكواد ولم انجح
ارفقت لكم الملف
الرد }}}}
تم الشكر بواسطة:
#2
للاسف كنت متوقع الاجابة ولكن لم يجيب احد وبعد بحث شديد لاجد الاجابة على ما ابحث وجدت الحل واقدمه للاخوة المبتدئين مثلي ليستفيدوا منه
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
الرد }}}}
تم الشكر بواسطة: الوادي
#3
ربما يفيدك هذا الدرس:
http://vb4arb.com/vb/thread-9346.html
الرد }}}}
تم الشكر بواسطة: الوادي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب كود الاتصال بقاعدة بيانات موجودة في جهاز اخر thevirus 1 112 11-11-16, 07:40 PM
آخر رد: ahmedseddek
  [كود] كيف اتراجع عن عملية اضافة الى قاعدة البيانات عند حدوث خطأ ما myalsailamy 0 72 02-11-16, 01:48 AM
آخر رد: myalsailamy
Sad [سؤال] مستخدمين البرنامج و قاعدة البيانات ! GeneralEG 5 353 01-07-16, 07:15 AM
آخر رد: GeneralEG
  [كود] ملف txt تحميله الي قاعدة البيانات dubai.eig 1 300 29-05-16, 12:04 AM
آخر رد: CLARO
  [VB.NET] تشغيل قاعدة البيانات التي على السيرفر من اي جهاز على الشبكة ahmed saleh 3 1,092 29-05-16, 12:03 AM
آخر رد: CLARO
  مساعدة ، كيف يمكن نقل بيانات من الداتاكريد الى اخرى بشروط معينة رعد الغبان 0 223 20-01-16, 09:17 AM
آخر رد: رعد الغبان
  كود إضافة صورة في قاعدة بيانات أكسيس saffor 5 1,060 20-11-15, 10:02 PM
آخر رد: HASAN6.0
  اريد معرفة كيفية ربط الفيجوال نت مع sql serever بواسطة المفكرة emhemad 4 1,057 20-07-15, 03:40 AM
آخر رد: ناجي إبراهيم

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


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