[viv]

تم استخدام التحميل الزائد وصار بالامكان ارسال كائن الاتصال عند تعريف الفئة مباشرة

PHP كود :

Sub New()

    End Sub

    Sub New(Connection As OleDbConnection)
        TConnection = Connection
    End Sub 


PHP كود :

Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='|DataDirectory|\Contacts.mdb'")
    Dim TCustomer As New EasyOleDbGo(con)
    Dim WithEvents TTotal As New EasyOleDbGo(con) 


وهو ما يغني عن ربط كائن الاتصال فيما بعد بالفئة

PHP كود :

TCustomer.Connection = con 


---

كما تم اضافة فئة للتعامل مع قواعد بيانات SqlServer بنفس الطريقة