درس في ADO.NET 2005

شكرا اخى الكريم على هذا الشرح و الأكواد

أخي الغالي السيد yaseralshikh

شكراً جزيلا فأنت أكثر من رائع

أنا ضيف على السيد VB.net ولكنني واجهة صعوبة في التفاهم معه لأن لغته صعبة علي بعض الشيء فلديه جمل لا أعرفها

معك في سلسلة من الدروس المميزة بدأت أتعلم لغة السيد VB.net وسهلت علي الكثير من الصعاب.

بارك الله فيك

أشكركم جميعاً ، وارجو أن أكون عند حسن ظنكم بي ، وجعل الله عملي وعملكم خالصاً لوجهه .. ( آمين ) .

والله العظيم مشاء الله عليك استاذ والله الواحد ماعرفلك حل انت تعديت حدود الاستزه

ربنا يبارك فيك ويكثر من امثالك ويبارك فى علمك

جزاكم الله عن المسلمين خير الجزاء

السلام عليكم و رحمه الله و بركاته نشكر الاخوه الافاضل علي هذا الموضوع العظيم و بارك الله فيكم و جعله في ميزان حسناتكم لكن لي رجاء من الاخوه الافاضل ان تكرمتم اريد شرح لطريقه السحب و القصف في الفورم واذا كان هناك اكواد بسيطه لازمه للbinding navigator فانا اتعامل مع sql server 2005 و VB 2005 لكن تواجهني مشاكل في الاكواد لذا قررت العمل بطريقه السحب و الالقاء من solution explorer في الفورما لكن البيانات لا يتم تعديلها في قاعده البيانات و لكم جزيل الشكر

أبدعت وربي الصراحه موضوعك طلعني من مشاكل كنت ضايع فيها يسلم راسك حبيبي

والله لا يحرمنا منك

وياليت ترسلي الملف بأي طريقه وانا ارفعه على موقعي الخاص بشكل مباشره على شان معاد تتعب نفسك بالرفع كل شوي

وتقبل خالص شكري وامتناني

ولا زلت اتعلم من برنامج واطبق واحاول اخذ اللي احتاجه

تحياتي

o2_ox@hotmail.com

أشكرك اخي أكسجين على تعاونك معنا ‘ في هذا الدرس ، واشكر كل من ساهم معنا فيه ، وأعتذر لكل من قصرنا معه أيضاً ..

رغم ان الرابط الاخير الذي تم رفع ملف المثال ( الذي يحوي كل ما ورد في هذا الدرس ) ما زال يعمل ، إلا أني لا أضمنه ، ولقد ارسلت لك الملف على البريد ، والله الموفق ...

;)

من دواعي سروري ان اقدم لو القليل لك من يطلب العلم

وفي نفس الوقت ان ارد القليل من جميلك اللي طلعك بأروع صوره

وهذا اللينك المباشر كما وعدتك

للتحميل أضغط هنا

اخى فى الله ياسر الشيخ تردة كثيرا كى اساعدكم فى هذا الموضوع ليس تكاسل او عنطزه ولكن خوف منى على ان لا اكون على المستوى الذى

تقوم انت بشرحه فنحنو لسنا فى مستوى سيادتكم ولكم الفخر بذالك والسبب الثانى هى الدراسه وعدم فراغنا منها واحضار دروس قيمه مثلكم

فانا ساقوم بالفعل بالمساعده لاننا اسبحنا بالفعل نتكاسل ونعتمد ان تقوم بالتحضير والالقاء وهذا يؤدى الى البلاده لابد من المشاركه فى كل شىء

هذا ما تعلمناه

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

المواضيع كلتالى .............

1-سنقوم بشرح كيف نقوم بعمل Back up and restor to Data Base وهذا لله الحمد ما تعلمته من خلال المنتدى

