تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تنفيذ كود فى كل البرنامج ؟
#1
السلام عليكم ورحمة الله وبركاتة
اخواني الافاضل انا الان قمت بربط البرنامج بقاعدة بيانات بواسطة الكود

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


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 


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

وجزاكم الله خيرا
الرد }}}}
تم الشكر بواسطة:
#2
صديقي العزيز .. جرب أن تضعها داخل Module مع خاصية Public بدلاً  من Dim
Everyone is a genius. It's just that some people are too stupidto realize it
الرد }}}}
تم الشكر بواسطة:
#3
هناك أكثر من أسلوب لكي تسخدم جملة الإتصال كيفما شئت من خلال برنامجك
و الطريقة التالية واحدة منهما و الهدف منها بناء كلاس نضع به بعض البيانات التي قد تستخدم من داخل أكثر من فورم

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(NothingIDataBaseUtility)
 
           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 بذكرها

عموما هناك افكار أخري كثيرة لتفعل ذلك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 10 4,974 منذ 6 ساعة مضت
آخر رد: hatem555
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 93 16-05-17, 12:54 PM
آخر رد: عامر الجبوري
  يظهر خطاء بعد تنصيب البرنامج ساعدوني samawi 5 120 15-05-17, 04:08 AM
آخر رد: samawi
  [SQL] التاريخ في البرنامج العواد الصغير 7 188 14-05-17, 06:17 PM
آخر رد: العواد الصغير
  اخطاء في البرنامج zinab ali 1 48 08-05-17, 12:44 AM
آخر رد: zinom
  [VB.NET] كيفية فتح البرنامج اكتر من مرة بشروط معينة الماجيك مسعد 6 127 07-05-17, 04:15 AM
آخر رد: الماجيك مسعد
  كود حماية البرنامج من النسخ والسرقة ramimohammed 2 121 01-05-17, 03:39 PM
آخر رد: أسامة السالمي
  كيفية ربط البرنامج مع الاكسس اللي موجود علي ال Share point khaled12345 0 48 17-04-17, 05:55 PM
آخر رد: khaled12345
  السلام عليكم هل يمكنني تنفيذ امر صوتي الى الضغط على button من خلال الصوت mohammed.gadain61 6 184 13-04-17, 01:48 PM
آخر رد: matrixmas
  كيف اجعل برنامجي هو البرنامج الافتراضي؟ Incubus 2 147 07-04-17, 12:36 AM
آخر رد: Ratchinko

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


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