تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الإضافة و التعديل و الحذف من جدول عن طريق DataGrid
#1
نجيب المجيدي

مقدمة
نعلم جميعاً أن التطبيق الجيد هو ذلك الطبيق الذي يسمح للمستخدم بعمل الكثير بسهولة وبدون تعقيد تعدد الأزرار و الشاشات , فكرت أنه سيكون من الجميل لو جعلنا أداة الداتا جريد الخاصة ببرنامجنا تقوم بعمل كافة التغييرات على جدول ما من إضافة و تعديل و حذف بضغطة زر واحدة وبكود بسيط , حسناً دعونا نبدأ بالموضوع

المتطلبات:

أولاً سنقوم بتكوين هذا الجدول البسيط لنطبق عليه مثالنا والذي توضحه جملة SQL التالية:
كود :
Create table testTbl (id number(3),name varchar2(10), job varchar2(10));

ثانياً قمت بعمل المثال السابق باستخدام قاعدة بيانات Oracle و مزود البيانات ODP.NET و بالتالي سنحتاج إلى تنزيل Oracle Tools و بالطبع استيراد المكتبة Oracle.DataAccess.DLL


الكود:


Imports

كود :
Imports Oracle.DataAccess.Client

Declarations

كود :
Dim conn As New OracleConnection("Data Source=ServiceName;User ID=UserName;Password=Password")

Dim da As OracleDataAdapter = New OracleDataAdapter

Dim ds As New DataSet

Retrieving Code

كود :
da.SelectCommand = New OracleCommand("select * from testTbl", conn)

Try

If conn.State = ConnectionState.Closed Then conn.Open()

da.Fill(ds, "test")

myDataGrid.DataSource = ds.Tables("test")

conn.Close()

Catch ex As Exception

MsgBox(ex.Message)

End Try


و الآن إلى كود الإضافة و التعديل و الحذف


كود :
Dim param As OracleParameter

If conn.State = ConnectionState.Closed Then conn.Open()

Dim command_builder As New OracleCommandBuilder(da) 'create new command builder and passing the Dataadapter to it

Try

da.UpdateCommand = New OracleCommand("UPDATE testTbl SET name=:name, job=:job where id=:OLDid", conn) 'building Update command

da.DeleteCommand = New OracleCommand("DELETE FROM testTbl where id=:OLDid", conn) ' building Delete command

da.UpdateCommand.Parameters.Add(":name", OracleDbType.Varchar2, 10, "name") 'Passing parameters to the command builder

da.UpdateCommand.Parameters.Add(":job", OracleDbType.Varchar2, 10, "job")

param = da.UpdateCommand.Parameters.Add(":OLDid", OracleDbType.Int32, 3, "id")

param = da.DeleteCommand.Parameters.Add(":OLDid", OracleDbType.Int32, 3, "id")

param.SourceVersion = DataRowVersion.Original

da.Update(ds, "test") 'Update Data in the Table

conn.Close()

Catch ex As Exception

MsgBox(ex.Message)

End Try

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحويل بيانات قاعدة على شكل جدول أبولجين 0 57 04-11-16, 11:52 AM
آخر رد: أبولجين
  اكواد - (عرض اسماء الجداول في قاعدة ما - عرض اسماء الاعمدة في جدول ما) سعود 4 1,138 07-09-16, 12:14 AM
آخر رد: محمد بن عطية
  درس بسيط لعملية الإضافة والتعديل والبحث والحذف - Visual Basic.net 10 وMS Access أبوبكر سويدان 10 3,387 12-08-13, 06:04 PM
آخر رد: Omar Mekkawy
  جديد عمل Update ل DataBase انطلاقا من مدخلات DataGrid ‏ MR Dev Boody 2 864 06-10-12, 02:08 PM
آخر رد: أبوبكر سويدان
  كود نسخ جدول لجدول آخر سعود 1 787 06-10-12, 11:20 AM
آخر رد: كلكامش الألكتروني
  أسرع طريقة لربط برنامجك بقاعدة البيانات "عن طريق المعالج" (شرح بالفيديو) Omar Mekkawy 2 867 14-09-12, 08:37 PM
آخر رد: Omar Mekkawy
  طريقه الحذف فى قواعد البيانات عن طريق الداتاجريد 0 389 منذ اقل من1 دقيقه مضت
آخر رد:

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


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