تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] هل يوجد شرح بصور عن كيفة ربط قواعد البيانات اكسس عن طريق الكود ؟؟
#1
Question 
الساده الكرام
السلام عليكم ورحمة وبركاته
هل يوجد شرح بصور عن كيفة ربط قواعد البيانات اكسس عن طريق الكود ؟؟
وجزكم الله خيراً
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاتة

يا اخى سؤالك هذا -- لو اتعبت نفسك دقيقة وبحثت فى المنتدى

سوف تلاحظ انة مجاب عنة مئات المرات

فرجاء اذا كنت تريد ان تصبح مبرمج حقيقى لاتأخذ المعلومة على طبق من ذهب

وابحث مرة واثنين وثلاثة .. وفى حالة عدم عثورك على المعلومة يمكنك فى هذة الحالة

ان تطرح سؤالك فى المنتدى

والسلام عليكم

-----------------------
Software Developer

Microsoft Partner

الرد }}}}
تم الشكر بواسطة: Abu Ehab
#3
(22-10-13, 12:40 AM)sherif khalid كتب :
السلام عليكم ورحمة الله وبركاتة

يا اخى سؤالك هذا -- لو اتعبت نفسك دقيقة وبحثت فى المنتدى

سوف تلاحظ انة مجاب عنة مئات المرات

فرجاء اذا كنت تريد ان تصبح مبرمج حقيقى لاتأخذ المعلومة على طبق من ذهب

وابحث مرة واثنين وثلاثة .. وفى حالة عدم عثورك على المعلومة يمكنك فى هذة الحالة

ان تطرح سؤالك فى المنتدى

والسلام عليكم
------------------------------------------------------------------------------------
لاخي العزيز
السلام عليكم ورحمةوبركاته
لم اجد عن طريق البحث في المنتدى إجابة على السوال هل يمكن المساعده من طرفكم
ولكم مني جزيل الشكر والتقدير
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#4
الي فهمته منك انك تبغى كود الاتصال يعني ربط القاعدة الاكسس بالفيجوال بالكود

تفضل هذا الطريقة بالنوعين
Microsoft ACE OLEDB 12.0
Microsoft Jet OLE DB 4.0

الموقع توجد فيها الاكواد
http://www.connectionstrings.com/access/
الرد }}}}
تم الشكر بواسطة:
#5
انظر للموضوع التالي ربما تستفيد منه:
http://vb4arb.com/vb/showthread.php?tid=645

لك تحية.
اللهم ارحم فقيدنا ابا ليث

الرد }}}}
تم الشكر بواسطة: العزابي
#6
(22-10-13, 08:41 PM)العزابي كتب : الي فهمته منك انك تبغى كود الاتصال يعني ربط القاعدة الاكسس بالفيجوال بالكود

تفضل هذا الطريقة بالنوعين
Microsoft ACE OLEDB 12.0
Microsoft Jet OLE DB 4.0

الموقع توجد فيها الاكواد
http://www.connectionstrings.com/access/

--------------------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
هل في الامكان المساعده في برنامجي المرفق ؟؟
والله يحفظكم ويرعاكم

(22-10-13, 10:20 PM)أبوبكر سويدان كتب : انظر للموضوع التالي ربما تستفيد منه:
http://vb4arb.com/vb/showthread.php?tid=645

لك تحية.

------------------------------------------------------------------------------------------
خي العزيز
السلام عليكم ورحمة وبركاته
هل في الامكان المساعده في برنامجي المرفق ؟؟
والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#7
شوف ياخي الكريم أنا عندي 2010 وماراح يشتغل معاك

انا راح اعطيك الكود تحطه بالفورم

كود :
Imports System.Data.OleDb

Public Class Form1
    Public con As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\db1.mdb;user id=admin")
    Dim DataSet1 As New DataSet
    Dim DataAdapter1 As New OleDbDataAdapter
    Dim BindingSource1 As BindingSource
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim toob As OleDbCommand = New OleDbCommand("SELECT iD,Name,sss from toob order by id", con)
        DataAdapter1 = New OleDbDataAdapter(toob)
        Dim builder1 As New OleDbCommandBuilder(DataAdapter1)

        DataSet1 = New DataSet()

        DataAdapter1.Fill(DataSet1, "toob")

        BindingSource1 = New BindingSource(DataSet1, "toob")

        TextBox1.DataBindings.Add("Text", BindingSource1, "iD", True, 1, "")
        TextBox2.DataBindings.Add("Text", BindingSource1, "Name", True, 1, "")
        TextBox3.DataBindings.Add("Text", BindingSource1, "sss", True, 1, "")

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("هل تريد اضافة سجل جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "اضافة سجل جديد") = MsgBoxResult.Cancel Then Exit Sub

        Application.DoEvents()

        ' الغاء اضافة السجل او السجلات الجديدة والتراجع عن التعديل دام لم يتم حفظها
        'وسبب وضع الامر هنا من  شان اذا ضغطت زر الاضافة اكثر من مرة
        DataSet1.RejectChanges()

        'امر اضافة سجل جديد
        BindingSource1.AddNew()

        'كود انهاء عملية الاضافة ولكن لم يحفظ في القاعدة بعد
        BindingSource1.EndEdit()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try

            If BindingSource1.Count = 0 Then Beep() : Exit Sub

            'كود حفظ الاضافة وحفظ التعديل
            BindingSource1.EndEdit()
            DataAdapter1.Update(DataSet1, "toob")
          
            MsgBox("تمت عملية حفظ قاعدة البيانات بنجاح", 64 + 524288, "نجاح الحفظ")

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
End Class


ولمعلوميتك فيه فيه قسم المشاريع أمثلة رائعة .

حاجة مهمة أنا غيرت اسم حقل القسم بالقاعدة عندك لانها محجوزة إلى SSS
الرد }}}}
تم الشكر بواسطة: Sajad , Microformt
#8
(23-10-13, 09:41 PM)العزابي كتب : شوف ياخي الكريم أنا عندي 2010 وماراح يشتغل معاك

