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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  قاعدة البيانات بتقفل كل شوية احمد خطاب 5 225 11-05-19, 04:24 AM
آخر رد: احمد خطاب
  سؤال عن قواعد البيانات في فيجوال بيسك2015 Emam emam 6 165 11-05-19, 04:02 AM
آخر رد: Emam emam
  أضافة زر إلى الفورم بواسطة الكود djelloul 1 159 02-05-19, 01:55 PM
آخر رد: PalmTree
  [VB.NET] مشغل قواعد البيانات sql , mysql محمد اسماعيل 2 127 20-04-19, 12:32 PM
آخر رد: محمد اسماعيل
  كود تصفير عمود في جدول اكسس samira20 1 158 31-03-19, 09:02 PM
آخر رد: بدري
  [SQL] مشكلة في ربط قاعدة البيانات SQLSERVER2014 بـ فيجول بيسك 2017 اباذر 4 264 16-03-19, 12:00 AM
آخر رد: اباذر
  طريقة ادخال اعداد تحتوي على فاصلة في قاعدة البيانات segma 21 636 12-03-19, 10:23 PM
آخر رد: segma
  [VB.NET] البحث عن مسار مجلد ضمن قاعدة البيانات اكسس وفتحه من الفورم EMADSSS 1 208 21-02-19, 04:38 PM
آخر رد: elgokr
  (سؤال؟)كود اضافة التاريخ في قاعدة البيانات اسمهان 1 259 20-02-19, 11:08 AM
آخر رد: alfaiz678
  [VB.NET] فتح مسار مجلد موجود بقاعدة البيانات خاص بكل اسم EMADSSS 0 188 13-02-19, 01:03 AM
آخر رد: EMADSSS

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


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