تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
من عنده مكتبة للتعامل مع قواعد البيانات
#1
اردت ان اقوم بانشاء Class للتعامل مع قواعد البيانات لمنع التكرار وتسهيل العمل
فقلت لابد وان احد منكم فعل نفس الشئ ويوفر علينا التصميم من البداية
كل محترف لابد وان يكون قد صمم لنفسه Class لاجل هذه المهمة .
الرد
تم الشكر بواسطة:
#2
عادي يا جماعة Class لا اسرار فيها ، شاركونا بواحدة هههههه
الرد
تم الشكر بواسطة:
#3
ستحتاج الى انشاء مشروع من نوع Class Libary حتى تحصل في النهاية على ملف DLL تقوم بتضمينه في مشروعك
بداخل  المشروع Class Libary اضف ماتريد من الكلاسات على سبيل المثال الكلاس الاول لتنفيذ اوامر الاضافة والتعديل وقراء البيانات .... الخ
الكلاس الثاني تضع بداخله بعض الاوامر الخاصة بالتأكد من مربعات النصوص هل هي فارغة ام لا وغيرها من الاوامر التي تتكرر دائماً في كل مشروع.
هذه بإختصار فكرتي المتواضعة.
الرد
تم الشكر بواسطة: viv
#4
إقتباس :ستحتاج الى انشاء مشروع من نوع Class Libary حتى تحصل في النهاية على ملف DLL تقوم بتضمينه في مشروعك


ليس بالضرورة تحويله الى ملف Dll 

إقتباس :بداخل  المشروع Class Libary اضف ماتريد من الكلاسات على سبيل المثال الكلاس الاول لتنفيذ اوامر الاضافة والتعديل وقراء البيانات .... الخ

الكلاس الثاني تضع بداخله بعض الاوامر الخاصة بالتأكد من مربعات النصوص هل هي فارغة ام لا وغيرها

هذه مكتبة خاصة ، انا اقصد مكتبة عامة تنفع لاي مشروع وهي ما سأنشاءها بحال لم نتحصل على واحدة لاعتمد عليها مستقبلا في انشاء مشاريعي
الرد
تم الشكر بواسطة:
#5
لو أملك واحدة ما كنت أتاخر على أحد وخصوصا أخ فاضل مثلك 
ولكن بحثت الأن فوجدت لك ولى هذة 
وأتمنى أن تفيدك أخى الفاضل
رابط الشرح
رابط التحميل
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي 
الرد
تم الشكر بواسطة: viv , viv
#6
إقتباس :لو أملك واحدة ما كنت أتاخر على أحد وخصوصا أخ فاضل مثلك
تسلم هذا من كريم وابن اخ كريم
إقتباس :ولكن بحثت الأن فوجدت لك ولى هذة 


شكرا نوعا ما هي مثل ما اتحدث عنه مشكلتها ليست مفتوحة المصدر يعني لا تستطيع ان تطورها او تعدل فيها
فيها اسلوب لا احبذه ومعقد مثلا
كود :
VB.NET Code
Dim x(0) As ColoumnParam
x(0) = New ColoumnParam("age", ColoumnType.Int, 30)

Modi.UpdateRow("Table_2", x, "name like 'hussien'")

وهنا
كود :
SelectDataSet(TabelName , coloumns , Condition , ColoumnsOrder , ColumnsGROUPBY , ColumnsHAVING )

هذه البرمجة الافقية غير مفيدة  ومرهقة انا استخدم البرمجة الرأسية وكل شركات البرمجة تنتهج نفس الاسلوب تقريبا
ولاحظ اسناد القيم للاعمدة برقم الفهرس هذه نفسها مشكلة ومرهقة لو كانت مفتوحة المصدر يغيرها الشخص الى اسم العمود وليس رقمه
كما لاحظت هناك بعض الاخطاء احذر منها مثل
كود :
Modi.UpdateRow("Table_2", x, "name like 'hussien'")

يستخدمون العبارة Like لو كان هناك اسم قريب من هذا سيتم تحديث كل اعمار الذين يوجد تشابه في اسمائهم
او لهم نطق للاسم قريب من بعضه .
على العموم شكرا جزيلا ، يبدو انني بصدد انشاء مكتبة قريبا مفتوحة المصدر ليستفاد منها الجميع فقط احتاج لبعض الوقت حتى أنهي بعض الاعمال
الرد
تم الشكر بواسطة: princelovelorn
#7
(27-09-18, 03:11 PM)viv كتب :
إقتباس :لو أملك واحدة ما كنت أتاخر على أحد وخصوصا أخ فاضل مثلك
تسلم هذا من كريم وابن اخ كريم
إقتباس :ولكن بحثت الأن فوجدت لك ولى هذة 


شكرا نوعا ما هي مثل ما اتحدث عنه مشكلتها ليست مفتوحة المصدر يعني لا تستطيع ان تطورها او تعدل فيها
فيها اسلوب لا احبذه ومعقد مثلا
كود :
VB.NET Code
Dim x(0) As ColoumnParam
x(0) = New ColoumnParam("age", ColoumnType.Int, 30)

Modi.UpdateRow("Table_2", x, "name like 'hussien'")

وهنا
كود :
SelectDataSet(TabelName , coloumns , Condition , ColoumnsOrder , ColumnsGROUPBY , ColumnsHAVING )

هذه البرمجة الافقية غير مفيدة  ومرهقة انا استخدم البرمجة الرأسية وكل شركات البرمجة تنتهج نفس الاسلوب تقريبا
ولاحظ اسناد القيم للاعمدة برقم الفهرس هذه نفسها مشكلة ومرهقة لو كانت مفتوحة المصدر يغيرها الشخص الى اسم العمود وليس رقمه
كما لاحظت هناك بعض الاخطاء احذر منها مثل
كود :
Modi.UpdateRow("Table_2", x, "name like 'hussien'")

