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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 148 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  تنفيذ كود عند حدوث تغيرات فى أحد جداول قاعد بيانات sql heem1986 2 247 16-02-24, 06:37 AM
آخر رد: عبدالله الدوسري
  مشكلة عدم اكتمال تنفيذ بسبب فصل الشبكة او التيار الكهربائي اثناء النتفيذ تناسيم 3 1,840 05-02-24, 10:04 PM
آخر رد: 01AHMED
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit

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


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