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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 9 116 اليوم, 12:58 AM
آخر رد: ali.alfoly
  [نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية 0theghost0 1 149 30-11-16, 11:21 PM
آخر رد: awidan76
  [نقاش] اسئلكم بالله / تسعيرة هذا البرنامج مصمم على فيجول استديو 2013 عزف الخواطر 3 112 30-11-16, 06:42 PM
آخر رد: عزف الخواطر
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 52 21-11-16, 11:48 PM
آخر رد: السرور
  خطا عند تشغيل البرنامج makky 10 135 19-11-16, 03:17 AM
آخر رد: أبو عمر
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 197 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  حجم ملف دعم البرنامج كبير جدا makky 6 126 26-10-16, 10:25 PM
آخر رد: makky
  [VB.NET] نص من ملف txt يضهر في اعلاء البرنامج dubai.eig 0 59 26-10-16, 08:10 PM
آخر رد: dubai.eig
  [VB.NET] تنفيذ إستعلام tifagreet 1 78 18-10-16, 08:55 PM
آخر رد: ابراهيم النعيمي
  [سؤال] رجاء المساعدة البرنامج لا يعمل تحديث للبيانات Asmaa adel 3 159 16-10-16, 09:48 AM
آخر رد: Asmaa adel

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


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