[Omar Mekkawy]

بارك الله فيك أخي الكريم " شرحك رائع "
هناك مشكلة كنت أواجهها في الفيجوال ستوديو 2010 وكانت تتعلق بملف اسمه "Resgen.exe" وهذا الخطأ ثابت ولم يزال حتى بعد تنصيب الوندوز عدة مرات !!
فانتقلت للفيجوال ستوديو 2012 وفوضت أمري إلى الله
ولكن المثال الذي بالموضوع لا يعمل " نظراً لوجود أخطاء ما " ولا أستطيع أن أصلحه لأنه ليس لدي خبرة بفيجوال ستوديو 2012 وين أيامك يا 2010 :mad:

فهل ممكن تساعدني في اني استبدل أكواد الاتصال بقاعدة البيانات بأكواد قديمة " سهلة " كنت أستعملها سابقاً " نظراً لأنني نسيت أغلبية البرمجة بسبب الدراسة وفي قيد إسترجاعها إن شاء الله "

كود :

Imports System.Windows.Forms

Imports System.Data.OleDb

Public Class Main


    

    ' Database Connection Setting

    Public conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Application.StartupPath & "\Data\Data.mdb")

    Public DataTable1 As New DataTable
    Public DataAdapter1 As New OleDbDataAdapter
    Public Dataset1 As New DataSet

    Public DataTable2 As New DataTable
    Public DataAdapter2 As New OleDbDataAdapter


    Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ' Get Data From "Studentvolunteers"
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim load As New OleDbCommand("Select * From Student_volunteers", conn)
        DataAdapter1 = New OleDbDataAdapter(load)
        Dim Builder As New OleDbCommandBuilder(DataAdapter1)
        Dataset1 = New DataSet()
        DataAdapter1.Fill(Dataset1, "Student_volunteers")
        BindingSource1 = New BindingSource(Dataset1, "Student_volunteers")

        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ' Get Data From "Members_of_the_provincial"
        Dim load2 As New OleDbCommand("Select * From Members_of_the_provincial", conn)
        DataAdapter2 = New OleDbDataAdapter(load2)
        Dim Builder2 As New OleDbCommandBuilder(DataAdapter2)
        DataAdapter2.Fill(Dataset1, "Members_of_the_provincial")
        BindingSource2 = New BindingSource(Dataset1, "Members_of_the_provincial")

        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    End Sub

الله يعطيك العافية