2- ثانيا ساقوم بشرح ربما يكون مختصر اقوم فيه شرح XML File (كيفية التعامل والاتصال - كيفية القراة منها والتعديل الخ...........

3-سنخوض فى بعض قواعد SQL Statment وما نقوم باستخدامه داخل الدوت نت وكيبفية محاورتها

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

انتظر ردودكم الكريمه بكيفة البدا وهل سابدا ام لا وهل هناك مواضيع مكرره ام لا :rolleyes:

كنت برد عليك يا crazy.net بس للأسف كنت توجه الكلام للأستاذ ياسر

انا كنت اطبق المشروووع والحمد لله فهمت الكثير الكثير وذلك بفضل الله ثم بفضل الاستاذ ياسر اللي لا يسعني ان اوفيه حقه من الشكر ولا بعشرات الصفحااات

ولكن يبدو اني واجهت بعض الاكواد اللي ما فهمتها وان شاء الله اللقى من يشرحها لي

الاول

Dim Asscii As Integer = Asc(e.KeyChar)
		Select Case Asscii
			Case 47 To 57
				e.Handled = False
			Case 8
				e.Handled = False
			Case 46
				e.Handled = False
			Case Else
				e.Handled = True
		End Select

ولو كنت استخدم ComboBox يتألف من 6 خيارات هل الوضع يجب ان يتغير في هذا الكود وكيف سيصبح شكله

هذي المشكله اللي واجهتني اليوم اتمنى اجد لها حل <<<< له رجعات كثيره الله يعينكم عليه

السلام عليكم ورحمة الله وبركاته

الأخ الاستاذ ياسر بارك الله فيك وزادك علما وفهما وعلمك ما لا تعلم جزاء ما علمتنا ما تعلم.

الأخ فى الله crazy.net اعانك الله وقوى عزيمتك ابدأ على بركة الله وجزاك الله كل خير. وبالنسبة للمواضيع المقترحة فأظن انها لم يتم طرحها من قبل فى موضوع الأخ ياسر وان كانت قد طرحت فى مواضع اخرى فى المنتدى(وانا لا أعلم ذلك) فلا بأس من الإعادة ففى الإعادة إفادة.

وبارك الله فيكم جميعا.

والسلام عليكم ورحمة الله وبركاته.

أخي وأستاذي العزيز ياسر الشيخ

السلام عليكم ورحمة الله وبركاته

أستاذي لقد عملت برنامج يعرض محتويات الجدول من الداتا سيت في داتا جريدفيو وأردت أن يتم البحث عن طريق حدث التغيير في textbox فيتم الأمر عن أول عملية وعند كتابة الحرف الثاني يتم إضافة من ينطبق عليه الشرط دون إلغاء الأول وقد استعملت هذا الكود

Dim SQLSearch As String

SQLSearch = "Select * from Phone where P_Name Like '%" & TxtSearch.Text & "%'"

Dim DapSearch As OleDb.OleDbDataAdapter

DapSearch = New OleDb.OleDbDataAdapter(SQLSearch, Con)

DapSearch.Fill(Dst, "PhoneSearch")

DGV1.DataMember = Dst.Tables("PhoneSearch").TableName

فهل أجد لديك حل

وفي هذه الحالة أرى أن سؤالي الذي سألتك عنهفي لاسابق من حيث حذف جدول من الداتا سيت قد يفي بالغرض لأنني أستعمل في dataset واحدة وأملأها بعدة جداول فإذا أستطعت أن أحذف جدول من الداتا سيت فيمكنني تعبئته من جديد قد يكون ذلك صحيحا ( والله أعلم )

وتقبل مني أجمل التحيات وجزاك الله عني كل الخير

اخى omr an 555 اما عن سؤاللك ففى هذه الرابطه مثال توضيحى قد قمت بعمله لبعض الاخوه اعتقض فيه ما تطلب انظر فيه لعلك تجد ما تبحث عنه

/index.php?showtopic=123195

اما عن مواضيع الدروس فلم اجد رد غير الاخ m_nasser هو من قام بلرد سانتظر حتى لا اقوم بشىء مخالف يغضب الاخوه الشرفين واجد رد مقنع بالبدا

تحياتى والسلام عليكم ورحمه الله وبركاته

أخي crazy.net

أولا لك ألف شكر على ردك وجزاك الله عني كل الخير

وثانياً أتمنى عليك تغيير إسمك إلى العاقل . نيت ليشير اسمك إلى رجاحة عقلك وما فيه من علم وايمان(سامحني على هذا التدخل )

وثالثاً : أستاذي وأخي

لقد رأيت المثال الذي وضعت له رابط ولكن للأسف الشديد ليس هذا طلبي إنما سؤالي هو أنه لدي داتا سيت وتمت تعبئتها بعدة جداول من عدد من ال DataAdapter وأريد أن أحذف فقط جدول واحد من الداتا سيت ولم أستطع حاولت بالأمر dataset.Clear("TableNam") ولم تنجح وتظهر لي رسالة خطأ .

فهل أجد لديك حل أستاذي .

تقبل جزيل شكري وجزاك الله خيراً عني ودمت أستاذا وعقلا نيرا لأبناء أمتنا الحبيبة وجعل الله كل ما تكتبه من ردود وشروحات في ميزان حسناتك والله ولي التوفيق

وفي آخر كلامي أضم صوتي إلى أخي M_nasser وأقول إبدأ على بركة الله فكل ما تكتبونه ستجدون طلبة مجدين يحاولون تعلم ما تكتبوه ويدعون لكم بالخير والمغفرة ( غفر الله لنا جميعا)

بسم الله الرحمن الرحيم

لا اعرف ماذا أقول أو من أين أبدأ ، والله إني أحبكم في الله ، وأدعو الله أن يجمعنا في جنته فنتذكر هذا الحوار الذي يجري بيننا الأن .

وأعتذر على إنقطاعي عنكم في الفتره السابقة ( بسبب انقطاع الإترنت عني ) ..

أريد أن أوجه رسائل خاصه ...

الأولى للأخ العزيز إلى قلبي Oxygen بارك الله فيك وجزاك الله خير على فعلك الجميل وكرمك ..

أما ما يخص الكود الذي طلبت شرحه فهو للتحكم في مدخلات المستخدم ، بحيث لا يدخل من خلال لوحة المفاتيح إلا أرقام ، وذلك بستخدام رموز Asscii ، وطريقته هي أن نختبر قيمة الرقم الذي أدخله المستخدم في رموز Asscii فإذا كان الرقم من 47 إلى 57 فهذا يعني أنه رقم فيتم قبوله ، وإذا كان الرقم 46 فهذا يعني أنه فاصلة عشرية فيتم قبولها أيضا ، وإذا كان 8 فهذا يعني أن المستخدم استخدم مفتاح التراجع BavkSpace فيتم قبوله ، وأي شيئ غير ذلك فإنه يتم رفضه ولا يسمح له بالكتابة .

والثانية إلى الأخ العزيز إلى قلبي crazy.net وأقول لا تنتظر رد من أحد فقط إبدأ ، وأنا أول تلاميذك .. وسوف تجدني دوما معك وإلى جانبك .

والثالثه إلى الأخ العزيز إلى قلبي omran555 أقول الأمر Clear لن يقوم بحذف جدول ، ولقد شرحت هذا الامر في الدرسي الثاني ..

اقتباس

الخاصية Clear :

تزيل هذه الخاصية كل البيانات من جميع جداول DataSet ، بينما تبقي تعريفات الجداول وأي تقييدات معرفه من قبل DataSet ...

MyDs.Clear

فإذا أردنا إزالة الجداول والتقييدات ، نقوم بإعادة إنشاء DataSet كما في الكود التالي ..

MyDs = New DataSet

وأما طريقة حذف جدول محدد من DataSet فلقد حاولت ولم استطع وبحث عن ذلك فلم أجد ، ربما لو سألت أحد المشرفين تجد عنده إجابة أفضل مما لدينا ..

والرسالة الأخيره لكل من قرأ هذا الدرس واستفاذ منه أرجو أن تنشرو كل ما تعلمتموه قل أو كثر لأن هذي هي زكاة العلم وشكراً ..

والله الموفق .

اخي الكريم ياسر ،،،

هل جربت الكود التالي :

Me.DbDataSet.Tables(0).Clone()

or

Me.DbDataSet.Tables(0).Dispose()

جربها فإنها مقرمشة ..

وبالتوفيق .

أخي الكريم إبراهيم بخش ،،

تسعدني رؤيتك من جديد ، واشكرك على سرعة الإستجابة ،،

ولكن الأمر Dispose لم ينجح في حذف الجدول من الـ DataSet ، فلقد كان هذا الأمر أحد محاولاتي من قبل ولكنه لم ينجح معي وإليك كود التجربة التي قمت بها فلتجربها ( حيث سوف تجد أن عدد الجداول في الـ DataSet تساوي 1 وبعد تنفيذ الأمر تساوي أيضاً 1 ) ..

Dim selectCommandText As String = "SELECT * FROM Information order by name"
Dim selectConnection As OleDbConnection = New OleDbConnection _
		("Provider=Microsoft.Jet.OLEDB.4.0;" _
		& "Data Source=|DataDirectory|\Note.mdb;" _
		& "User Id=admin;" _
		& "Jet OLEDB:Database Password=ado.net;")

Dim instance_adapter As New OleDbDataAdapter(selectCommandText, selectConnection)
Dim ds As New DataSet

instance_adapter.Fill(ds, "Information")

MsgBox(ds.Tables.Count)
ds.Tables("Information").Dispose()
MsgBox(ds.Tables.Count)

ولي ملاحظة على الخاصية Clone :

تنسخ هذه الخاصية نفس بنية الـ DataSet الأصلية إلى الـ DataSet الجديدة ، بحيث تمتلك نفس الجداول والتقيدات ، وطريقة استخدامها ..

   Dim MyDS As New DataSet
   Dim ds_subset As New DataSet

ds_subset = MyDS.Clone

أخي omran555 وأخي إبراهيم بخش لقد وجدت الحل والحمد لله ، ولقد قمت بتجريبه وهو يعمل 100% ...

فقط شاهدو وجربو وأستمتعو بأفضل الأوقات ..

Dim selectCommandText As String = "SELECT * FROM Information order by name"
Dim selectConnection As OleDbConnection = New OleDbConnection _
		("Provider=Microsoft.Jet.OLEDB.4.0;" _
		& "Data Source=|DataDirectory|\Note.mdb;" _
		& "User Id=admin;" _
		& "Jet OLEDB:Database Password=ado.net;")

Dim instance_adapter As New OleDbDataAdapter(selectCommandText, selectConnection)
Dim ds As New DataSet

instance_adapter.Fill(ds, "Information")

MsgBox(ds.Tables.Count)

ds.Tables.RemoveAt(0)
MsgBox(ds.Tables.Count)

والله الموفق ...

ممتاز أخي الكريم أعذرني عن عدم المحاولة ولكني مر علي زمن منذ آخر إستخدام للفيجوال

مجهود ممتاز وبوركت .

بسم الله الرحمن الرحيم

Back up and Restore

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

بعد الحمد والثناء على رب العباد والصلاة والسلام على اشرف خلق الله عليه افضل الصلاة والسلام

لماذا/ لان قاعدة البيانات يمكن ان تفقد فى اى وقت يتم ازالة البرنامج فيه فاذا لم يوجد مثل هذا الامر قد ينسى العميل احيانان ان يقوم بعل نسخ لقاعدة البيانات يدوينا فعلى المبرمج ان يقوم بوضع اختيار للعميل يقوم بسؤاله ولو عند الخروج من البرنامج .. هل تريد عمل نسخ لقاعدة البيانات ؟ .. اكيد سيكون الجواب من العميل بنعم حتى يتم الحفاظ على بياناته اولا بأول

ثانيا كيف نقوم بعمل ذلك برجيا

نقوم بعمل مخزون من نوع استرنج للعميل لنقوم من خلاله بسؤال العميل عن تاريخ النسخه اورقم يقوم بوضعه يوم من خلاله على ترتيب هذه النسخ.. ويكون كلتالى

' تعريف متغير نصي
Dim string1 As String

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

Try
' تعريف متغيرين نصيين يمثلان اسم الملف المصدر واسم الملف الهدف
Dim SourceFile, DestinationFile As String
' تحديد اسم الملف المصدر
SourceFile = (System.Windows.Forms.Application.StartupPath & "\test.mdb")

' الطلب من المستخدم ادخال بواسطة InputBox
string1 = InputBox("من فضلك ادخل تاريخ او رقم للنسخة الاحتياطية ", "انشاء نسخه احتياطية")

' إذا كان المتغير النصي غير فارغ
If string1.Trim <> "" Then
' استبدال أحرف / أو \ بـ - ـ
If InStr(string1, "\") Or InStr(string1, "/") Then
string1 = Replace(string1, "\", "-", 1, -1, CompareMethod.Text)
string1 = Replace(string1, "/", "-", 1, -1, CompareMethod.Text)
End If

' تحديد المكان الهدف
DestinationFile = "D:\NEW FOLDER\BACKUP\"


If Dir(DestinationFile, vbHidden) <> "" Then
' إذا كان اسم المجلد أو الملف غير فارغ يعني موجود
' تحديد اسم الملف الهدف
DestinationFile = DestinationFile & "test" & string1 & ".mdb"
Else
' أنشئ المجلد
MkDir(DestinationFile)
' تحديد اسم الملف الهدف
DestinationFile = DestinationFile & "test" & string1 & ".mdb"
End If
' نسخ الملف المصدر إلى الهدف
FileCopy(SourceFile, DestinationFile)

' إظهار رسالة بانتهاء العملية
MessageBox.Show("تمت عملية النسخ بنجاح", "APPLICATIONNAME", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
End If

Catch ex As Exception
MsgBox(ex.Message)
End Try

اما بالنسبه RESTORE فهو كود مثله مثل Back up مع تغير نص او سطر واحد فقط من الكود وهو المسؤول عن عمل Back up وهو التالى.....

FileCopy(DestinationFile, SourceFile)

قم بعمل المشروع ولن اقوم برفع مشروع حتى يعمل الجميع للمشاركه ونقوم بالعمل على الاجتهاد وليس على الكسل والمشاهده ثم بعد ذللك ساقوم بوضع مثال على ما قمنا بشرحه ولم اتفنن ولكن هذا ماكنت قد فهمته من هذا المنتدى من قبل

وكل انسان ناقص وعمله ليس كامل فانا اكيد اخطأت فاليغفر الله لى على ذلك والقاكم فى الدرس القادم باءذالله ان كتب لنا عمر

ولا تنسونا من خالص دعائكم...........

مش عارف الموضوع ما عجب الاخوه ولا ايه بدى اعرف اراء الناس على الموضوع يا ريت عشان لو فيه اضافه ممكن نضيف او اخطاء ممكن ان نتفاداها فيما بعد

أشكرك مقدما اخوي crazy.net

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

اذا ما كان عليك امر تضيفني على الماسنجر لني بأمس الحاجه للمساعده الموضوع في نجاح ورسوب :)

o2_ox@hotmail.com

انا تحت امرك اواصل معك على المسنجر

أخي crazy.net أشكرك على هذا الدرس الجميل جداً ،، والمهم جداً جداً . ولقد وفيت بكلمتك وكفيت ، وأنا سعيد بصحبتك يا أخي ..

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

وإذا كنت قد تأخرت في ردي عليك فذلك بسبب أني اعمل على إكمال الدرس الذي كنت قد بدأته منذ مده ..

ونحن ننتظرك بفارغ الصبر وإلى المزيد من الإبداع ..

اخزانى فى لله

السلام عليكم ورحمة الله دى المثال على الدرس اللى شرح امس لعله كان مفيد

واشكر الاخ يا سر على مروره على الدرس والتعقيب عليه

learn_ado.net.rar