تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[شرح] اتصال بقاعدة بيانات اكسيس , اضافة بيان , تعديل بيان , حذف بيان , عرض البيانات ... ارجو التثبيت
#1
[COLOR="#4B0082"]السلام عليكم و رحمة الله و بركاته

مرحبا بكم في اولي مواضيعي في هذا المنتدي المتميز
جعله الله العون و السند لكل طالب علم

في هذا الموضوع سوف نتعلم سويا و من الالف الي الياء كلا من :
--------------------------------------
كيفية الاتصال بقاعدة بيانات اكسيس
اضافة بيان الي قاعدة البيانات
عرض البيانات من قاعدة البيانات
حذف بيان معين
تعديل علي بيان حالي

ارجو التثبيت لكي يكون مرجع يسهل علي الكثير
و سوف ابدأ شرح كل نقطة شرح مفصل و وافي انشاء الله

و نبدأ بكود الأتصال :
اولا : ان قاعدة البيانات هي مخزن كبير يتسع لكل ملفات برنامجكك
اعتبرها الارشيف
و كل ما كان الارشيف بتاعك منظم كل ما زاد الاستفادة منه
و سهولة ادخال و استخراج البيانات منه
لذلك انصح قبل انشاء اي قاعدة بيانات استخدام ورقة و قلم
لتحديد المطلوب و المراد بالظبط قبل تنفيذه لكي تري الصورة كاملة قبل البدء
اسف للاطاله و لكن الشرح التفصيلي افضل

شخصيا عند اضافة قاعد بيانات لبرنامجي افضل ربطها برمجيا
اي عن طريق الاكواد
و اختصارا للوقت احب انها تكون في مديول لكي استدعيها بسهولة في اي وقت
و كبدايه سوف انشأ مشروع جديد و اضيف مديول للمشروع و ليكن
Module1
و سوف اقوم بتعريف المتغيرات الثابته معي لكي لا اعيد كتابتها كل مرة
كود :
Public cnn As New OleDb.OleDbConnection
Public cmd As New OleDb.OleDbCommand
Public dbpass As String = "data base password"
و بعد ذلك سوف اقوم بأضافة كود الأتصال
كود :
Public Sub dataconnection()
        If cnn.State = ConnectionState.Open Then ' اذا كان الاتصال مفتوح اغلقه
            cnn.Close()
        End If
        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\data.mdb;Jet OLEDB:Database Password=" & dbpass
        If Not cnn.State = ConnectionState.Open Then
            'افتح الاتصال
            cnn.Open()
        End If
    End Sub
الان كل ما علي فعله هوا
عند الاتصال بقاعدة البيانات من اي فورم فرعي
فقط كتابة
dataconnection
و سوف يتم استدعاء كود الاتصال
اذا الكود الكامل للمديول
كود :
Module Module1
Public cnn As New OleDb.OleDbConnection
    Public cmd As New OleDb.OleDbCommand
Public dbpass As String = "data base password"
Public Sub dataconnection()
        If cnn.State = ConnectionState.Open Then ' اذا كان الاتصال مفتوح اغلقه
            cnn.Close()
        End If
        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\data.mdb;Jet OLEDB:Database Password=" & dbpass
        If Not cnn.State = ConnectionState.Open Then
            'افتح الاتصال
            cnn.Open()
        End If
    End Sub
End Module



ملحوظة اذا كانت قاعدة البيانات غير محمية بكلمة سوف يكون الكود كالتالي
كود :
Module Module1
Public cnn As New OleDb.OleDbConnection
    Public cmd As New OleDb.OleDbCommand
Public dbpass As String = ""
Public Sub dataconnection()
        If cnn.State = ConnectionState.Open Then ' اذا كان الاتصال مفتوح اغلقه
            cnn.Close()
        End If
        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\data.mdb;Jet OLEDB:Database Password=" & dbpass
        If Not cnn.State = ConnectionState.Open Then
            'افتح الاتصال
            cnn.Open()
        End If
    End Sub
End Module
و الان تمت بحمد الله اول نقطة الي الباقي
----------------------------------------------------------

اضافة بيان لقاعدة البيانات

الان لنقوم بأضافة جدول جديد في قاعدة البيانات وليكن emp
و سوف يحتوي علي بيانات الموظفين مثل الاسم و العنوان و رقم الهاتف
لنسمي اول عمود ب ID و الداتا طيب autonumber
EmpName و الداتا طيب text
EmpAdd وهذا ايضا text
EmpNum وكذلك هذا text

اما فائدة العمود الاول فهو المسلسل الخاص بكل موظف لضمان عدم حدوث خطأ
اثناء وجود تشابه في الاسم مثلا و كذله له استخدامات اخري سوف تظهر مع متابعتك للموضوع

الان سوف نضيف فورم جديد
بداخله 3 تكست بوكس
الاول للاسم و الثاني للعنوان و الثالث لرقم الهاتف
و زر واحد و هو حفظ


