تقييم الموضوع :
  • 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
اللهم صلي وسلم و بارك علي اشرف الخلق و اكرم المرسلين سيدنا محمد ﷺ
لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 9 111 منذ 5 ساعة مضت
آخر رد: ali.alfoly
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 3 67 منذ 5 ساعة مضت
آخر رد: ali.alfoly
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 3 77 أمس, 05:10 PM
آخر رد: tryold
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 42 03-12-16, 07:07 PM
آخر رد: ابراهيم النعيمي
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 34 03-12-16, 06:59 PM
آخر رد: sal.softip
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 190 03-12-16, 04:47 PM
آخر رد: صبري زينوبي
  [VB.NET] استدعاء بيانات من الاكسس لل vb.net مهند الموسوي 1 68 02-12-16, 03:14 PM
آخر رد: مهند الموسوي
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 38 29-11-16, 01:37 AM
آخر رد: hglogtd
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 97 26-11-16, 03:03 AM
آخر رد: hglogtd
  [سؤال] مشاركة برنامج متصل بقاعدة بيانات sql على شبكه محلية mohammedbassim 3 81 24-11-16, 11:40 PM
آخر رد: mohammedbassim

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


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