[aliday03]

السلام عليكم ايها الاخوة الكرام حيا كم الله و كل عام و انتم بخير و رمصان كريم 
اليوم إن شاء الله مثال عملي عن الاضافة و التعديل و الحدف و التنقل بين السجلات و البحث العادي و المتقدم و البحث بين تاريخين 
و sum و avg و count و MaxId كل هدا بالاجراءات المخزنة stored procedure و كدالك سنعتمد على البرمجة الكائنية التوجه بالاعتماد على الكلاسات و منه DATA ACCESS LAYER
اللغة البرمجية :الفيجوال بيسك 2008 وقاعدة البيانات : sql Server 2008 مع السورس الكود كاملا 
انها اول مشاركة لي بمثال عملي اتمنى ان يعجب الجميع و ان يستفيد الجميع
في قاعدة البيانات سيكون جدول فيه البيانات الاتية
Id,FullName,Phone,naissance,Adresse,Email,Salary,Picture
و أضفت الصورة لانني اعلم عدد كبير من الناس تواخههم مشكلة في الصورة
وكدلك عند ادخال البيانات يمكن لك اضافة الصورة او بدون 
اترككم مع المثال
المرجو الدخول على الرابط في جهازكم و لصق قاعدة البيانات
 C:\Program Files\Microsoft SQL Server\MSSQL10.TAHA\MSSQL\DATA
TAHA ستجد اسم instance آخر غير هدا عندك 
في كلاس dataaccesslayer غير اسم السيرفر من الاسم الدي ستجده الى اسم السيرفر الموجود فس جهازك
تقبل الله صيامكم

[Sajad]

السلام عليكم

بارك الله فيك

أضم صوتي لصوت الأخ khodor1985

تحياتي لك

[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

[boudyonline]

مجهود رائع .... بارك الله فيك

[aliday03]

شكرا جزيلا لك اخي

[Amr_Gamal]

بارك الله فيكى معلمى

[م.أسامة القرشي]

احسنت بارك الله فيك