M18581M

تفضل 10.rar

ضع البرنامج على الجهاز الرئيسي واعمل shortcut على باقي أجهزة الشبكة ويجب تثبيت ملفات تشغيل البرنامج على كل جهاز بامكانك عمل setup لبرنامجك عن طريق Package & Deployment Wizard الموجود مع ال VB6.0

وين البرنامج؟؟

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

"select * from aa where n = '%" & Text7.Text & "%'"

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

أخي الكريم اذا كان كل اسم في سطر لحال في ال datagrid فهذا يعني سجلين اثنين وليس سجل واحد مع أكثر من سطر

لم أفهم؟؟

أخي الحبيب طلبك في المرفقات لكن هذه طريقه معقدة نوعا ما فالافضل أن تجعل Multiline = false وتحفظ الاسم كما هو لأنه ليس هناك أي حاجة لاستخدام طريقتك للعلم المرفق بحاجة الى تطوير فحاول استخدام delete بدلا من backspace انا وضعته كفكرة ليس أكثر exp.rar exp.rar

بعد التخزين Adodc1.recordset.update ضع Adodc1.refresh

اخي الكريم عدل كود الطباعة الى هذا الكود ActiveReport3.DataControl1.Source = "select * from prhk where prix <> '0' and fink = -1" ال Checkbox اذا كان فيه علامة فيأخذ القيمة (-1) واذا كان فارغ فيأخذ (0)

حياك الله يا طيب نحن في الخدمه :)

أرفق المثال يا طيب

ارفق المثال

اها سؤال جيد اخي الكريم فالكثير يعتقد انه لايمكن ذلك وان الداتا جريد ليست مرنة كالفلكس جريد ولكن ولله الحمد طلبك في المرفقات الكتابة في الداتا.rar

تفضل Dim cn As New ADODB.Connection Dim RS As New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123; Data Source=DB1.MDB" RS.ActiveConnection = cn RS.CursorType = adOpenDynamic RS.Source = "SELECT * FROM table1" RS.LockT…

أخي الكريم مستحيل ان تكون السيارة من أكثر من مورد يعني أحمد ورد سيارة رقمها 100 فهل تقول ان محمد ورد السيارة رقم 100؟؟؟ في الاصل احمد موردها ارجو تعديل الفكرة اولا شكرا

انا اضفت rs.update بمعنى ان التخزين يتم اثناء الكتابة دون الضغط على اي زر المرفق الكتابة في الداتا.rar

تفضل SELECT * FROM TABLE WHERE NAME LIKE '%" & TEXT1.TEXT & "%'"