تقييم الموضوع :
  • 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 بذكرها

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 474 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  [سؤال] ربط البرنامج بعدة اجهزة ابو يوسف النواوي 2 3 132 12-01-17, 03:52 AM
آخر رد: Basil Abdallah
  [سؤال] مشكلة تهنيج البرنامج ابو روضة 2 161 30-12-16, 04:47 PM
آخر رد: ابو روضة
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 9 4,324 27-12-16, 01:25 PM
آخر رد: Basil Abdallah
  خطا عند تشغيل البرنامج makky 12 254 17-12-16, 05:29 PM
آخر رد: walkady
  البرنامج بيقعد كتير جدا على مايفىح رابط الاكسس بالداتا جريدفيو بالمعالج araxis 4 149 13-12-16, 04:29 AM
آخر رد: silverlight
  تحديد مسار البرنامج atefkhalf2004 11 227 11-12-16, 12:59 PM
آخر رد: atefkhalf2004
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 9 243 05-12-16, 12:58 AM
آخر رد: ali.alfoly
  [نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية 0theghost0 1 221 30-11-16, 11:21 PM
آخر رد: awidan76
  [نقاش] اسئلكم بالله / تسعيرة هذا البرنامج مصمم على فيجول استديو 2013 عزف الخواطر 3 183 30-11-16, 06:42 PM
آخر رد: عزف الخواطر

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


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