[Mido-9]

السلام عليكم ورحمة الله وبركاتة
اخواني الافاضل انا الان قمت بربط البرنامج بقاعدة بيانات بواسطة الكود

وتلك الجمله استخدمها فى كل صفحه من صفحات البرنامج

PHP كود :

Dim con As New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0; Data Source = " & Application.StartupPath & "\EEHCTSDB.accdb")
    Dim cmd As New OleDbCommand
    Dim Da As OleDbDataAdapter
    Dim Dt As New DataTable 


فهل يوجد طريقة لوضع الكود فى كلاس مثلاً وعدم كتابته فى كل فورم لتوفير الوقت والجهد ؟

وجزاكم الله خيرا

[Mr. DotNet]

صديقي العزيز .. جرب أن تضعها داخل Module مع خاصية Public بدلاً  من Dim

[silverlight]

هناك أكثر من أسلوب لكي تسخدم جملة الإتصال كيفما شئت من خلال برنامجك
و الطريقة التالية واحدة منهما و الهدف منها بناء كلاس نضع به بعض البيانات التي قد تستخدم من داخل أكثر من فورم

PHP كود :

Friend Interface IDataBaseUtility

    ReadOnly Property ConnectionString As String
    Function GetOleDbConnection() As System.Data.OleDb.OleDbConnection
    Function GetConnectionString() As String

End Interface 


PHP كود :

Friend Class DataBaseUtility
    Implements IDataBaseUtility

    Private Shared dataBase As IDataBaseUtility

    Friend Shared ReadOnly Property Utility As IDataBaseUtility
        Get
            Dim result As IDataBaseUtility = CType(Nothing, IDataBaseUtility)
            SyncLock GetType(IDataBaseUtility)
                If dataBase Is Nothing Then
                    dataBase = New DataBaseUtility

                End If
                result = dataBase
            End SyncLock
            Return result
        End Get
    End Property

    Private ReadOnly Property ConnectionString As String Implements IDataBaseUtility.ConnectionString
        Get
            Return "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = " & Application.StartupPath & "\EEHCTSDB.accdb"
        End Get
    End Property

    Friend Function GetConnectionString() As String Implements IDataBaseUtility.GetConnectionString
        Return ConnectionString
    End Function

    Friend Function GetOleDbConnection() As OleDb.OleDbConnection Implements IDataBaseUtility.GetOleDbConnection
        Return New OleDb.OleDbConnection(GetConnectionString)
    End Function

End Class 


الكود التالي يوضح كيفية استخدام الكلاس

PHP كود :

       Dim s As String = DataBaseUtility.Utility.GetConnectionString
        Dim conn As New OleDbConnection(s)

        ' OR

        Dim conn As OleDbConnection = DataBaseUtility.Utility.GetOleDbConnection 


طريقة أخري و هي أن تضع ConnectionString فقط  في ملف App.Config الخاص بمشروعك أو في ملف نصي
راجع اللينك التالي لمزيد من التفاصيل اللينكــــــــــــــــــــــــ

طريقة أخري هي ان تضيف ConnectionString الي Resources الخاصة ببرنامجك

PHP كود :

  Dim connString As String = CType(My.Resources.ResourceManager.GetObject("connection"), String) 


طريقة أخري أن تستخدم نفس الفكرة التي تفضل الأخ Mr.DotNet بذكرها

عموما هناك افكار أخري كثيرة لتفعل ذلك