منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مطلوب كود يستخدم الأوامر فقط لتحديث قاعدة بيانات بـ vb.net
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

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

وأريد تحديث أحد حقوله بالكود فقط

رأيت أحد الزملاء يستخدم الكود أدناه ، لكن لم أتوصل لهذا الخطأ الظاهر فى الصورة

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


https://www.mediafire.com/view/51ucazjqie22a9j/00.jpg/file
(24-10-23, 09:55 AM)AhmedEissa كتب : [ -> ]
السلام عليكم

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

وأريد تحديث أحد حقوله بالكود فقط

رأيت أحد الزملاء يستخدم الكود أدناه ، لكن لم أتوصل لهذا الخطأ الظاهر فى الصورة

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


https://www.mediafire.com/view/51ucazjqie22a9j/00.jpg/file
و عليكم السلام و رحمة الله و بركاته
الصراحة الكود غريب!!!
لو امكن رفع المشروع للنظر فيه ؟
(24-10-23, 06:27 PM)justforit كتب : [ -> ]
(24-10-23, 09:55 AM)AhmedEissa كتب : [ -> ]
السلام عليكم

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

وأريد تحديث أحد حقوله بالكود فقط

رأيت أحد الزملاء يستخدم الكود أدناه ، لكن لم أتوصل لهذا الخطأ الظاهر فى الصورة

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


https://www.mediafire.com/view/51ucazjqie22a9j/00.jpg/file
و عليكم السلام و رحمة الله و بركاته
الصراحة الكود غريب!!!
لو امكن رفع المشروع للنظر فيه ؟

الكود مش غريب!!! لكن الأسلوب غريب!!!
وليس له داعي طالما اسم قاعدة البيانات ثابت في الكود

لإزالة الخطأ الظاهر يكون بمجرد تغيير MySettingsProperty إلى My فقط بشرط وجود 2Setting من نوع String باسم myprov وmypass وتحتوي على التالي
محتوى myprov هو
كود :
Provider=Microsoft.Jet.OLEDB.4.0;
محتوى mypass هو
كود :
;Jet OLEDB:Database Password=*****;

ووظيفة Conact هو تجميع المصفوفة لينتج محتوى نصي واحد



يمكن الاستغناء عن هذا الأسلوب بهذا الكود للسطر الأول وحذف السطرين  الثالث والرابع وهما Dim strArray و Me.con.ConnectionString
كود :
Me.con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\f_school.mdb;Jet OLEDB:Database Password=*****;")
"لإزالة الخطأ الظاهر يكون بمجرد تغيير MySettingsProperty إلى My فقط"

أخى أحمد
هل لديك مانع أن أرسل إليك التطبيق( الحجم صغير جداً ) لتعديله .. مع جزيل شكرى وامتنانى
استخدم الكود 

PHP كود :
' قراءة قيمة إعداد من My.Settings
Dim userName As String = My.Settings.UserName