منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف اربط برنامجي بقاعدة البيانات اكسس عن طريق الكود ؟؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
الساده الكرام
السلام عليكم ورحمة وبركاته
كيف اربط برنامجي بقاعدة البيانات اكسس عن طريق الكود ؟؟
علماً انني استخدم فجوال البيسك 2008
نامل من الله ثم من الجميع المساعدة في برنامجي المرفق
ابحث قبل ان تسأل .... هذا الموضوع قتل بحثاّ
ادخل قسم قواعد البيلنات وستجد ضالتك
إذا كانت قاعدة البيانات 2003 وما قبلها يعني نوعها mdb يكون كالتالي
كود :
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.[color=#FF0000]Jet[/color].OLEDB.[color=#FF0000]4[/color].0;Data Source=[color=#FF0000]Access2003file.mdb[/color];")

إذا كانت قاعدة البيانات 2007 وما بعدها يعني نوعها accdb يكون كالتالي
كود :
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.[color=#FF0000]ACE[/color].OLEDB.[color=#FF0000]12[/color].0;Data Source=[color=#FF0000]Access2007file.accdb[/color];")
تفضل المثال بعد التعديل

تم التالي
1: تم نقل ملف قاعدة البيانات إلى المجلد debug الموجود في مجلد bin
2: إضافة Application.StartupPath قبل اسم ملف قاعدة البيانات وهي تماثل App.Path في VB6
3: تم تعديل خصائص المشروع: النقر مرتين على My Project في النافذة اليمين في الفجوال ثم اختيار التبويب Compile على اليسار ثم ضغط زر Advanced Compile Options تحت خالص وتغيير Target CPU إلى x86

لاحظت قاعدة البيانات لديك ان id رقم عادي مفتاحي والمعروف انه يكون ترقيم تلقائي مفتاحي،
إذا قمت بتغييره إلى ترقيم تلقائي فاجعل الكود كالتالي (لاحظ ما تم حذفه)
كود :
Public Class Form1

    Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\db1.mdb;")

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Try

            Dim s As String = "INSERT INTO [sameer] (Neme , ymem) VALUES(@Neme , @ymem)"

            Dim c As New OleDb.OleDbCommand(s, con)

            c.Parameters.AddWithValue("@Neme", Me.TextBox2.Text)
            c.Parameters.AddWithValue("@ymem", Me.TextBox3.Text)

            con.Open()
            c.ExecuteNonQuery()
            con.Close()

            MsgBox("تم الحفظ")

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
End Class
MSDOS كتب :تفضل المثال بعد التعديل

تم التالي
1: تم نقل ملف قاعدة البيانات إلى المجلد debug الموجود في مجلد bin
2: إضافة Application.StartupPath قبل اسم ملف قاعدة البيانات وهي تماثل App.Path في VB6
3: تم تعديل خصائص المشروع: النقر مرتين على My Project في النافذة اليمين في الفجوال ثم اختيار التبويب Compile على اليسار ثم ضغط زر Advanced Compile Options تحت خالص وتغيير Target CPU إلى x86

لاحظت قاعدة البيانات لديك ان id رقم عادي مفتاحي والمعروف انه يكون ترقيم تلقائي مفتاحي،
إذا قمت بتغييره إلى ترقيم تلقائي فاجعل الكود كالتالي (لاحظ ما تم حذفه)
كود :
Public Class Form1

    Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\db1.mdb;")

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Try

            Dim s As String = "INSERT INTO [sameer] (Neme , ymem) VALUES(@Neme , @ymem)"

            Dim c As New OleDb.OleDbCommand(s, con)

            c.Parameters.AddWithValue("@Neme", Me.TextBox2.Text)
            c.Parameters.AddWithValue("@ymem", Me.TextBox3.Text)

            con.Open()
            c.ExecuteNonQuery()
            con.Close()

            MsgBox("تم الحفظ")

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
End Class
------------------------------------------------------------------------
لك مني الف تحية وتقدير استاذي العزيز والله يحفظكم ويرعاكم
بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته , وبعد :
تمنيت أخي الكريم لو ممكن .. لو كان فيه في الجدول تشك بوكس .. كيف أتعامل معاها ؟
يعني بالإضافة إلى البيانات اللي في التكستات .. لو فيه مثلاً اختيارات باستخدام تشك بوكس مثل الصلاحيات مثلاً في جدول المستخدمين
MonaAli كتب :بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته , وبعد :
تمنيت أخي الكريم لو ممكن .. لو كان فيه في الجدول تشك بوكس .. كيف أتعامل معاها ؟
يعني بالإضافة إلى البيانات اللي في التكستات .. لو فيه مثلاً اختيارات باستخدام تشك بوكس مثل الصلاحيات مثلاً في جدول المستخدمين

[b]مثال لادارة صلاحيات كل مستخدم لوحده


[/b]
سعود كتب :[b]مثال لادارة صلاحيات كل مستخدم لوحده


[/b]

بارك الله فيك مثال رائع
لو أمكن ان يتم رفعه في اي رابط أو وضعه بالمرفقات مثل : www.gulfup.com فهو لا يتطلب تسجيل الدخول مثل 4 shared Smile

يعطيك العافية
اهلا وسهلا بك اخي Omar Mekkawy
لكن الموقع 4shared هذا قديم ومش خسارة فيه التسجيل لانه بيحفظ عن جد مش زي gulfup حملت فيه مشاريع كثيرة وطارت او ماتت.
لكن احاول ارفعه على المنتدى بعد التعديلات اللازمة.
سعود كتب :اهلا وسهلا بك اخي omar mekkawy
لكن الموقع 4shared هذا قديم ومش خسارة فيه التسجيل لانه بيحفظ عن جد مش زي gulfup حملت فيه مشاريع كثيرة وطارت او ماتت.
لكن احاول ارفعه على المنتدى بعد التعديلات اللازمة.

بارك الله فيك على النصيحة :d
أنا فعلاً حفظت فيه ملفات كثيرة ولسة فاضلة حتى الآن
ياريت ترفعه على المنتدى بيكون أفضل فهناك من لديهم الإتصال بطىء وال 4 شارد مليان صور وإعلانات وراح يستهلك الكثير Smile
يعطيك العافية :d
الصفحات : 1 2