[ahmed salam]

[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]