يستخدمون العبارة Like لو كان هناك اسم قريب من هذا سيتم تحديث كل اعمار الذين يوجد تشابه في اسمائهم
او لهم نطق للاسم قريب من بعضه .
على العموم شكرا جزيلا ، يبدو انني بصدد انشاء مكتبة قريبا مفتوحة المصدر ليستفاد منها الجميع فقط احتاج لبعض الوقت حتى أنهي بعض الاعمال

جزاك الله خيرا على الشرح والتوضيح 
وزادك علما ورفع قدرك أخى الكريم
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي 
الرد
تم الشكر بواسطة: viv
#8
مرحباً اخى viv
تفضل اخى الحبيب هذا كلاس يمكنك استخدامه

اتمنى ان يفيدك وان يسهل عليك الاكو كثيراً
كود :
Imports System.Data.SqlClient
Imports System.IO
Public Class Cls_Con
   Dim sqlcon As New SqlConnection
   Public Sub New()
       sqlcon = New SqlConnection("كود الاتصال")
   End Sub
   Public Sub open_con()
       If sqlcon.State = ConnectionState.Closed Then
           sqlcon.Open()
       End If
   End Sub
   Public Sub close_con()
       If sqlcon.State = ConnectionState.Open Then
           sqlcon.Close()
       End If
   End Sub
   Public Sub execute_txt(ByVal txt_ As String)
       Dim cmd As New SqlCommand
       cmd.CommandType = CommandType.Text
       cmd.Connection = sqlcon
       open_con()
       cmd = New SqlCommand(txt_, sqlcon)
       cmd.ExecuteNonQuery()
       close_con()
   End Sub
   Public Sub execute_store(ByVal name_ As String, ByVal prm() As SqlParameter)
       Dim cmd As New SqlCommand
       cmd.CommandType = CommandType.StoredProcedure
       cmd.Connection = sqlcon
       open_con()
       For i As Integer = 0 To prm.Length - 1
           cmd.Parameters.Add(prm(i))
       Next
       cmd.ExecuteNonQuery()
       close_con()
   End Sub
   Public Function select_txt(txt_ As String) As DataTable
       Dim dt As New DataTable
       dt.Clear()
       Dim adp As New SqlDataAdapter(txt_, sqlcon)
       adp.Fill(dt)
       Return dt
   End Function
   Public Function select_stoe(name_ As String, prm() As SqlParameter) As DataTable
       Dim cmd As New SqlCommand
       cmd.CommandType = CommandType.StoredProcedure
       cmd.Connection = sqlcon
       open_con()
       For i As Integer = 0 To prm.Length - 1
           cmd.Parameters.Add(prm(i))
       Next
       Dim adp As New SqlDataAdapter(cmd)
       Dim dt As New DataTable
       dt.Clear()
       adp.Fill(dt)
       Return dt
       close_con()
   End Function
End Class

لاستخدام الاضافة والتعديل والحذف يمكنك استخدام الكود بهذا الشكل
كود :
con.execute_txt("الكود الاضافة / التعديل / الحذف")

يمكنك استخدام ايضاً Function الخاص بـ execute_store

ولكود الـ Select
كود :
       Dim dt As New DataTable
       dt = con.select_txt("كود الـ Select")

يمكنك استخدام ايضاً Function الخاص بـ select_stoe


اعتقد الامر اصبح ابسط واسهل بكثير مما تتخير عند الاستخدام
ولا يوجد به اى تعقيدات او كتابة اسطر وتحقق وما شبه عند الاستخدام

الكود المطرح لـ Sql
بتعديلات بسيطة يمكنك ان تجعله لـ Access

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: viv , viv , princelovelorn
#9
شكرا اخ الخظر سوف ادرسه
الرد
تم الشكر بواسطة: elgokr , elgokr
#10
الشكر لله والحمد لله
والحمد لله على كل حال

لا عليك خد ووقتك كما تشاء

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: viv , viv , princelovelorn


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] جمع قيمة اثناء عملية تحديث البيانات محمد اسماعيل 0 33 14-12-18, 07:32 PM
آخر رد: محمد اسماعيل
  تحميل مكتبة ال.... معاذ_ابراهيم 2 90 08-12-18, 04:53 PM
آخر رد: معاذ_ابراهيم
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 1 66 08-12-18, 02:22 PM
آخر رد: nandy2016
  [VB.NET] استفسار :- بخصوص تنزيل الداتا في قاعدة البيانات dubai.eig 0 44 06-12-18, 04:36 PM
آخر رد: dubai.eig
  حذف ملف خارجي بدلالة قاعدة البيانات riyadh jihad 1 47 01-12-18, 02:11 PM
آخر رد: حريف برمجة
  [سؤال] > نقل البيانات من جدول اوركل الى اس كيو ال ssayed111 1 38 21-11-18, 04:12 PM
آخر رد: حريف برمجة
  [سؤال] اضافة التاريخ الى قاعدة البيانات allo5_800 2 87 18-11-18, 02:17 AM
آخر رد: allo5_800
Star اريد حل حفظ البيانات vb2010 41 1,008 14-11-18, 04:13 PM
آخر رد: dasktop
  مشكلة ايجاد قاعدة البيانات m.reyati 5 109 13-11-18, 02:06 AM
آخر رد: mero5000
  سؤال فى قواعد البيانات احمد خطاب 0 84 08-11-18, 03:01 AM
آخر رد: احمد خطاب

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم