محمد ايمن

عند تصميم استعلام مصدره اكثر من جدول فلا يمكن ادخال البيانات اليه

تفضل اخي الكريم هذا مثال بسيط لاخد التاريخ من جهاز كومبيوتر على الشبكة جرب ووافينا بالنتيجة get time.rar

تفضلي اختي الكريمة اعتقد ان هذا طلبك db1.rar

الاصدقاء الاكارم السلام عليكم و رحمة الله و بركاته تحية طيبة في هذا التطبيق سنتحدث عن تحويل قاعدة بيانات اكسس الى sql برمجيا حيث سنقوم بانشاء قاعدة البيانات على السيرفر و تصدير الجداول لها باستخدام SQL scripts ملاحظة هامة : العمل سيتم على SQL 2005 وما فوق بعد البحث و التجريب وصلت الى كود يقوم بانشاء قاعدة بيانات SQL وتصدير كافة الجداول لها Dim ConData As New ADODB.Connection Dim Str_Data As String Dim Str_Use As String Dim TableName As String Dim Tdf As TableDef ConData.Open "Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=master;Data Source=HP-PC\SQLEXPRESS" Str_Data = "Create database DB1" Str_Use = "Use DB1" ConData.Execute (Str_Data) ConData.Execute (Str_Use) For Each Tdf In CurrentDb.TableDefs If Left(Tdf.Name, 4) <> "MSys" Then If Len(Tdf.Connect) = 0 Then DoCmd.TransferDatabase acExport, "ODBC Database", "ODBC;Driver={SQL Server};Server=HP-PC\SQLEXPRESS" & _ ";Database=DB1" & ";Trusted_Connection=Yes", acTable, Tdf.Name, Tdf.Name End If End If Next الكود السابق يقوم بانشاء قاعدة بيانات باسم DB1 ويصدر كافة الجداول لها عظيم جدا و تمام التمام لكن هناك مشكلة صغيرة جدا المفاتيح الاساسية و الفهارس و العلاقات لم يتم تصديرها !!!!!! وبالتالي لن تعمل قاعدة البيانات ابدا بحثت كثيرا و حاولت تعديل الكود السابق و لكن دون جدوى لذلك كان لا بد من البحث عن طريقة اخرى لنصل للمطلوب و الطريقة هي انشاء الجداول و المفاتيح و الفهارس و العلاقات عن طريق اكواد SQL او ما يسمى SQL scripts , سيتسائل البعض كيف ذلك ؟؟ البداية : عند الانتهاء من تصميم قاعدة البيانات سنستخدم معالج التكبير لمرة واحدة فقط من اجل الحصول على الكود او ملف SQL scripts وبعد ذلك سنضيف الكود الى ملف ونستخدم ذلك الملف متى اردنا نفتح قاعدة البيانات التي نرغب بتحويلها و نضغط على ادوات قاعدة البيانات ثم نختار (خادم SQL) 1- انشاء قاعدة بيانات جديدة ( في هذا المثال اسم قاعدة البيانات test SQL 1 ) 2- نحدد اسم السيرفر و اسم قاعدة البيانات المطلوبة ( الاتصال موثوق ) ( التالي ) 3- نحدد كافة الجداول ( التالي ) 4- نحدد ( فهارس - قواعد التحقق من الصحة - افتراضيات - علاقات الجداول ) و نستخدم (مشغلات عوضا عن DRI) ( التالي ) 5- نحدد (عدم اجراء اية تغييرات للتطبيق) (انهاء) سيبدا المعالج بترحيل كافة الجداول الى السيرفر بعد الانتهاء نغلق برنامج الاكسس و نذهب الى برنامج SQL Server Management Studio (ملاحظة هذا البرنامج لادارة قواعد البيانات و يختلف عن برنامج SQL server ) نحدد السيرفر ونختار نوع المصادقة (حسابات ويندوز) ثم اتصال سيفتح البرنامج نختار Databases ثم نحدد قاعدة البيانات المطلوبة نضغط بالزر الايمن للفارة و نختار من القائمة Tasks ثم Generate Scripts تظهر نافذة جديدة نختار منها التالي ونحدد قاعدة البيانات Test SQL 1 ثم التالي تعدل الخيارات التالية: include if not exists = false script defaults = false scripts extended properties = false scripts owner = false scripts full-text indexes = true scripts indexes = true ثم التالي نحدد (tables) ثم التالي نحدد كافة الجداول ثم انهاء و نضغط انهاء مرة اخرى سيظهر لنا السكريبت الخاص بانشاء الجداول و المفاتيح و الفهارس و العلاقات ننسخ الكود بشكل كامل و نحفظه ضمن ملف نصي نسميه مثلا (Test1) نعود الى صديقنا الاكسس ننشئ نموذجا جديدا ونضع فيه حقلي نص باسم (tservername - tdatabasename) وزر امر نكتب الكود التالي في زر الامر Dim ConData As New ADODB.Connection Dim Str_Data As String Dim Str_Use As String ' فتح الاتصال مع السيرفر ConData.Open "Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=master;Data Source=" & Me.tservername ' انشاء قاعدة البيانات Str_Data = "Create database " & Me.TDataBaseName Str_Use = "Use " & Me.TDataBaseName ConData.Execute (Str_Data) ConData.Execute (Str_Use) MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbCrLf & "جاري تصدير الجداول", vbInformation + vbMsgBoxRight ' تنفيذ السكريبت ضمن قاعدة البيانات لانشاء الجداول و الفهارس و العلاقات Shell "sqlcmd.exe -S " & Me.tservername & " -d " & Me.TDataBaseName & " -i " & CurrentProject.Path & "\test1.txt", 0 MsgBox "تم انشاء الجداول بنجاح", vbInformation ' اغلاق الاتصال ConData.Close طبعا الملف test1.txt يجب ان يكون في نفس مسار قاعدة البيانات المرفق يختلف قليلا عن الشرح فهو يساعدك في اختيار السيرفر تلقائيا اعتذر على الاطالة في الشرح رابط البرنامج مع فيديو للشرح http://www.mediafire.com/file/x14w1p4qbqewd4k/SQL1.rar بانتظار التجريب و النتائج منكم اصدقائي SQL1.rar

