درس في ADO.NET 2005

yaseralshikh كتب:

مرحباً أخي .. اسأل الله أن يعينني على مساعدتك ..

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

	 Dim rpt As New rptCrystalReport1
	 rpt.Load(Application.StartupPath & "\" & "rptCrystalReport1.rpt")
	 rpt.SetDataSource(MyDS2.Tables("YourTable"))

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

للاسف لم تنحل المشكله

في هذه الحالة أرفق لنا مشروعك أو مثال مصغر له ، وبه المشكلة كي نحاول معك ونجد لك حل إن شاء الله ...

انا مبتدي في VB.net

وكنت اجرب على امثله من الانتر نت

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

هذا الملف

Reports.rar

أخي عبودي99 ..

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

وبما أنك مثلنا مبتدئ لماذا لا تتابع معنا هذا الدرس من البداية والاستفادة من البرنامج الذي ارفته في المشاركة رقم 96 .

ويمكنك السؤال عن أي شيئ في الكود ولكن بعد قراءة الدرس جيداً لأن أغلبه مشروح . وانا تحت الخدمة ;) .

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

جزاك الله خير وجعله في ميزان حسناتك

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

بارك الله في عمرك يا شيخ

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

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

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

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

كود الدرس كان يهدف إلى طريقة التعامل مع الجداول المترابطه بالكود ، وهو بالفعل لا يتناسب مه المبتدئين في التعامل مع قواعد البيانات من خلال ADO.NET . لذا سوف استغل إجازة عيد الأضحا المبارك في الإعداد لدرس يلبي إحتياجات أخواني وأخواتي ، وما يلزمني هو بعض الوقت والقليل من الحماس والمتابعة .. أسأل الله الإخلاص في القول والعمل ، والله الموفق ...

السلام عليكم

شكرا على مجهودك الرائع يا أستاذ ياسر بس انا عملت set up ل office 2007

و أصبح ال extention بتاع ملف ال access هو accdb

بدل من mdb

و الداتا سورس فى vb 2005 لم يتعرف عليه فا أعمل ايه؟

أول مرة أسمع عن accdb ..

ولا أعلم في الوقت الراهن أي معلومات عنها .. أو كيف التعامل معها ..

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

الموضوع اكثر من رائع

ولكن كل الروابط لا تعمل نرجو وضع الملفات من جديد

:) :) :) :)

اقتباس

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

الموضوع اكثر من رائع

ولكن كل الروابط لا تعمل نرجو وضع الملفات من جديد

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

أعتذر للجميع على الروابط التي لا تعمل ..

والسبب أنني أرفعها في مواقع وتعمل لفترة محدوده وتحدف ..

وحينما أحاول رفعها من خلال المنتدى تزعجني هذه الرسالة " مجموع المساحة المطلوبة لرفع المرفقات تجاوزت الحد المسموحة به, الرجاء تقليل حجم أو عدد المرفقات "

علماً أنني لم أتجاوز الحد المسموح به ..

ولكني رفعت الملف الذي يحتوي على خلاصة هذه الدرس على موقع يقول انه يقدم خدمة " Unlimited downloads " ..

وهذا رابط الملف ...

http://www.filesend.net/download.php?f=247...90f1615510883c6

أخي Rehab Ismail بعد البحث وجدت حل لمشكلتك مع office 2007 والـ extention الجديدة لملف الـ access .

الحل ...

يمكنك كتابة سلسلة الإتصال بقاعدة البيانات كما يلي ..

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Persist Security Info=False;

وفي حالة وجود كلمة مرور في ملف قاعدة البيانات يمكنك كتابة سلسلة الإتصال بقاعدة البيانات بالشكل التالي ..

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Jet OLEDB:Database Password=MyDbPassword;

الحمد لله الذي أعانني على مساعدتك ..

والله الموفق

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

شكرا لك ي أخ ياسر و جزاك الله كل خير و سوف أجرب الكود الأن و أقول لك النتيجة

