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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  بخصوص استيراد البيانات من الاكسيل salah mansour 1 25 منذ 9 ساعة مضت
آخر رد: khaled12345
Smile [كود] مطلوب كود قصير لكن مهم ارجو ان تفيدونى elmezo 3 59 منذ 9 ساعة مضت
آخر رد: khodor1985
  [VB.NET] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) الماجيك مسعد 16 256 أمس, 05:21 PM
آخر رد: alma2
  [VB.NET] كيفية اضافة change password بدون استخدام الكنترول ؟ ahmednab 1 307 26-05-17, 06:57 PM
آخر رد: النسر79
  مشروع صغير لبيانات الموظفين ارجو التعديل علية a.baomar 5 176 23-05-17, 04:58 AM
آخر رد: a.baomar
  ارسال بيانات عن طريق الإنترنت أسامة السالمي 7 140 22-05-17, 04:43 PM
آخر رد: Amir_alzubidy
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 108 22-05-17, 09:25 AM
آخر رد: hglogtd
  اضافة استعلامات جديدة rabeh.ram 10 189 22-05-17, 03:59 AM
آخر رد: rabeh.ram
  البحث في قاعدة بيانات اكسس hatem555 6 135 22-05-17, 02:53 AM
آخر رد: hatem555
  ارجو المساعدة لو تكرمتم rabeh.ram 4 93 20-05-17, 02:48 AM
آخر رد: rabeh.ram

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


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