من البداية (هذا مثال بسيط) افتح جدول في طريقة عرض التصميم اضف حقلا باسم T1 - نوع البيانات نص اضغط على كلمة (بحث) غير الخاصية (عرض عنصر التحكم) من (مربع نص) الى (مربع تحرير و سرد) ستجد ظهور خصائص جديدة غير الخاصية (مصدر الصف) من (جدول/استعلام) الى (قائمة القيم) غير الخاصية (التزام بالقائمة) من ( لا) الى (نعم) الخاصية (السماح بقيم متعددة) يجب ان تكون (لا) (القيمة الافتراضية لها تكون لا) الخاصية (السماح بعمليات تحرير القوائم) يجب ان تكون (نعم)(القيمة الافتراضية لها تكون نعم) احفظ الجدول باسم tbl1 مثلا انشئ نموذجا جديدا مصدره الجدول السابق واضف الحقل T1 له ثم احفظ النموذج افتح النموذج و انقر على السهم الخاص بمربع التحرير و السرد (ستجد ظهور مربع صغير للتحرير) اضغط عليه ستظهر نافذة جديدة اسمها (تحرير عناصر القائمة) اكتب القيم التي تريدها كل قيمة في سطر بهذا الشكل سائق1 سائق2 سائق3 وهكذا ثم ثم اضغط موافق

اعتذر منك وبشدة اخي الكريم بسبب تشتت افكاري في هذه الفترة الرسالة هي رسالة تحذير من الاكسس و معناها انك ستضيف سجل الى الجدول ولا يمكنك التراجع عن هذه الاضافة هذه الرسالة فعليا لا تعتبر خطا لانها تحذير فقط و يمكننا الغاؤها لكن قبل الحديث عن هذه الرسالة حاولت ان اضيف طلب و ان اضيف بيانات للشحن ولكن دون جدوى (ضمن النموذج orders genereal data النموذج order ditals غير مفعل ولايسمح لك بالاضافة نهائيا ) واعتقد ان هذا خطا هل لك ان تشرح لي بالتفصيل آلية العمل لنحل المشكلة

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

