تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
CommandBuilder
#1
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة

أريد لو سمحتم طريقة أستخدام CommandBuilder في الحذف والتعيدل لأني لا أعرف غير طريقة الأضافة
هل توجد أداة أو طريقة للحذف والتعديل والأضافة في قواعد البيانات غير CommandBuilder ولكن لا تعتمد على جمل SQL
الرد }}}
تم الشكر بواسطة:
#2
كود :
dim cm as new oledbcommand("delete from tb where tid=" & val(tid.text) & "",con)
con.open
cm.executenonquery

والتحديث
كود :
dim cm as new oledbcommand("update tb set tname=@tname where tid=@tid,con)
cm.parameters.addwithvalue("@tname",tname.text)
cm.parameters.addwithvalue("@tid",val(tid.text))

con.open
cm.executenonquery



الرد }}}
تم الشكر بواسطة:
#3
شكرا لك أخي سعود
أنا أريد طريقة أستخدام CommandBuilder وليس oledbcommand لأن CommandBuilder يقوم بتوليد جمل ال SQL بنفسه يعني عند استخدامة لا نحتاج إلى كتابةجمل SQl فمثلا عند الأضافة بالكائن oledbcommand نكتب جملة insert into يليها أسم الجدول مع إضافة علامات مثل هذه العلامة ' ولكن عند استخدام CommandBuilder يكفينا أن نستخدم الدالة الجاهزة GetInsertCommand وهي التي تولد نص الأتصال
هذا مثال الإضافة بالكائن
كود :
'جمل الأتصال
Public ds1 As New DataSet
    Public dc As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0; Data Source= C:/db1.mdb")
  Public constr As String=("select * from table name")    
Public da As New OleDbDataAdapter(constr, dc)
    Public da1 As New OleDbDataAdapter("select * from Contents", dc)
    Public cb As New OleDbCommandBuilder(da)

'code  
Dim newrow As System.Data.DataRow
        newrow = ds1.Tables("table name").NewRow
        newrow.Item(0) = TextBox1.Text
        newrow.Item(1) = TextBox2.Text
        ds1.Tables("table name").Rows.Add(newrow)
                         da.InsertCommand = cb.GetInsertCommand
        da.Update(ds1, "table name")
dc.Close
نرجو معرفة طريقة التعدل والحذف باستخدام الكائن
الطلب الثاني هل توجد أدوات تمكننا من الاضافة والحذف والتعديل بدون استخدام جمل SQL
الرد }}}
تم الشكر بواسطة:
#4
بس انت قلت غيرها Smile
إقتباس :هل توجد أداة أو طريقة للحذف والتعديل والأضافة في قواعد البيانات غير CommandBuilder
الرد }}}
تم الشكر بواسطة:
#5
PHP كود :
Dim DMCConnection AS New SQLConnection _
("Server=AHMED\SQLEXPRESS;Database=DMC;Trusted_Connection=Yes;"
هذا الكود قد أعلنا عن كائن connection
PHP كود :
Dim DMCAdapter AS New SQLDataAdapter("SELECT *FROM Mt",DMCConnection
هنا أعلنا عن كائن DataAdapter
نحمل كائن DataAdapter بقيمة كائن Connection وجملة الاستعلام التى ناتى عن طريقها بالبيانات التى نتاعمل معها
PHP كود :
Dim DMCCB AS New SQLCommandBuilder(DMCAdapter
هنا نعلن عن كائن CommandBuilder هذا الكائن مسئول عن الاإضافة والتعديل والحذف فى الـ DataBase
نحمل فيه الكائن DataAdapter
PHP كود :
Dim DMCDS AS New DataSet 
هنا نعلن كائن DataSet
هذا كائن يأخذ البيانات التى استعلمنا عنها واتينها بها لنتعامل معها ويكون جداول بداخله تطابق تلك الجداول التى اتينا بها
PHP كود :
Dim Row AS DataRow 
هذا الكائن طبع من اسمه واضح عبارة عن كائن صف
سنجعل هذا الكائن يحتوى الصف الذى سنتعامل معه
هنا قمنا بالفعل بملىء DataSet بالجدول المطلوب التعديل عليه
PHP كود :
Row=DMCDS.Tables("Mt").NewRow 
وهنا عينا قيمة الكائن Row الذى أعلنا عنه على إنه صف جديد فى الكائن DataSet التى تحتوى الجدول الذى نتعامل معه
PHP كود :
Row.Item("MtNum")="RR" 
هنا نعين قيمة حقل معين للصف عن طريق متغير
PHP كود :
Row.Item("Dscrp")=TextBox.Text 

هنا نعين قيمة حقل معين للصف عن طريق مربع نص
PHP كود :
DMCDS.Tables("Mt").Rows.Add(Row

هنا نضيف قيمة الصف الجديد للـ DataSet
كل مافعلناه هنا نطبق على كائن DataSet الذى يملك نسخة من البيانات التى نتعامل معها
اى لم نقم بتطبيق التغيرات على الـ DataBase
PHP كود :
DMCAdapter.Update(DMCDS,"Mt"
فى هذه الخطوة الاخيرة نقوم بتطبيق التغيرات على الـ DataBase فعليا
منقول

الرد }}}
تم الشكر بواسطة: Sajad
#6
السلام عليكم

اخي العزيز الرجاء وضع المواضيع في الاقسام المخصص لها

في حال مخالفتك مرة اخرى سيتم حذف الموضوع مهما كانت اهميته

تم النقل

يعطيك العافية
الرد }}}
تم الشكر بواسطة:


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


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