احب أن أعدل على الكود ، من أجل إختصار جزئية معينة من الكود وإستبدالها بما هو أنسب ، وخصوصاً في الجزئية التي تتعلق بإضافة سجل جديد ، والتي نستدعي فيها إجراء فرعي اسميناه " ValueOfFields " ، من خلاله نحصل على رقم الـ ID الجديد ( ترقيم تلقائي ) للجدول الأب ، وذلك لإضافة سجل جديد بنفس رقم الـ ID للجدول الابن ، من أجل الحفاظ على العلاقة المترابطة بين الجدولي ..

الكود البديل هو ..

' Get The New ID Value from TheBank Table..
Dim cmdGetIdentity As New OleDbCommand("SELECT @@IDENTITY from thebank", cn)
cmdGetIdentity.CommandType = CommandType.Text
 Dim idvalue As Integer = Int32.Parse(cmdGetIdentity.ExecuteScalar().ToString())

للأمانة العلمية حصلت عليه من إحدى مشاركات مشرفنا الغملاسي ..

أخي وأستاذي ياسر

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

لقد قمت بتعريف DataSet وعدد من DataAdpters كل DataAdpter بجملة استعلام مختلفة ثم قمت بتعبئة DataSet بعدد من الجداول حسب DataAdpter التي قمت بتعريفها والسؤال هو:

كيف ألغي أو أمسح Clear جدول من جامع البيانات DataSet دون أن أمسح بقية الجداول .

مثال

DataAdapter1.Fill(DataSet1,"Table1")

DataAdapter2.Fill(DataSet1,"Table2")

DataAdapter3.Fill(DataSet1,"Table3")

ثم أريد أن أعمل Clear فقط للجدول Table2 من DataSet1 دون أن أفقد بقية الجداول

أرجو أن يكون السؤال واضح ومفهوم

وجزاك الله عني كل الخير وجعلها في ميزان حسناتك يوم لاينفع مال ولا بنون .

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

وهذا هو الكود

Dim b

b = TextBox4.Text

CON.Open()

Dim sql As String = "select *from Admin where (Admin_pass =" & b & ")"

Dim cmd As New SqlCommand(sql, CON)

Dim dr As SqlDataReader = cmd.ExecuteReader

If dr.Read Then

MsgBox("ok")

Else

MsgBox("no")

End If

CON.Close()

وشكرا لتعاونك مع الجميع

أخي عمران اعتذر على التأخير ، بالنسبة لسؤالك لم أجد جواب له ولكني ما زلت أبحث عن جواب ، رغم أنني أرى أنه يمكنك أعادة تهيئ الـ DataSet وتحميل الجداول المطلوبه من جديد دون عناء ..

*****

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

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

(( المثال يجب يكون على قاعدة بيانات مايكروسوف أكسس ))

شكرا على الرد

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

بالنسبه لمشكلتي فقط في جمله الselect يعني كيف يكون البحث بقيمتين؟

جرب هذا مع تغيير ما يلزم ، وخبرني عن النتائج ..

"select *from Admin where Admin_pass =" & b & " And Admin_Name=" & C

إخواني أولاً مشكورين على الجهد العظيم الذي تبذلونه لخدمة الجميع ..

إخواني الكرام لدي إستفسارين :

- إخواني كيف أستطيع أن أعمل Password لقاعدة موجودة في نسخة Sql Server 2005 express ( الموجودة ضمن بيئةnet2005. )

- ما هي جملة الإتصال Connection String المطلوبة لإتمام الإتصال بنجاح بعد إضافة كلمة مرور لقاعدة البيانات ..

ومشكورين سلفاً لتعاونكم الذي إن شاء الله سيكون ضمن حسناتكم ..

وفقك الله ,,

شكرا لك الاستاذ ياسر

طبقت الكود وضبط معي اذا كان الحقل الثاني من نوع رقم اي جربته مع حقل admin_id لكن مع حقل لم يضبط لانه من نوع

string

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