استاذي ابو خليل تحية طيبة هناك ما يثير حيرتي و بشدة كيف سيتم اضافة ايرادات للموظفين ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ما حصل معي بالتفصيل في المثال يوجد مثلا الاسم ( علي ) اذا ادخلت رقم الحي ( لن تحصل مشكلة) اذا ادخلت الاسم ( علي ) ستظهر رسالة بان الفهرس لا يسمح لك بالتكرار اذا ادخلت الحنسية (لن تحصل مشكلة) اذا ادخلت ( رقم السجل ) ستظهر رسالة بان الفهرس لايسمح لكبالتكرار اذا في هذه الحالة نستطيع ادخال رقم الحي و الجنسية ثم ادخال الايراد لكن الايراد هنا اصبح مرتبط برقم الحي او الجنسية فقط!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ارجو التوضيح ولك فائق الشكر و الاحترام

تفضل اخي الكريم هذا مثال بسيط db1.zip

تحية طيبة استاذنا الغالي ابو خليل

اخي الكريم الخطا كان تعريف المتغيرات التي تم تعريفها كمجموعة سجلات Recordset يجب عليك تعريفها بهذا الشكل DAO.Recordset My_project2010.rar

ادخل الى تصميم النموذج الفرعي حدد الخيار ( قائمة مختصرة ) من نعم الى لا

لا اعتقد ان اخفاء اسماء الحقول امر ممكن

اعتقد ان هذا هو طلبك CONTA - Copy.rar

المشكلة لا تظهر عندي !!!!!!!!!!!!!!!

ادخل بيانات في الحقل blnum و Shipped Quantity ثم اضغط Ship Q Project shipment.rar

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

بداية اخي الكريم لم الحظ ان طلبك مكرر و ان الاستعلام في المرفق db9 يعطي نتائج خاطئة بشكل عام المرفق db11 يعطي ما طلبته في التقرير بشرط ادخال ( الشهر و السنة ) اليس كذلك ؟؟؟؟؟؟؟؟؟؟؟ اذا اردت الغاء السنة عدل الشرط في التقرير فقط

اعتقد ان هذا طلبك تسجيل الايرادات 1.rar

كل مجموعة بنود توضع ضمن جدول ( رقم الايداع - تاريخ الايداع - نوع الايداع - مبلغ الايداع ) توضع في جدول (رقم المادة - اسم المادة - تاريخ الاختبار - الدرجات - المبلغ المطلوب ) في جدول و هكذا رقم الطالب في جدول بيانات الطلاب يجب ان يكون غير قابل للتكرار وفي باقي الجداول يجب ان يقبل التكرار ثم قم بالربط

اجعل مصدر البيانات لمربع التحرير و السرد ( قائمة القيم او جدول/استعلام) مربع تحرير و سرد.rar

اعتقد ان التقرير 123 يلبي طلبك db9.rar

اخي الكريم انت وضعت جميع البيانات تقريبا في جدول واحد وهذا خاطئ عليك تقسيم بياناتك الى مجموعات تضعها في جداول ثم تقوم بانشاء علاقات مثلا في المرفق السابق ( رقم الايداع - تاريخ الايداع - نوع الايداع - مبلغ الايداع ) يجب ان تكون في جدول مستقل اذا كان الطالب سيقوم بتسديد اكثر من ايداع فان ذلك سيعطي تكرار في السجلات انت بغنى عنه ارجو منك ان تشرح فكرة عمل البرنامج قليلا لكي نتمكن من التعديل

اخي الكريم تحية طيبة المرفق يسمح لك بادخال البيانات و لكن الشروط ضمن الجدول تحتم عليك عدم تكرار ( الاسم - رقم السجل ) اذا كنت تعاني من مشكلة عدم حفظ البيانات عند الادخال عليك اجراء تعديل لهذين الحقلين حسب حاجتك

تفضل اخي الكريم ( ان احسنت الفهم عنك) نصيحة ابتعد عن المسافات في التسمية مثلا In Port اكتبها InPorts هذا يسهل عليك التعامل برمجيا Project shipment 1.rar