انا راح اعطيك الكود تحطه بالفورم

كود :
Imports System.Data.OleDb

Public Class Form1
    Public con As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\db1.mdb;user id=admin")
    Dim DataSet1 As New DataSet
    Dim DataAdapter1 As New OleDbDataAdapter
    Dim BindingSource1 As BindingSource
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim toob As OleDbCommand = New OleDbCommand("SELECT iD,Name,sss from toob order by id", con)
        DataAdapter1 = New OleDbDataAdapter(toob)
        Dim builder1 As New OleDbCommandBuilder(DataAdapter1)

        DataSet1 = New DataSet()

        DataAdapter1.Fill(DataSet1, "toob")

        BindingSource1 = New BindingSource(DataSet1, "toob")

        TextBox1.DataBindings.Add("Text", BindingSource1, "iD", True, 1, "")
        TextBox2.DataBindings.Add("Text", BindingSource1, "Name", True, 1, "")
        TextBox3.DataBindings.Add("Text", BindingSource1, "sss", True, 1, "")

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("هل تريد اضافة سجل جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "اضافة سجل جديد") = MsgBoxResult.Cancel Then Exit Sub

        Application.DoEvents()

        ' الغاء اضافة السجل او السجلات الجديدة والتراجع عن التعديل دام لم يتم حفظها
        'وسبب وضع الامر هنا من  شان اذا ضغطت زر الاضافة اكثر من مرة
        DataSet1.RejectChanges()

        'امر اضافة سجل جديد
        BindingSource1.AddNew()

        'كود انهاء عملية الاضافة ولكن لم يحفظ في القاعدة بعد
        BindingSource1.EndEdit()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try

            If BindingSource1.Count = 0 Then Beep() : Exit Sub

            'كود حفظ الاضافة وحفظ التعديل
            BindingSource1.EndEdit()
            DataAdapter1.Update(DataSet1, "toob")
          
            MsgBox("تمت عملية حفظ قاعدة البيانات بنجاح", 64 + 524288, "نجاح الحفظ")

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
End Class


ولمعلوميتك فيه فيه قسم المشاريع أمثلة رائعة .

حاجة مهمة أنا غيرت اسم حقل القسم بالقاعدة عندك لانها محجوزة إلى SSS
--------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاتة
لك مني جزيل الشكر والتقدير والله يحفظكم ويجعل ذلك في موازين حسناتكم
ولكم مني فائق الاحترام والتقدير
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] فك كلمة مرور معقدة على قاعدة البيانات اكسس ahmed saba 7 5,503 أمس, 05:30 PM
آخر رد: abiza
  ظهور خطا عند سحب البيانات وعرضها في الداتا كريد باستخدم الـــ Threading HATEM KAREM 0 87 06-05-17, 04:45 PM
آخر رد: HATEM KAREM
  استفسار حول عدم تكرار البيانات المتألق9 3 152 02-04-17, 03:38 AM
آخر رد: حريف برمجة
  جلب البيانات من ملف txt djelloul 7 187 28-03-17, 03:20 PM
آخر رد: djelloul
  تحويل ملف اكسس mdb الي sql server 2008 r2 atefkhalf2004 0 106 19-03-17, 08:17 PM
آخر رد: atefkhalf2004
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 155 10-03-17, 09:36 AM
آخر رد: عبد الله
  سرعة ادخال البيانات داخل ملف اكسس atefkhalf2004 1 169 05-03-17, 04:06 AM
آخر رد: thevirus
  استعادة قاعدة البيانات من ملف النسخة الإحتياطية djelloul 2 173 28-02-17, 03:27 PM
آخر رد: djelloul
  عدد السجلات داخل ملف اكسس atefkhalf2004 7 259 18-02-17, 06:29 PM
آخر رد: atefkhalf2004
  فتح قاعدة البيانات محفوظة ب باسس ورد في جملة الاتصال ahmed_elwerfalli 2 162 13-02-17, 05:27 PM
آخر رد: ahmed_elwerfalli

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


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