و سوف نقوم بكتابة الكود التالي في زر الحفظ
كود :
dataconnection()
cmd.Connection = cnn
                cmd.CommandText = "INSERT INTO [emp] " & _
                           "([EmpName],[EmpAss],[EmpNum]) VALUES" & _
                     "('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
                cmd.ExecuteNonQuery()
                cnn.Close()



و بهاذا نكون اكملنا النقطة الثانية بحمد الله


سوف استكمل الموضوع علي الرابط التالي
http://vb4arb.com/vb/showthread.php?3053...B%C8%ED%CA
[/COLOR]
اللهم صلي وسلم و بارك علي اشرف الخلق و اكرم المرسلين سيدنا محمد ﷺ
لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته
الرد }}}}
تم الشكر بواسطة:
#2
سوف يتم استكمال الموضوع علي الرابط التالي
http://vb4arb.com/vb/showthread.php?3053...B%C8%ED%CA
اللهم صلي وسلم و بارك علي اشرف الخلق و اكرم المرسلين سيدنا محمد ﷺ
لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته
الرد }}}}
تم الشكر بواسطة:
#3
موفق شرح رائع جزاك الله خيرا
الرد }}}}
تم الشكر بواسطة:
#4
الله يعطيك العافية
شرح مميز وواضح
الرد }}}}
تم الشكر بواسطة:
#5
بارك الله فيك وشكرا لك على شرحك المميز

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم اخي العزيز

اذا اردت طرح مقالة فاطرحه في قسم المقلات (قسم مقالات قواعد البيانات)

بارك الله فيك مشكور ونتمنالك الموفقية ان شاءالله
الرد }}}}
تم الشكر بواسطة:
#7
sajad كتب :السلام عليكم اخي العزيز

اذا اردت طرح مقالة فاطرحه في قسم المقلات (قسم مقالات قواعد البيانات)

بارك الله فيك مشكور ونتمنالك الموفقية ان شاءالله

اخي الكريم لقد اضفت الموضوع في هذا القسم لاني احتاجه في مواضيعي المقبلة انشاء الله

ف سوف استكمل مواضيع اخري بناء علي هذا الموضوع

ولكن المشكلة هي ان الموضوع يومين و هيبقي في الصفحة الثانية و هيتنسي
لذلك ارجو من المشرفين اذا وجدوا ان الموضوع يستحق التثبيت فأرجوا تثبيته
وشكرااااا
اللهم صلي وسلم و بارك علي اشرف الخلق و اكرم المرسلين سيدنا محمد ﷺ
لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته
الرد }}}}
تم الشكر بواسطة:
#8
[COLOR="#FF0000"]السلام عليكم

اخي العزيز هذا خلاف قوانين المنتدى فلا يجوز كتابة الشروحات في قسم الاسئلة فلكل موضوع له قسم مخصص في هذا المنتدى ارجو الالتزام بقوانين المنتدى


[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#9
بارك الله فيك اخي واصل
The most difficult part of developing a program is understanding the problem.
----8<------------------------------------------------------------------------------------
The second most difficult part is deciding how you're going to solve the problem.
----8<------------------------------------------------------------------------------------
الرد }}}}
تم الشكر بواسطة:
#10
eng كتب :بارك الله فيك اخي واصل

سوف يتم استكمال الموضوع علي الرابط التالي
http://vb4arb.com/vb/showthread.php?3053...B%C8%ED%CA
اللهم صلي وسلم و بارك علي اشرف الخلق و اكرم المرسلين سيدنا محمد ﷺ
لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس نبيل فتحى 4 73 منذ 11 ساعة مضت
آخر رد: نبيل فتحى
  اريد تعديل ع المشروع فقط + تحميل المشروع بالكامل e-coder 4 101 أمس, 12:09 AM
آخر رد: e-coder
  عمل شريط متحرك من قاعدة البيانات hglogtd 24 288 15-10-17, 11:54 PM
آخر رد: hglogtd
  [VB.NET] اخر تعديل بالكلاس محمد اسماعيل 1 39 14-10-17, 09:41 PM
آخر رد: محمد اسماعيل
  [VB.NET] قاعدة بيانات اكسس hglogtd 8 125 14-10-17, 03:38 PM
آخر رد: hglogtd
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 35 13-10-17, 06:39 PM
آخر رد: e-coder
  ربط combobox بصفحه البيانات abdel.halim 8 132 11-10-17, 07:27 PM
آخر رد: abdel.halim
  توقف قاعدة البيانات عن الاستجابة وعدم قبول اي تعديلات nassery99 2 54 09-10-17, 06:34 PM
آخر رد: nassery99
  مساعده بفكره بناء جدول بيانات ( اداره رواتب الموظفين) Rabeea Qbaha 4 116 09-10-17, 12:22 AM
آخر رد: Amir_alzubidy
  اضافة 0 قبل العلامه العشريه فى التكست بوكس نبيل فتحى 6 114 08-10-17, 03:21 AM
آخر رد: نبيل فتحى

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


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