تقييم الموضوع :
  • 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
--------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاتة
لك مني جزيل الشكر والتقدير والله يحفظكم ويجعل ذلك في موازين حسناتكم
ولكم مني فائق الاحترام والتقدير
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام من عدة جداول لقاعدة بيانات اكسس Adel27213 1 702 07-11-23, 08:27 AM
آخر رد: justforit
  [سؤال] عدم إظهار الصور مع النص فى Listview من قاعدة البيانات alims 2 1,582 27-08-23, 12:22 PM
آخر رد: رضوان الجماعي
  [SQL] استفسار عن طريقة تحزم قواعد بيانات MSSQL مع البرنامج VB.NET2019 salemq 2 530 18-05-23, 03:02 AM
آخر رد: سعود
  استفسار عن تخزين الوقت في قاعدة البيانات strongriseman 2 1,128 22-04-22, 07:27 PM
آخر رد: strongriseman
Lightbulb طلب : مشروع الارشفة الالكترونية للوثائق و المستندات عن طريق الماسح الضوئي قاموس نفر 0 1,243 11-01-22, 02:21 AM
آخر رد: قاموس نفر
  [سؤال] مشكلة فى عرض الصورة من ادخل قاعدة البيانات alims 2 1,266 17-11-21, 10:09 AM
آخر رد: سعود
  كيف اتجنب أخطاء ارسال قيم فارغة الى حقول رقمية في اكسس بسام محمدغانم 2 1,136 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
آخر رد: اسلام الكبابى

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


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