tareq1176

بشكل عام يجب ان تصمم التقرير مثل ال grid وبعد ذلك يعتمد على نوع التقرير فأي نوع تقرير تستخدم ؟ datareport or crystal report

السؤال الاول حماية القاعدة السؤال الثاني عن طريق البحث عن attach / deattach او backup / restore السؤال الثالث كأني لم اره

بحاجة الى ان تعمل استعلام جديد حسب النوع كما يلي Dim RS As New ADODB.Recordset Dim NewID As Long RS.Open "select max(id) from mytable where type =" & text1, con, adOpenStatic, adLockReadOnly NewID = Val(RS(0) & "")

انظري هذا المثال من freevbcode http://www.freevbcode.com/ShowCode.Asp?ID=2789

كلامك صحيح وشكرا لك انك قدمت هذا الرد http://www.microsoft.com/sql/prodinfo/prev...quirements.mspx http://www.teratrax.com/articles/sql_serve...a_longhorn.html ليس بغريب على مايكروزفت

الاستعلام الاول المشكلة به انه غير مسموح استعمال اكثر من جدول الاستعلام الثاني فيه الاستعلام SELECT dbo.buydown.mprice يرجع اكثر من قيمة وهذا غير مسموح لذا يجب استخدام الدوال max او min او sum حتى ترجع قيمة واحدة فقط

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

ممكن تجرب مايلي : select top 3 * from mytable where id<(select max(id))from mytable) على اعتبار ان اخر خبر له اعلى قيمة

جرب ان تنزل هذه الاداة من الانترنت عن طريق البحث عنها google downlaod crystl32.ocx فقد تجدها في مواقع كثيرة مثل الموقع http://freeware.it-mate.co.uk/?Cat=OCX_Files كذلك كثير من هذه الاخطاء تظهر بسبب عدم تفريغ الذاكرة من الكائنات اي unload object or set object …

تفضل المشروع المرفق مع ملاحظة اني ارفقت فقط الملفات التي تعدلت والبقية لم ارفقها مثل قاعدة البيانات tree.rar

تفضل اخي الكريم مثال بسيط compdb.rar

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

الفكرة التي تتكلم عنها بشكل ما موجودة في SQL server بما يسمى partition view لكنها ليست بالحل المناسب فهناك حلول اخرى كما ذكر الاخ عماد تتلخص باستخدام فهارس صحيحة للجدول . كما انك تتكلم عن جدول به عشرة الاف سجل او على الاكثر مئة الف سجل وهو بالتالي بشكل ما صغير…

من المفترض في الحذف البدء من السجلات الفرعية ثم الانتقال الى السجلات الاساسية اي الحذف اول من الجدول anthrobometric واي جداول اخرى لها علاقة بالمريض ثم الانتقال الى سجل المريض db.Execute " delete * from anthrobometric where PTCODE =" & Text1.Text & "" db.Execu…

المفروض ان وجد عندك حدث Main ان توضع فيه لكن اذا كان غير موجود يجب وضعه في اول فورم يعمل في الحدث التالي Private Sub Form_Initialize() ChDir App.Path End Sub

السلام عليكم ورحمة الله الطريقة بشكل عام هي عمل اتصال بالجدولين من القاعدتين ثم المقارنة بين التحديثات كمايلي : Do While Not rsNew.EOF rsOld.Find "id=" & rsNew!id, , , adBookmarkFirst Dim iLoop As Integer If rsOld.EOF Then ' يمكن وضع كود لمقارنة بقية الحقول مث…

عند الربط مع قاعدة البيانات يجب استخدام app.path لتحديد صحيح للقاعدة كما يمكن تجريب مايلي عند بدء البرنامج وقبل الاتصال بقاعدة البيانات ضع الكود التالي ChDir App.Path

الملفات التي ا رفقتها لا تحتوي على كود فلا اعرف باي طريقة ستتصل مع قاعدة البيانات بشكل عام لا توجد طريقة مباشرة لربط الشجرة مع قاعدة البيانات وانما يجب ان تعبئ يدويا كما يلي Dim rsGroup As ADODB.Recordset 'Open rs & con ' تعبئة انواع الجوالات مثل نوكيا وسامسون…

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

ارى ان الخطأ عندك هو في عدم اضافة واحد للقيمة القصوى ............ int id1=0; OleDbDataReader reader1 = command2.ExecuteReader(); while (reader1.Read()) { id1 = (int)reader1[0]; } الكود المطلوب id1++ ; ............