مرحبا:
بعد ان تعلمنا كيفية ربط قاعدة البيانات مع الاكسس بالموضوع هذاهنا
اليوم نستكمل هذا الدرس..
.. بعد ان اضفنا عدة نماذج جديدة forms وغيرنا اسمائهن حسب الحاجة ..
هسه اريدك تروحلي للفورم الي سمينا neww (( هسه شغلنا كله على الفورم neww ))
اضف صناديق للنصوص عدد 8 وانطيهن تسميات مثل ما سوينا بالدرس السابق
. الان اضف 3 ازرار امر ..
غير اسم الاول الى : حفظ
الثاني : تفريغ الحقول
الثالث : الغاء الامر
-------------------------------
الان اكتب هذا الكود بالتصريحات العامة الخاصة بالفورم neww
Imports System.Data
Imports System.Data.OleDb
===================
عرف main في الفورم neww
Dim main As New main
===================
Try
Dim Savecommand As New OleDb.OleDbCommand
Dim connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\spyman.mdb"
Dim newconnection As New OleDbConnection(connectionstring)
Savecommand.Connection = newconnection
Savecommand.CommandType = CommandType.Text
Savecommand.CommandText = "insert into spy ([id],[name],[pri],[num],[ttody],[ddate],[deb],[mob]) values ('" & _
TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & _
TextBox8.Text & "')"
newconnection.Open()
Savecommand.ExecuteNonQuery()
newconnection.Close()
MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح", 64, "حفظ الاضافة")
Me.Close()
main.Show()
Catch ex As Exception
MsgBox(ex.Message, 16, "خطأ")
End Try
الكود واضح جداً ,, وهو استدعاء لقاعدة البيانات وفتحها
ثم اضافة القيم المدخلة الى الصناديق الى قاعدة البيانات
وايضاً يحتوي الكود على خاصية اصطياد الاخطاء و عرض الخطأ في رسالة
==============================================
وفي زر الامر الثاني اكتب
Me.Close()
main.Show()
كملنا فورم الاضافة ..
==============================================
هسه نجي لفورم التعديل : الفورم edit
نفس الحالة .. ضيف النا 8 صناديق نصوص واطلق عليهن تسميات كما سوينا بالموضوع السابق
-------------------------------------------------
بالتصريحات العامة للفورم edit اكتب الكود التالي :
Imports System.Data
Imports System.Data.OleDb
-----------------------------------------------------
عرف الفورم main على انه الرئيسي
Dim main As New main
----------------------------------------------------
ضع 2 من ازرار الامر :
سمي الاول : حفظ والثاني الغاء
في الزر حفظ اكتب الشفرة التالية :
Try
Dim n As String = Label6.Text
Dim Savecommand As New OleDb.OleDbCommand
Dim Connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\spyman.mdb"
Dim newconnection As New OleDbConnection(Connectionstring)
Savecommand.Connection = newconnection
Savecommand.CommandType = CommandType.Text
Savecommand.CommandText = "UPDATE spy SET name = '" & Trim(TextBox2.Text) & "' , pri = '" & Trim(TextBox3.Text) & "' , num = '" & Trim(TextBox4.Text) & "' , ttody = '" & Trim(TextBox5.Text) & "' , ddate = '" & Trim(TextBox6.Text) & "' , deb= '" & Trim(TextBox7.Text) & "' ,mob = '" & Trim(TextBox8.Text) & "' WHERE id like '" & n & "'"
newconnection.Open()
Savecommand.ExecuteNonQuery()
newconnection.Close()
MsgBox("تم التعديل", 64, "نجاح")
Me.Close()
main.Show()
Catch ex As Exception
MsgBox(ex.Message, 16, "خطأ")
End Try
وفي زر الامر الثاني اكتب
Me.Close()
main.Show()
=============================
ما اختلف الكود كثيراً عن بقية الاكواد
هسه كملنا فورم التعديل edit
بقى النا فورم واحد وهو فورم البحث على باجر انسويه
علمود باجراضيف مشروع مفتوح متكامل ان شاء الله
تحياتي الكم
رد مع اقتباس
