[aliday03]

السلام عليكم ايها الاخوة الكرام
الشكر لله اخي
هدا واجب
لك ما تريد اخي

الكلاس الخاصة ب DATA ACCESS LAYER على الفيجوال بيسك
أما BUSNISS LAYER فهو راجع لعملك اخي اي انت من تحدد طبيعته

كود :

import system.data.sqlclient
import system.data

Public Shared Cn As SqlConnection
Sub New
    Cn = New SqlConnection("Server=ABOUTAHA\TAHA;Database=contacts ;integrated security=true")
End sub
Public Sub Open
    If Cn.State <> ConnectionState.Open Then
        Cn.Open
    End If
End sub
Public Sub Close
    If Cn.State = ConnectionState.Open Then
        Cn.Close
    End If
End sub
Public Function SelectData(Stored_Procedure As String, param() As SqlParameter) As DataTable
    Dim cmd As New SqlCommand With {.CommandType = CommandType.StoredProcedure, .CommandText = Stored_Procedure, .Connection = Cn}
    If param IsNot Nothing Then
        For i As Integer = 0 To param.Length - 1
            cmd.Parameters.Add(param(i))
        Next
    End If
    Dim da As New SqlDataAdapter(cmd)
    Dim dt As New DataTable
    da.Fill(dt)
    Cn.Close
    Return dt
End Function
Public Sub ExcuteCommand(Stored_Procedure As String, param() As SqlParameter)
    Dim cmd As New SqlCommand With {.CommandType = CommandType.StoredProcedure, .CommandText = Stored_Procedure, .Connection = Cn}
    Cn.Open
    If param IsNot Nothing Then
        cmd.Parameters.AddRange(param)
    End If
     cmd.ExecuteNonQuery
    Cn.Close
End Sub
Public Function ExcuteCommandScalar(Stored_Procedure As String, param() As SqlParameter) as string
    Dim cmd As New SqlCommand With {.CommandType = CommandType.StoredProcedure, .CommandText = Stored_Procedure, .Connection = Cn}
     Cn.Open
    If param IsNot Nothing Then
        cmd.Parameters.AddRange(param)
    End If
    dim a as string
    a = cmd.ExecuteScalar
    Cn.Close
    Return a
End Function