+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم دورات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=187)
+--- الموضوع : [VB.NET] اضافة و تعديل و حدف و تنقل بين سجلات و بحث عادي و متقدم و عمليات اخرى sql (/showthread.php?tid=16105)
اضافة و تعديل و حدف و تنقل بين سجلات و بحث عادي و متقدم و عمليات اخرى sql - aliday03 - 10-06-16
السلام عليكم ايها الاخوة الكرام حيا كم الله و كل عام و انتم بخير و رمصان كريم
اليوم إن شاء الله مثال عملي عن الاضافة و التعديل و الحدف و التنقل بين السجلات و البحث العادي و المتقدم و البحث بين تاريخين
و 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 غير اسم السيرفر من الاسم الدي ستجده الى اسم السيرفر الموجود فس جهازك
تقبل الله صيامكم
RE: اضافة و تعديل و حدف و تنقل بين سجلات و بحث عادي و متقدم و عمليات اخرى sql - Sajad - 11-06-16
السلام عليكم
بارك الله فيك
أضم صوتي لصوت الأخ khodor1985
تحياتي لك
RE: اضافة و تعديل و حدف و تنقل بين سجلات و بحث عادي و متقدم و عمليات اخرى sql - aliday03 - 11-06-16
السلام عليكم ايها الاخوة الكرام
الشكر لله اخي
هدا واجب
لك ما تريد اخي
الكلاس الخاصة ب DATA ACCESS LAYER على الفيجوال بيسك
أما BUSNISS 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 FunctionRE: اضافة و تعديل و حدف و تنقل بين سجلات و بحث عادي و متقدم و عمليات اخرى sql - boudyonline - 11-06-16
مجهود رائع .... بارك الله فيك
RE: اضافة و تعديل و حدف و تنقل بين سجلات و بحث عادي و متقدم و عمليات اخرى sql - aliday03 - 11-06-16
شكرا جزيلا لك اخي
RE: اضافة و تعديل و حدف و تنقل بين سجلات و بحث عادي و متقدم و عمليات اخرى sql - Amr_Gamal - 12-11-16
بارك الله فيكى معلمى
RE: اضافة و تعديل و حدف و تنقل بين سجلات و بحث عادي و متقدم و عمليات اخرى sql - م.أسامة القرشي - 24-11-16
احسنت بارك الله فيك