مساعده في الاتصال بقاعدة البيانات

هذا التابع في ملف Class وليكن اسم الكلاس

Public Class [MyClass]
    Public Shared Function GetOpenConnection() As SqlConnection
        Dim connectionStr As String = ConfigurationManager.ConnectionStrings("UnvConnection").ConnectionString
        Dim con As New SqlConnection(connectionStr)
        con.Open()
        Return con
    End Function
End Class

يتم استدعاءه من أي صفحة من صفحات الموقع كما يلي :

 sqlconnection con = MyClass.GetOpenConnection()