+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تنفيذ كود فى كل البرنامج ؟ (/showthread.php?tid=13896)
تنفيذ كود فى كل البرنامج ؟ - Mido-9 - 22-11-15
السلام عليكم ورحمة الله وبركاتة
اخواني الافاضل انا الان قمت بربط البرنامج بقاعدة بيانات بواسطة الكود
وتلك الجمله استخدمها فى كل صفحه من صفحات البرنامج
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
فهل يوجد طريقة لوضع الكود فى كلاس مثلاً وعدم كتابته فى كل فورم لتوفير الوقت والجهد ؟
وجزاكم الله خيرا
RE: تنفيذ كود فى كل البرنامج ؟ - Mr. DotNet - 22-11-15
صديقي العزيز .. جرب أن تضعها داخل Module مع خاصية Public بدلاً من Dim
RE: تنفيذ كود فى كل البرنامج ؟ - silverlight - 22-11-15
هناك أكثر من أسلوب لكي تسخدم جملة الإتصال كيفما شئت من خلال برنامجك
و الطريقة التالية واحدة منهما و الهدف منها بناء كلاس نضع به بعض البيانات التي قد تستخدم من داخل أكثر من فورم
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(Nothing, IDataBaseUtility)
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 بذكرها
عموما هناك افكار أخري كثيرة لتفعل ذلك