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

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تصميم قاعدة البيانات djelloul 2 36 06-12-16, 12:36 PM
آخر رد: djelloul
  بحث و إظهار صورة من قاعة البيانات علىPictureBox ahmed_elwerfalli 0 40 29-11-16, 01:34 AM
آخر رد: ahmed_elwerfalli
  [VB.NET] مثال على جلب ارقام من قاعدة البيانات وحفظها في مصفوفة بدر إشتية 4 355 02-11-16, 02:42 AM
آخر رد: Ahmad ahmed
  استفسار حول طريقتي في قاعدة البيانات صبري زينوبي 0 82 29-09-16, 04:35 PM
آخر رد: صبري زينوبي
  ربط قاعدة بيانات اكسس بفجوال دوت نت 2015 كنونو 0 125 26-09-16, 01:35 PM
آخر رد: كنونو
  تسمية قاعدة البيانات قبل انشائها aiman 3 176 15-09-16, 09:12 PM
آخر رد: Abu Ehab
  [Acces2003] المساعدة في كود لحذف البيانات من الاستعلام محمد خلف زكي 2 144 28-08-16, 11:24 AM
آخر رد: محمد خلف زكي
  [VB.NET] الفيجوال بيسك لا يحفظ البيانات محمد خلف زكي 1 215 02-08-16, 05:54 AM
آخر رد: سعود
  لماذا لايتم حفظ الثواني مع باقي القيم الى قاعدة البيانات؟ سعود 2 387 01-08-16, 11:15 AM
آخر رد: أبوبكر سويدان
  طلب مساعدة لكتابة الكود بشكل صحيح moftah70 1 222 12-07-16, 07:52 PM
آخر رد: aliday03

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


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