منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اضافة و تعديل و حدف و تنقل بين سجلات و بحث عادي و متقدم و عمليات اخرى sql

السلام عليكم ايها الاخوة الكرام حيا كم الله و كل عام و انتم بخير و رمصان كريم
اليوم إن شاء الله مثال عملي عن الاضافة و التعديل و الحدف و التنقل بين السجلات و البحث العادي و المتقدم و البحث بين تاريخين
و 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 غير اسم السيرفر من الاسم الدي ستجده الى اسم السيرفر الموجود فس جهازك
تقبل الله صيامكم

السلام عليكم

بارك الله فيك

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

تحياتي لك

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

الكلاس الخاصة ب 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

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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

aliday03

Sajad

aliday03

boudyonline

aliday03

Amr_Gamal

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