تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
من عنده مكتبة للتعامل مع قواعد البيانات
#11
يحتاج الى القليل من التعديل سوف اعدل فيه
مثل فصل كائن الاتصال ليكون مستقلا .
او جعل البارمترات لا يتم ارسالها في مصفوفة وانما يتم ادراجها مباشرة بالتوالي من مكان كتابة الكود اعتقد سيكون اسهل 
مع بعض الاشياء الاخرى
ويحتاج الى اضافة بعض الاجراءات الاخرى مثل التي تجلب عدد السجلات او اكبر رقم تسلسلي او تقوم باحتساب مجموع وما الى ذلك
الرد }}}
تم الشكر بواسطة: elgokr , elgokr
#12
يمكنك فعل ما تشاء فى الكود
فهو لك

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

كود :
dt = con.select_txt("SELECT * FROM nameTable")

ستتمكن من استخدام كالتالى
كود :
dt(0)("id")
dt(0)("name")

وبخصوص العدد ابسطها دون عمل تكرار لاستعلام لجلب الرقم
فقط استخدم التالى
كود :
dt.Rows.Count

فتخيل ان فى زر تستخدم سطر و اتنين لعمل الاستعلام والاضافة والتعديل والحذف
بدلا من الاسطر من اتصال وفتح واغلاق وتحقق وما غير ذلك

الامر عائد لك فيما تريد الاستخدام وبطريقتك الخاصة

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

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


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

لاحظت انك لم تسند القيمة لجملة الاتصال او اسم الاجراء واعتقد انك نسيت هذا سهواً

كود :
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

يعني مثل
كود :
cmd = New SqlCommand(txt_, sqlcon)

السؤال لو انني استخدمت كائن الاوامر من محول البيانات مباشرة ما الفرق بين الطريقتين

كود :
Public Function SelectSQL(ByVal StoredProcedureName As String, prm() As SqlParameter) As DataTable

       Dim adp As New SqlDataAdapter(StoredProcedureName, Con)
       adp.SelectCommand.CommandType = CommandType.StoredProcedure

                 Open()
           For i As Integer = 0 To prm.Length - 1
               adp.SelectCommand.Parameters().Add(prm(i))
           Next
           Dim dt As New DataTable
           dt.Clear()
           adp.Fill(dt)
           Return dt
           Close()

     

   End Function

اي بين الاجراء الاخير وبين الاجراء فوق
الرد }}}
تم الشكر بواسطة:
#14
مرحباً اخى viv

لا يوجد اى سهو او نقص فى الكود 

كود الاتصال مدرج فى هذا السطر لـ الخاص بالبراميتر
كود :
     cmd.Connection = sqlcon

بخصوص عامل كود الـ الاضافة والتعديل والحذف او الاستعلام

انا جعلتها هنا ان تمرر من خلال قاعدة البيانات من خلال 
PHP كود :
StoredProcedure 


فقط كل ما عليك عمل Query بقاعدة البيانات وتنشاء بها Proc لتمرير البلاميتر
والاسم اللى هتنشاء به الـ Proc هو ما سيكون مكان name_ عند استدعاء الـ Function

طبعاً اذا الامر هذا غير مناسب
فيمكنك بتعديل بسيط كما تفضلت وتجعل الـ Function بطريقة الـ Query بداخله او بدلاً من Name_

الفكرة من امر تصعيب اسلوب البلاميتر هنا هو لعدم
اتاحة اى مساحة للحقن لا من قريب ولا من بعيد
وكذلك لعدم اتاحة قراءة من يقتح السورس ما وظيفة الكود وهو لا يملك قاعدة البيانات

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  جملة الاتصال بقاعدة البيانات اكسس محمد خيري 4 364 12-12-23, 03:14 AM
آخر رد: محمد خيري
  كود الاتصال بقاعدة البيانات sqlserver strongriseman 2 421 29-11-23, 09:25 PM
آخر رد: العتيق
Heart [VB.NET] كيفية جعل الدتاجريديد فيو تظهر عندما تكون قاعدة البيانات فارغه الحزين اليماني 1 371 22-11-23, 05:31 PM
آخر رد: justforit
  الحفاظ على خصائص قاعدة البيانات عند النقل strongriseman 0 280 19-11-23, 12:28 PM
آخر رد: strongriseman

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


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