(17-06-24, 12:34 AM)غزة العزة كتب : و عليكم السلام و رحمة الله و بركاته

لربط جهازين في شبكة محلية باستخدام برنامج مصمم بـ VB.NET وقاعدة بيانات Access، تحتاج إلى اتباع الخطوات التالية:

إنشاء قاعدة بيانات Access على جهاز مشترك في الشبكة.
مشاركة المجلد الذي يحتوي على قاعدة البيانات على الشبكة.
تكوين اتصال بـ VB.NET للوصول إلى قاعدة البيانات عبر الشبكة.
الخطوات بالتفصيل:
1. إنشاء قاعدة بيانات Access:
استخدم Microsoft Access لإنشاء قاعدة البيانات واحفظها في مجلد على جهاز واحد (لنسمه "جهاز الخادم").
2. مشاركة المجلد:
انقر بزر الفأرة الأيمن على المجلد الذي يحتوي على قاعدة البيانات.
اختر "Properties" ثم انتقل إلى علامة التبويب "Sharing".
انقر على "Share" وأضف المستخدمين الذين يجب أن يكون لهم الوصول (أو الجميع إذا كانت الشبكة آمنة بما يكفي).
انقر على "Share" ثم "Done".
3. تكوين الاتصال في VB.NET:
افتح مشروع VB.NET الخاص بك وأضف مكتبة System.Data.OleDb إذا لم تكن مضافة بعد.
4. كتابة الأكواد اللازمة:

PHP كود :

Imports System.Data.OleDb

Public Class Form1
    Private connectionString As String

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' تعيين مسار قاعدة البيانات المشتركة في الشبكة
        Dim databasePath As String = "\\<ServerIP>\<SharedFolder>\DatabaseName.accdb"
        connectionString = $"Provider=Microsoft.ACE.OLEDB.12.0;Data Source={databasePath};"

        ' اختبار الاتصال
        TestConnection()
    End Sub

    Private Sub TestConnection()
        Try
            Using connection As New OleDbConnection(connectionString)
                connection.Open()
                MessageBox.Show("Connection successful!")
            End Using
        Catch ex As Exception
            MessageBox.Show($"Connection failed: {ex.Message}")
        End Try
    End Sub

    Private Sub btnGetData_Click(sender As Object, e As EventArgs) Handles btnGetData.Click
        Dim query As String = "SELECT * FROM TableName"
        Dim dataTable As New DataTable()

        Using connection As New OleDbConnection(connectionString)
            Using command As New OleDbCommand(query, connection)
                Using adapter As New OleDbDataAdapter(command)
                    adapter.Fill(dataTable)
                End Using
            End Using
        End Using

        dataGridView1.DataSource = dataTable
    End Sub
End Class 


الشرح:
مسار قاعدة البيانات:

استخدم المسار الكامل إلى قاعدة البيانات المشتركة عبر الشبكة. استبدل <ServerIP> بعنوان IP للجهاز الذي يحتوي على قاعدة البيانات و<SharedFolder> باسم المجلد المشترك وDatabaseName.accdb باسم قاعدة البيانات الخاصة بك.
سلسلة الاتصال:

تم تكوين connectionString باستخدام مزود قاعدة البيانات Microsoft.ACE.OLEDB.12.0.
اختبار الاتصال:

يفتح اتصال بقاعدة البيانات ويعرض رسالة توضح ما إذا كان الاتصال ناجحًا أم لا.
استرجاع البيانات:

الزر btnGetData يسترجع البيانات من الجدول المحدد ويعرضها في DataGridView (تأكد من وجود DataGridView على النموذج الخاص بك واسمه dataGridView1).
ملاحظات إضافية:
تأكد من أن جدار الحماية على الجهاز الذي يحتوي على قاعدة البيانات يسمح بالوصول عبر الشبكة إلى المجلد المشترك.
تأكد من أن كلا الجهازين على نفس الشبكة وأنهما يمكنهما الوصول إلى بعضهما البعض.
بهذه الطريقة، يمكنك إنشاء تطبيق VB.NET يستخدم قاعدة بيانات Access مشتركة على شبكة محلية.