[علي كعبي]

Imports System.Data.SqlClient
Module ModuleDAL
Public cat As String
Public idcat As String

'مديول الاتصال بقاعدة البيانات وبها اجراءات فتح الاتصال واغلاقة ودوال الاتصال '




Public con As New SqlConnection("Data Source=.;Initial Catalog=Library_db;Integrated Security=True")
''' <summary>
''' دالة فتح الاتصال
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function openn()
If con.State = ConnectionState.Closed Then
con.Open()
End If

End Function