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

.rar   fras.rar (الحجم : 2.99 م ب / التحميلات : 72)
انا اعد برنامج خاص بمدرسة حكومية في عدن اليمن وقد قررت ان يكون مجانا لكل المدارس اليمنية او غيرها حرصا ان يكون في ميزان حسناتي و ميزان من ساهم في مساعدتي على انشائه والله على مااقول شهيد
سؤالي هو
لدي نافدة من الفورم فيها من البيانات مايربطها بثلاثة جداول من قاعدة البيانات في الاكسيس
مثال في الفورم "رقم سجل الطالب,اسم الطالب,الجنس,تاريخ الميلاد"و"اسم ولي الامر,مكان العمل,اسم العمل"و"الحالةالاجتماعية,الحالة النفسية,الحالة الاقتصادية"
في قاعدة البيانات الجداول التالية 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
الرد }}}}
تم الشكر بواسطة: الوادي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لحفظ ملفات مثل PDF أو حتى exe يمكن حفظها في قاعدة البيانات في صورة بايناري ()Byte ثم safalo 2 261 09-06-17, 10:47 PM
آخر رد: nana3466
  ابحث عن كود vb2008 للتنقل بين جداول قاعدة بيانات اكسس gharib 6 272 20-05-17, 08:46 AM
آخر رد: gharib
Information كيفية ربط ملف نصي نوع txt موجود به مسار قاعدة البيانات ؟ moh_g 2 188 18-05-17, 05:08 PM
آخر رد: moh_g
  طلب كود الاتصال بقاعدة بيانات موجودة في جهاز اخر thevirus 9 995 17-04-17, 02:45 AM
آخر رد: ABDSH
  طلب كود لظافة الصورة في قاعدة بيانات اكسس a.baomar 3 226 11-04-17, 10:37 PM
آخر رد: abdualla
  [سؤال] كيفية الربط بين الفيجوال بيسك والاكسيل محمد معمر 0 164 07-04-17, 02:24 AM
آخر رد: محمد معمر
  [VB.NET] قاعد بيانات اكسس mohamed fayez2017 1 184 31-03-17, 06:39 AM
آخر رد: حريف برمجة
  [كود] كيف اتراجع عن عملية اضافة الى قاعدة البيانات عند حدوث خطأ ما myalsailamy 0 457 02-11-16, 01:48 AM
آخر رد: myalsailamy
Sad [سؤال] مستخدمين البرنامج و قاعدة البيانات ! GeneralEG 5 966 01-07-16, 07:15 AM
آخر رد: GeneralEG
  [كود] ملف txt تحميله الي قاعدة البيانات dubai.eig 1 530 29-05-16, 12:04 AM
آخر رد: CLARO

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


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