تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اربط برنامجي بقاعدة البيانات اكسس عن طريق الكود ؟؟
#1
الساده الكرام
السلام عليكم ورحمة وبركاته
كيف اربط برنامجي بقاعدة البيانات اكسس عن طريق الكود ؟؟
علماً انني استخدم فجوال البيسك 2008
نامل من الله ثم من الجميع المساعدة في برنامجي المرفق


الملفات المرفقة
.rar   softme.rar (الحجم : 69.27 ك ب / التحميلات : 40)
الرد }}}
تم الشكر بواسطة:
#2
ابحث قبل ان تسأل .... هذا الموضوع قتل بحثاّ
ادخل قسم قواعد البيلنات وستجد ضالتك
الرد }}}
تم الشكر بواسطة:
#3
إذا كانت قاعدة البيانات 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];")
الرد }}}
تم الشكر بواسطة:
#4
تفضل المثال بعد التعديل

تم التالي
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


الملفات المرفقة
.rar   softmail8 - softme.rar (الحجم : 74.64 ك ب / التحميلات : 67)
الرد }}}
تم الشكر بواسطة:
#5
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
------------------------------------------------------------------------
لك مني الف تحية وتقدير استاذي العزيز والله يحفظكم ويرعاكم
الرد }}}
تم الشكر بواسطة:
#6
بسم الله الرحمن الرحيم

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

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

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


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


[/b]

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

يعطيك العافية
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
الرد }}}
تم الشكر بواسطة:
#9
اهلا وسهلا بك اخي Omar Mekkawy
لكن الموقع 4shared هذا قديم ومش خسارة فيه التسجيل لانه بيحفظ عن جد مش زي gulfup حملت فيه مشاريع كثيرة وطارت او ماتت.
لكن احاول ارفعه على المنتدى بعد التعديلات اللازمة.
الرد }}}
تم الشكر بواسطة:
#10
سعود كتب :اهلا وسهلا بك اخي omar mekkawy
لكن الموقع 4shared هذا قديم ومش خسارة فيه التسجيل لانه بيحفظ عن جد مش زي gulfup حملت فيه مشاريع كثيرة وطارت او ماتت.
لكن احاول ارفعه على المنتدى بعد التعديلات اللازمة.

بارك الله فيك على النصيحة :d
أنا فعلاً حفظت فيه ملفات كثيرة ولسة فاضلة حتى الآن
ياريت ترفعه على المنتدى بيكون أفضل فهناك من لديهم الإتصال بطىء وال 4 شارد مليان صور وإعلانات وراح يستهلك الكثير Smile
يعطيك العافية :d
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام من عدة جداول لقاعدة بيانات اكسس Adel27213 1 702 07-11-23, 08:27 AM
آخر رد: justforit
  [سؤال] عدم إظهار الصور مع النص فى Listview من قاعدة البيانات alims 2 1,581 27-08-23, 12:22 PM
آخر رد: رضوان الجماعي
  استفسار عن تخزين الوقت في قاعدة البيانات strongriseman 2 1,126 22-04-22, 07:27 PM
آخر رد: strongriseman
Lightbulb طلب : مشروع الارشفة الالكترونية للوثائق و المستندات عن طريق الماسح الضوئي قاموس نفر 0 1,243 11-01-22, 02:21 AM
آخر رد: قاموس نفر
  [سؤال] مشكلة فى عرض الصورة من ادخل قاعدة البيانات alims 2 1,264 17-11-21, 10:09 AM
آخر رد: سعود
  كيف اتجنب أخطاء ارسال قيم فارغة الى حقول رقمية في اكسس بسام محمدغانم 2 1,135 09-11-21, 02:09 AM
آخر رد: Anas Mahmoud
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 0 964 23-10-21, 01:43 AM
آخر رد: بسام محمدغانم
  [Acces2010] اريد تعديل الكود للاكسس بسام محمدغانم 0 833 13-10-21, 09:14 PM
آخر رد: بسام محمدغانم
  كيف افتح قاعة بيانات اكسس بسام محمدغانم 1 1,404 04-10-21, 02:52 AM
آخر رد: اسلام الكبابى
  تشغيل الsql server على جهاز متصل بالسيرفر عن طريق vpn bassant 1 1,076 20-09-21, 11:10 AM
آخر رد: bassant

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


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