تقييم الموضوع :
  • 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] ما سبب هذه الرسالة عند تشغيل البرنامج D-Z 7 73 23-09-17, 10:36 PM
آخر رد: D-Z
  كيف اجعل البرنامج ينفذ الكود الى فى الtextbox aliomar333 1 86 23-09-17, 05:32 PM
آخر رد: محمود صالح
  ما هو البرنامج وزارة الاتصالات محمود صالح 2 51 23-09-17, 05:19 PM
آخر رد: محمود صالح
  [VB.NET] مشكلة اثناء تنفيذ المشروع ظاهر علي 2 60 23-09-17, 10:56 AM
آخر رد: aliday03
  عايز اعمل حاجة تخليني اعرف كام جهاز مشغل البرنامج ومواصفات الاجهزة ووالوصول لقاعدة ال hoshosgost@yahoo.com 1 34 22-09-17, 08:04 PM
آخر رد: سعود
  [سؤال] جلب ايقونة البرنامج ابو روضة 13 226 20-09-17, 03:13 PM
آخر رد: ابو روضة
  خطا عند فتح البرنامج عبدالرحمن المكاوي 24 378 18-09-17, 12:51 AM
آخر رد: عبدالرحمن المكاوي
  [سؤال] كيف اجعل البرنامج لا يفتح مدونتى الا مرة واحدة فى اليوم ابو روضة 4 212 07-09-17, 10:19 AM
آخر رد: ابو روضة
  مساعده فى حماية او تشفير ملفات البرنامج نبيل فتحى 2 124 06-09-17, 08:16 AM
آخر رد: نبيل فتحى
  الغاء تنفيذ الادخال عن طريق inputbox mo93 5 167 03-09-17, 01:38 AM
آخر رد: سعود

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


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